AUTOCAD DE BLOCK ÇAKIŞMALARINA SON
Yazan: miyatu Şubat 8, 2008
Beni en çok zorlayan konuların başında gelen block çakışmaları son zamanlarda yine başımın belası olmaya başladı…
Nasılmı beni zorluyor; benim çalıştığım işte ayrı ayrı çizilmiş mimarilerde aynı isimli ama farklı içerikli block lar oluyor… benim bu mimarileri birleştirmem gerekiyor işte sorun burda başlıyor… Birleştirdiğim paftalarda aynı isimli blocklar birbirini etkileyerek değişiyorlar yani paftaların orjinal hallerinden değişik paftalar elde ediyorm buda baya can sıkıcı oluyor… Genelde bu değişiklikleri çalışmaya başladıktan sonra keşfediyorum ve düzeltmek içinde zaman harcıyorum…
Bu sorunun iki çözümü var;
Birincisi tüm blockları patlatıp paftaları öyle birleştirmek ki bunu yapınca dosya boyutu çok büyüyor buda çalışma sırasında sıkıntı yaşatıyor…
İkincisi block isimlerini değiştirmek bunun için RENAME komutunu kullanmak gerekiyor… önceleri blokları bu komutu kullanarak tektek block isimlerini değiştirmeye çalıştım… tabi farkedeceğiniz gibi bu işlem baya uzun sürüyor bazen bir paftada yüzlerce farklı block olabiliyor…
İşimi kolaylaştırmak için aşagıda vereceğim lispi yazdım…
Bu çalışmada benim işimi çok çok kolaylaştırıyor inş. sizinde işinize yarar…
Nasıl çalışır:
1-Daha önce anlatığım gibi kodlar kopyalanır ve autocad a yüklenir.
2-Command satırına BND yazılır.
3-Yine command satırına block isimlerinin başına girilmek üzere bir kod yazılır.
4-keyiften 4 köşe olunur..
Kodlar (Bu yazıdan sonrasını kopyalayın)
;block adlarının başına girilecek değeri yazar
;yazan: miyatu 06/02/2008
;iletişim: miyatu@msn.com
(defun c:Bnd ()
(setq elist (tblnext “block” T))
(setq gd (getstring “\n block adının başına girilecek kodu girin:”))
(while (/= elist nil)
(setq bn (cdr (assoc 2 elist)))
(setq bn1 (substr bn 1 1))
(if (/= bn1 “*”)
(progn
(setq sd (strcat gd bn))
(command “-rename” “b” bn sd “”)
)
)
(setq elist (tblnext “block”))
)
)
