hallo leute,
ich hab mal wieder ein echtes problem:
das untenstehende lispprogramm soll mir in autocad lt 2002 toolkit eine positionsnummer erzeugen. das problem ist dass es auf manchen rechnern läuft und auf manchen nicht. was gehäuft auftritt ist das die zeile (setq pstart (getpoint "\nStartpunktPositionierung"))einfach überlaufen wird und dann natürlich das programm auf einen fehler läuft. vielleicht findet jemand den fehler.
gruss bu
(defun positionstart (/ pstart pende a b c alpha_rad alpha_grad pbasis)
;;; (load "lispbasis_1.lsp")
(setq cmddia (getvar "cmddia"))
(setvar "cmddia" 0)
(setvar "clayer" "5")
(setvar "osmode" 512)
(setq pstart (getpoint "\nStartpunktPositionierung"))
(setq pende (getpoint "\nEndpunktPositionierung"))
(command "_qleader" pstart pende "" "" "")
(setq a (- (car (cdr pende)) (car (cdr pstart))))
(setq b (- (car pende) (car pstart)))
(setq c (distance pstart pende))
(setq alpha_rad (atan (/ (/ a c) (/ b c))))
(setq alpha_grad (/ (* alpha_rad 180) pi))
(if (< (car pende) (car pstart))
(setq pbasis (polar pende (+ alpha_rad pi) 3))
(setq pbasis (polar pende alpha_rad 3))
)
(setq osmode (getvar "osmode"))
(setvar "osmode" 0)
(command "_-insert" "position" pbasis "" "" "")
(setvar "cmddia" cmddia)
(setvar "osmode" osmode)
;;; (c:lispbasis_2)
)
(positionstart)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP