Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

mala vjezba u visual lisp-u

[es] :: 3D modelovanje :: CAD/CAM :: mala vjezba u visual lisp-u

[ Pregleda: 1767 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

trovackisa
Banjaluka

Član broj: 14726
Poruke: 3
*.dialup.blic.net.



Profil

icon mala vjezba u visual lisp-u16.05.2006. u 14:12 - pre 180 meseci
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

 
Odgovor na temu

[es] :: 3D modelovanje :: CAD/CAM :: mala vjezba u visual lisp-u

[ Pregleda: 1767 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.