mala vjezba u visual lisp-u
Pozdrav
moze li jedna tema o visual lispu
stavio bih dvije tri skripte koje sam napravio i koje su jos prilicno pocetnicke
pa da mi neko pomogne da ih malo ispeglamo
evo npr prva od njih treba da pomogne u brisanju blokova iz crteza
(prilikom svodjenja geodetskih podloga na razumnu velicinu)
(defun c:bdel()
(setq a (entsel))
(setq b (car a))
(setq c (entget b))
(setq d (cdr (assoc 2 c)))
(setq ss1 (ssget "X" (list (cons 0 "INSERT"))))
(setq brojac 0 ukupno (sslength ss1))
(while (< brojac ukupno)
(progn
(setq blok (ssname ss1 brojac))
(setq ffr (entget blok))
(setq ddr (cdr (assoc 2 ffr)))
(if (= ddr d) (entdel blok))
(setq brojac (+ brojac 1))
))
(princ)
)
volio bih poboljsati selekciju i dodati automatski purge tog bloka koji je uklonjen iz crteza
 |  |
 |
