Z Yapı Mühendisi

👱 Bu lisp ile çizim içinde seçtiğiniz bir bloktan, kaç adet olduğunu gösterir.

Autocad lisp kodlar

(defun c:BLOK-SAY () (vl-load-com) (setq btot 0 efn nil) (while (/= "INSERT" (cdr (assoc 0 (setq bLn (entget (car (entsel "\nSaymak istediğiniz BLock'u seçiniz..."))))))) (princ "\n..... seçtiğiniz obje BLock değil, yeniden seçiniz...")) (if (= (substr (cdr (assoc 2 bLn)) 1 2) "*U") (setq BLcks (ssget "x" (list (cons 0 "INSERT") (cons 2 (strcat (chr 96) (cdr (assoc 2 bLn)))))) obj (vlax-ename->vla-object (cdr (assoc -1 bLn))) efn (vlax-get obj 'EffectiveName) btot (sslength BLcks)) (setq BLcks (ssget "x" (list (cons 0 "INSERT") (cons 2 (cdr (assoc 2 bLn))))) btot (sslength BLcks))) (if efn (princ (strcat "\nSeçtiğiniz BLock "" (cdr (assoc 2 bLn)) "" , "" efn "" Dynamic BLock'unun edit edilmiş halidir.\nBu çizim içinde " (itoa btot) " tane bulunmuştur.")) (princ (strcat "\nSeçtiğiniz BLock "" (cdr (assoc 2 bLn)) "" edit edilmiş bir Dynamic BLock değildir.\nBu çizim içinde " (itoa btot) " tane bulunmuştur."))) (prin1) )

AutoCAD lisp dosyasını kaydetme

Lisp dosyasını oluşturmayı ve AutoCAD"e yüklemeyi bilmiyorsanız. Lispi bilgisayara kaydetmek ve AutoCAD"e yüklemek için AutoCAD lisp dosyasını kaydetme ve yükleme nasıl yapılır yazısını okuyun

Autocad lisp çalıştırma

• Komut satırına "BLOK-SAY" yazın ve enterlayın



• Çizim içinden saymak istediğiniz bloğu seçin



• Komut satırınında bu bloktan kaç adet olduğunu yazar, resimde çizim içerisinde 8 adet blok vardır. Lisp 8 adet blok olduğunu yazıyor.