[ trovackisa @ 16.05.2006. 14:12 ] @
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 |