 |
Lisp : Stiegenlauf programmieren
MONKMUTU am 08.01.2013 um 13:54 Uhr (0)
Hallo,habe folgenden Lisp-Code jedoch benötige ich jetzt eine kleine Erweiterung.- siehe ZeichungWer kann mir helfen?(defun C:st (/ p1 p2 os flag anz x y ap epy epx) (command "_.LINE" pause pause "") (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1) p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1) os (getvar "osmode") ) (entdel (entlast)) (setvar "osmode" 0) (setq flag T) (while flag (setq anz (getint "Anzahl der Steigungen eingeben: ")) (if ( anz 0) (setq flag nil) ) ) (setq x (/ (- (car p ...
| | In das Form Lisp wechseln |
|
Rund um AutoCAD : Stiegenlauf programmieren
MONKMUTU am 08.01.2013 um 13:37 Uhr (0)
Hallo,habe folgenden Lisp-Code jedoch benötige ich jetzt eine kleine Erweiterung.- siehe ZeichungWer kann mir helfen?(defun C:st (/ p1 p2 os flag anz x y ap epy epx) (command "_.LINE" pause pause "") (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1) p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1) os (getvar "osmode") ) (entdel (entlast)) (setvar "osmode" 0) (setq flag T) (while flag (setq anz (getint "Anzahl der Steigungen eingeben: ")) (if ( anz 0) (setq flag nil) ) ) ...
| | In das Form Rund um AutoCAD wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
