30.12.2019 07:27

87878    

30.12.2019 12:57

87880    

lisp içerisine blok olan ve olmayan text leride silmesi için ekleme yaptım fakat blok olmayan text leri siliyor blok olanları silmiyor.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;****** Block Icinde Olan ve Olmayan Olcu ve Taramalari Siler ******;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:dbh (/ et x y te)
(setq et (vla-get-Activedocument (vlax-get-acad-object)))
(vla-startundomark et)
(if (setq te (ssget "x" '((0 . "*dimension,hatch,mtext"))))
(progn
(setvar 'cmdecho 0) (command "_.erase" te "")
)
)
(vlax-for x (vla-get-blocks et)
(if (and (eq :vlax-false (vla-get-isLayout x))
(eq :vlax-false (vla-get-isXref x)))
(vlax-for y x
(if (wcmatch (vla-get-objectname y) "AcDbHatch,AcDb*Dimension,AcDbmtext")
(vl-catch-all-apply 'vla-delete (list y))
)
)
)
)
(vla-endundomark et)
(vla-regen et acAllViewports)
(princ)
)

03.01.2020 07:31

87885    

Merhaba Travaci Bey,
çizimin içindeki bir bloğu kaç tane var ise bloklu dinamik bloklu hepsini seçip silebileceğimiz bir komut yada lisp varmıdır?
iyi çalışmalar.

11.01.2020 08:02

87899    

11.01.2020 13:15

87902    

kral87

---

yapılamaz.

yeniden yazılması gerekir.

13.01.2020 05:10

87904    

bu lisp blok olan ve olmayan hatch ve ölçüleri silebiliyor bu lispe text ve mtext leride silmesi için ekleme yapılabilirmi yukarıda yaptım normal text ve mtext siliyor fakat blok içerisindekilerini silmiyor



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;****** Block Icinde Olan ve Olmayan Olcu ve Taramalari Siler ******;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:dbh (/ et x y te)
(setq et (vla-get-Activedocument (vlax-get-acad-object)))
(vla-startundomark et)
(if (setq te (ssget "x" '((0 . "*dimension,hatch"))))
(progn
(setvar 'cmdecho 0) (command "_.erase" te "")
)
)
(vlax-for x (vla-get-blocks et)
(if (and (eq :vlax-false (vla-get-isLayout x))
(eq :vlax-false (vla-get-isXref x)))
(vlax-for y x
(if (wcmatch (vla-get-objectname y) "AcDbHatch,AcDb*Dimension")
(vl-catch-all-apply 'vla-delete (list y))
)
)
)
)
(vla-endundomark et)
(vla-regen et acAllViewports)
(princ)
)

13.01.2020 05:59

87906    

mühendisce

---

---

Travaci (16.07.2020 14:21 GMT)

16.07.2020 13:28

88281    

Alıntı

---

kral87 :
Merhabalar
DBH lispi seçili alan içindeki bloklu bloksuz tarama ve ölçüleri siliyor ama seçili alan dışındaki bloklu tarama ve ölçüleri de siliyor. Sadece seçili alan içindekileri silmek için lisp düzenlenebilir mi?
Seçili alan içinde bloklu tarama yada ölçü olmasa da seçili alan dışındaki bloklarda etkileniyor yardımlarınız için teşekkürler
.

---

Daha önce bir kaç kere açıklamaya çalıştığım bir kavram kargaşasına kurban gittiğiniz için sormuşsunuz.
Bu Lisp, "sadece seçili alan içindeki block'ların taramalarını silmek için düzenlenebilir mi?"

Cevap: Düzenlenemez!

Günlük kullanımda pek çoğumuzun "block" diyip geçtiğimiz kavram aslında birbirinden farklı iki nesne türüne karşılık olarak kullanılıyor. Birincisi "Block Definition", ikincisi "Block Reference". Yani ilki Block tanımı ki, bu ekranda görünmez, AutoCAD veri tabanında "Table Objects bölümünde yer alır. Diğeri ise veri tabanında tanımlı Block Tanımını referans alarak oluşturulan ve ekranda görünür olan "Block Referans" nesnesidir. Properties (veya Quick Properties) listesinde, hatta ayarlarınız uygunsa imleci üzerine getirdiğinizde bile bu fark görünür aslında ama kimse dikkat etmez.

Zaten DXF formatında ve Lisp programlarda bu tür Block Referansları "INSERT" nesnesi olarak karşımıza çıkarlar.
Block tanımına ise, yukarıda açıkladığım gibi, ekranda görülemeyeceğinden, BE (Block Editor) kullanmak için açtığınızda listede görülebilir.

Başka konularda da arkadaşlarımızın kafasını karıştıran bir konu olduğu için bu kadar ayrıntılı açıklamak zorunda kaldım.

Sizin sorunuzda ise, söz konusu Lisp Fonksiyonu incelediğimizde, block (tanımı) altında yer alan Hatch ve Dimension nesneleri, Block Tanımında bulunarak siliniyor. Sonuç olarak Block Redefine edildiğinden (yeniden tanımlandığından) çizim içinde (seçilen alanın içinde veya dışında olduğuna bakılmaksızın, aynı isimdeki tüm bloklar yenisiyle (taramasız ve ölçüsüz olarak) yenilenirler.

İlle de bu yöntemi kullanmak isterseniz, seçmek istediğiniz bölgeyi (Copy-Paste, Cut-Paste ve Wblock kullanarak) başka (belki de yeni) bir çizim içine alarak block isimlerini değiştirin (rename edin), sonra aynı konuma yeniden yerleştirin (burada blcok içinde block yani nested block olmamasına dikkat etmeli) bu durumda yukarıdaki Lisp'i sıkıntısız kullanabilirsiniz.

Selam ve saygılarımla herkese kolaylıklar dilerim.

Beğenmek için anlamak lazım...