autocad visibility lisp

[cihanyuce]

Selam arkadaşlar dinamik block oluşturdum içinde Visibility kullanarak tanımlamalar oluşturdum. Visibility de gözüken tanımlamaları saymak kısacası block tek olduğu için sayamıyorum. Visibility değiştirdiğimde aynı blockta sayıyor . Visibility saymak için bir komut veya lisp var mı? ya da nasıl yaparım?

[Gokhan_Kaya]

Merhaba
ne yapmak istediginiz tam anlamadım bir video ile neyi saydırmak istediginizi gösterirseniz yardımcı olalım

[miskin34 · Accepted solution]

Şu işinize yarayabilir.

(defun C:KAC ()
   (setvar "cmdecho" 0)  (command "undo" "group")
   (setq bln "" bln (getstring "\nBlock Adı: "))
   (if (= bln "")
     (progn
       (setq blkm (entget (car (entsel "\nSaymak istediginiz bloku seciniz..."))))
       (while (/= (cdr (assoc 0 blkm)) "INSERT")
(setq blkm (entget (car (entsel "\nSecilen obje bir blok degil! Yeniden seciniz..."))))
       )
       (setq bln (cdr (assoc 2 blkm)))
     )
   )
   (while (= (tblsearch "BLOCK" bln) nil)
     (setq bln (getstring (strcat "\nBu cizimde -" bln "- isimli bir block bulunamadi. \nBlock adini yeniden giriniz : ")))
   )
   (setq bln (cdr (assoc 2 (tblsearch "BLOCK" bln))))
   (princ (strcat "\n-" bln "- Bloklarini Tum cizimde aramak icin Enter giriniz..."))
   (if (= (ssget) nil)
    (setq bls (ssget "x" (list (cons 0 "INSERT") (cons 2 bln))))
    (setq bls (ssget "p" (list (cons 0 "INSERT") (cons 2 bln))))
   )
   (if (= bls nil)
     (princ (strcat "\n   -" bln "- bulunamadi..."))
     (progn (setq quant (sslength bls)) (princ (strcat "\n   " (itoa quant) " adet -" bln "- bulundu")))
   )
   (command "undo" "e")  (prin1)
)

[Mehmet.KARLIOGLU]

Merhaba,

visibility olarak oluşturulan sembolleri data extraction ile sayabilirsiniz.

Bazı noktalara dikkat etmekte fayda vardır. Sonuçta tek blok ve sadece görüntüleme adı farklı olduğu için data extraction penceresi altındaki doğru parametreleri seçmeniz gerekir. Ara işlemleri anlatmıyorum (dxe dosyası oluşturma vs). o pencereye girince hemen anlaşılıyor.

size tavsiyem dynamic bloğun içinde oluşturduğunuz sembolleri blocklu olarak gömün. her sembol bir block olsun ve hepsi visibility olsun. bu size sağlama yöntemi olarak kolaylık sağlar.

Tabi data  menusunden sayma işlemi yaparsanız biraz tehlikelidir. General kategörisinden layer seçeneğinide seçin ki yanlışlıkla farklı layer a mach olmus olanlarıda saysın yoksa keşif anlamında  eksik çıkar.