Hello,
I tried some an Lisp File which worked with acad200 fine....
but not with Progecad 2010.
DEFUN C:CC()
(SETQ lalt (GETVAR "clayer"))
(SETQ ealt (GETVAR "menuecho"))
(SETQ calt (GETVAR "cmdecho"))
(SETVAR "menuecho" 1)
(SETVAR "cmdecho" 1)
(DEFUN md ()
(MENUCMD "S=OFANGB")
(SETQ m (GETPOINT "\nCenter: "))
(MENUCMD "S=OFANGB")
(SETQ d (GETDIST m "\nDiameter: "))
(MENUCMD "S=S")
)
(DEFUN dr ()
(SETQ wi (GETANGLE m "\nAngle Centercross <0>: "))
(IF (= wi nil) (SETQ wi 0))
(SETQ p1 (POLAR m wi (+ (/ d 2) 3)))
(SETQ p2 (POLAR p1 (+ pi wi) (+ d 6)))
(SETQ p3 (POLAR m (+ wi (/ pi 2)) (+ (/ d 2) 3)))
(SETQ p4 (POLAR p3 (+ wi (- (/ pi 2))) (+ d 6)))
)
(DEFUN ze ()
(COMMAND "line" p1 p2 "")
(COMMAND "line" p3 p4 "")
)
(DEFUN en ()
(SETQ a (ENTGET (CAR k)))
(SETQ m (CDR (ASSOC 10 a)))
(SETQ r (CDR (ASSOC 40 a)))
(SETQ d (* 2 r))
)
(SETQ k (ENTSEL "\nSelect Circle or Return for Point"))
(COMMAND "LAYER" "SET" "center" "")
(IF (= K nil) (md) (en))
(dr)
(ze)
(COMMAND "LAYER" "set" lalt "")
(SETVAR "menuecho" ealt)
(SETVAR "cmdecho" calt)
(PRINC)
)
(PRINC)
ERROR-Message :
Angle Centercross <0>:
error: null function
(POLAR M WI (+ (/ D 2) 3))
(SETQ P1 (POLAR M WI (+ (/ D 2) 3)))
(DR)
(C:CC)
I tried the PROGECAD EXAMPLES:
Examples
(polar '(1 2) 1.570796 2) (1 4)
(polar '(3.13397 1) 0.523598775 1 (4 1.5)
Same ERROR-Message !
Where is the mistake ?
It is a BUG in Progecad2010 and will be fixed in the next update !
M.K.
I tried some an Lisp File which worked with acad200 fine....
but not with Progecad 2010.
DEFUN C:CC()
(SETQ lalt (GETVAR "clayer"))
(SETQ ealt (GETVAR "menuecho"))
(SETQ calt (GETVAR "cmdecho"))
(SETVAR "menuecho" 1)
(SETVAR "cmdecho" 1)
(DEFUN md ()
(MENUCMD "S=OFANGB")
(SETQ m (GETPOINT "\nCenter: "))
(MENUCMD "S=OFANGB")
(SETQ d (GETDIST m "\nDiameter: "))
(MENUCMD "S=S")
)
(DEFUN dr ()
(SETQ wi (GETANGLE m "\nAngle Centercross <0>: "))
(IF (= wi nil) (SETQ wi 0))
(SETQ p1 (POLAR m wi (+ (/ d 2) 3)))
(SETQ p2 (POLAR p1 (+ pi wi) (+ d 6)))
(SETQ p3 (POLAR m (+ wi (/ pi 2)) (+ (/ d 2) 3)))
(SETQ p4 (POLAR p3 (+ wi (- (/ pi 2))) (+ d 6)))
)
(DEFUN ze ()
(COMMAND "line" p1 p2 "")
(COMMAND "line" p3 p4 "")
)
(DEFUN en ()
(SETQ a (ENTGET (CAR k)))
(SETQ m (CDR (ASSOC 10 a)))
(SETQ r (CDR (ASSOC 40 a)))
(SETQ d (* 2 r))
)
(SETQ k (ENTSEL "\nSelect Circle or Return for Point"))
(COMMAND "LAYER" "SET" "center" "")
(IF (= K nil) (md) (en))
(dr)
(ze)
(COMMAND "LAYER" "set" lalt "")
(SETVAR "menuecho" ealt)
(SETVAR "cmdecho" calt)
(PRINC)
)
(PRINC)
ERROR-Message :
Angle Centercross <0>:
error: null function
(POLAR M WI (+ (/ D 2) 3))
(SETQ P1 (POLAR M WI (+ (/ D 2) 3)))
(DR)
(C:CC)
I tried the PROGECAD EXAMPLES:
Examples
(polar '(1 2) 1.570796 2) (1 4)
(polar '(3.13397 1) 0.523598775 1 (4 1.5)
Same ERROR-Message !
Where is the mistake ?
It is a BUG in Progecad2010 and will be fixed in the next update !
M.K.