progeCAD support, tips and troubleshooting forum. progeCAD works very similar to some versions of AutoCAD. Moderated.

Moderators: caddit, Moderators

#1102 by BayDviBerg
Wed May 26, 2010 1:58 pm
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.
#1122 by caddit
Sat Jun 12, 2010 1:29 am
Hello BayDviBerg,


As noted on our CAD Blog, a new minor update for progeCAD 2010 Professional has now been released and uploaded (10.0.8.9) which addresses this issue.

Please let us know if you have any further issues with the AutoLISP support.