İsimsiz block sorunu | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 477, Üye: 0

Detaylar »

Forumlar > AutoCAD > İsimsiz block sorunu

Bu başlığı inceleyenler : 3 ziyaretçi, 0 üye : ---

İleti	Yazar
22.01.2016 11:56 82760	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Kolay gelsin. Tekla Structures ile oluşturulmuş bir genel çizimi dwg olarak export yaptığımda ve bu çalışmayı AutoCAD'de açtığımda çizimde isimsiz blocklar mevcut. Bu block'ların içine girilemiyor, ismi olmadığından rename ile işlem yapılamıyor. Yardımlarınız için şimdiden teşekkürler. Ertan K Kıdemli Teknik Ressam

22.01.2016 17:43 82769	yazgunesi Editör 606 ileti Teknik Ressam Çanakkale
Slm, benim bir zamanlar yazdığım lisp vardı block ismi değiştirme ile ilgili. Komut ismi rbk idi. Belki işine yarar. O blockları explode komutu ile patlatmayı dene, yada wblock olarak ayrı bir çizim dosyası oluşturmayı dene.. Linkleri görebilmek için ÜYE olmalısınız. Bu arada şu blocklar nasil bişey, merak ettim dogrusu. Hani block insert ekrani varya, liste şeklinde ekranda blocklari gösteren, orasinin bi ekran görüntüsünü paylaş diyecektim. Aklıma birşey geldi ! :-) Hani nesne özelliklerine erişme imkanımız varya ssget komutunu kullanarak.. Seçilen objenin nesne özelliklerinden block ismine erişebilir ve yeni block ismi verebiliriz diye düşündüm. yazgunesi (22.01.2016 20:27 GMT) cizimokulu.com

23.01.2016 07:21 82770	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Hocam block insert ekranının fotoğrafını çektim. Çoğu kez karşılaşıyorum bu sorunla. Autocad'in nesnelere isim vermeme olasılığı var ise ssget komutu işimizi görmez. Şayet isim vermiş, Edit Block Definition ya da insert ara yüzlerinde gizliyorsa umut var demek. Ertan K Kıdemli Teknik Ressam

23.01.2016 07:33 82771	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Alıntı alumina : Ayni isimde baska bir blok varsa uyari vermesi daha mi iyi olurdu? Kod: (defun c:bn (/ ss nn bn) (vl-load-com) (if (setq ss (ssget ":s" '((0 . "insert")))) (progn (prompt (strcat "\nOld name: " (setq bn (vla-get-name (vlax-ename->vla-object (ssname ss 0)))))) (if (/= (setq nn (getstring T "\nNew name:")) "") (progn (if (/= (tblobjname "block" nn) nil) (alert (strcat """ nn """ " is already in use")) (vla-put-name (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) bn) nn)) ) ) ) ) (princ) ) alumina hocamın bir zamanlar yazdığı lisp isimsiz block'a yeni isim veriyor ve aynı blocklarda bu ismi alıyor. İşe yarıyor galiba. Fakat bu işin özüne indiğimizde. Bu blockların isimleri nerede? Ben her zaman bu block'ların içeriğine ulaşmam ismini değiştirmek zorunda mıyım? Tek tek poz ismi vermek meşakkatli bir iş. BLack\|E (23.01.2016 07:53 GMT) Ertan K Kıdemli Teknik Ressam

23.01.2016 07:43 82773	ehya Yönetici 3554 ileti Teknik Ressam Ankara
dosyayı paylaşırmısınız önemi yoksa. ona göre bir kod yazmaya çalışalım. hazır kodları paylaşmaktansa kendimiz oluşturalım. tabi öncelikle bir komut ismi söyleyeim. Onu deneyin. Çözüm olmazsa dosyayı gönderirsniz. AUDIT komutunu çalıştırıp YES iletisi ile devam edin. Daha sonra blok listesini kontrol edin.

23.01.2016 07:57 82775	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Audit sonuç vermedi ehya hocam. https://cizimokulu.com/datas/users/37607-ornek-son.rar BLack\|E (25.01.2016 07:14 GMT) Ertan K Kıdemli Teknik Ressam

23.01.2016 11:38 82777	Travaci Editör 2393 ileti Teknik Ressam Konstantinopol
Not Found !

23.01.2016 13:09 82778	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Kod: (defun c:bln () (if (setq ss (ssget (list (cons 0 "INSERT")))) (progn (setq c 0 say (sslength ss) nnn nil bisim "blok" sayi 1 bbb (strcat bisim (rtos sayi 2 0))) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (while (< c say) (setq tek (ssname ss c) adi (cdr (assoc 2 (entget tek)))) (if (= "*A" (substr adi 1 2)) (progn (while (= nnn nil) (if (/= (tblsearch "BLOCK" bbb) nil) (progn (setq sayi (1+ sayi) bbb (strcat bisim (rtos sayi 2 0)) nnn nil)) (progn (setq nnn t bbb (strcat bisim (rtos sayi 2 0)))))) (vla-ConvertToStaticBlock (vlax-ename->vla-object tek) bbb) )) (setq nnn nil c (1+ c)) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) )))(princ))

23.01.2016 20:29 82789	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Secim seti olarak bu da cesit olsun. Kod: (defun c:bl (/ ss dc n i ob nm) (vl-load-com) (if (setq ss (ssget '((0 . "insert") (-4 . "<not") (2 . "") (-4 . "not>")))) (progn (setq n 0) (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object)))) (repeat (setq i (sslength ss)) (if (= "A" (substr (cdr (assoc 2 (entget (setq ob (ssname ss (setq i (1- i))))))) 1 2)) (progn (while (/= (tblsearch "block" (setq nm (strcat "stb" (rtos (setq n (1+ n)) 2 0)))) nil)) (vla-ConvertToStaticBlock (vlax-ename->vla-object ob) nm) ) ) ) (vla-endundomark dc) ) ) (princ) )

23.01.2016 20:31 82790	Travaci Editör 2393 ileti Teknik Ressam Konstantinopol
Offf savaşta bile söylenmez :D

24.01.2016 14:38 82808	Travaci Editör 2393 ileti Teknik Ressam Konstantinopol
Kod: (defun c:et (/ ss n i ob nm) (vl-load-com) (if (setq n 0 ss (ssget '((0 . "insert") (-4 . "<not") (2 . "*") (-4 . "not>")))) (progn (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (repeat (setq i (sslength ss)) (if (= (getpropertyvalue (ssname ss (setq i (1- i))) "IsDynamicBlock") 0) (progn (while (/= (tblsearch "block" (setq nm (strcat "et" (rtos (setq n (1+ n)) 2 0)))) nil)) (vla-ConvertToStaticBlock (vlax-ename->vla-object (ssname ss i)) nm) ) ) ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) ) ) (princ) )

25.01.2016 07:30 82812	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Hocalarım emeğinize sağlık. alumina ve ehya hocamın yazdığı lispler hakkında konuşuyorum. Aynı block'u kopyaladığımda ve lispi çalıştırdığımda aynı olan block'ada başka bir block adı vermekte. Travaci hocam, sizin lispiniz çalışmadı benim pc'de sorun olabilir. Ertan K Kıdemli Teknik Ressam

25.01.2016 07:52 82813	macros55 Uzman 94 ileti Haritaci Ankara
Hocam bi şey sorucam..çizimde farklı isimler koyulmuş aynı gorünüme sahip 10 000 adet blok var..bu blokların tümünü replace edip de tek isimli tek -tek halinde 10 000 adet bloka nasıl çevire bilirim?

25.01.2016 07:56 82814	ehya Yönetici 3554 ileti Teknik Ressam Ankara
çeviremezsin.

25.01.2016 08:09 82815	macros55 Uzman 94 ileti Haritaci Ankara
peki bunu her hangi bir lisple yapmak olmazmi?

25.01.2016 08:25 82816	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı macros55 : pahali olur.

25.01.2016 08:28 82817	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı BLack\|E : Hocalarım emeğinize sağlık. alumina ve ehya hocamın yazdığı lispler hakkında konuşuyorum. Aynı block'u kopyaladığımda ve lispi çalıştırdığımda aynı olan block'ada başka bir block adı vermekte. Travaci hocam, sizin lispiniz çalışmadı benim pc'de sorun olabilir. butun cizimi secip lispi calistir, sonra kopyalama islemlerini istedigin kadar yap. lispi calistirmadan once kopyalama yapma.

25.01.2016 11:29 82818	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Alıntı alumina : Alıntı BLack\|E : Hocalarım emeğinize sağlık. alumina ve ehya hocamın yazdığı lispler hakkında konuşuyorum. Aynı block'u kopyaladığımda ve lispi çalıştırdığımda aynı olan block'ada başka bir block adı vermekte. Travaci hocam, sizin lispiniz çalışmadı benim pc'de sorun olabilir. butun cizimi secip lispi calistir, sonra kopyalama islemlerini istedigin kadar yap. lispi calistirmadan once kopyalama yapma. Tamam hocam öyle yapacağım, teşekkürler. Ertan K Kıdemli Teknik Ressam

> 1 <