naja, als Lispprogramm zum Block erstellen würd ich die command-Variante nicht gerade bezeichnen, aber naja..
Anbei mal 2 Bsp-Funktionen mit ebendiesem Command
(defun c:blocked(/ name POINT AWS)
(while(not(and(setq NAME(getstring"\nBLOCKNAME : "))(/= NAME "")(not(tblobjname "BLOCK" NAME)))))
(while(not(setq POINT (getpoint "\nBasispunkt: "))))
(while(not(and(setq AWS (ssget))(> (sslength AWS)0))))
(command "_-block" NAME POINT AWS "")
(command "_-insert" NAME POINT 1 1 0)
)
(defun c:blocked(/ name POINT AWS)
(while(not(and(setq NAME(getstring"\nBLOCKNAME : "))(/= NAME "")(not(tblobjname "BLOCK" NAME)))))
(while(not(setq POINT (getpoint "\nBasispunkt: "))))
(command "_-block" NAME POINT)
(while (/=(getvar "CMDACTIVE")0)(command pause))
(command "_-insert" NAME POINT 1 1 0)
)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP