Topic: Lisp Error

[zoppelrenje]

Hello,
with the new BricsCAD version V22, my lisp doesn't work anymore.

Error message:
----- LISP : Call Stack -----
;
...C:ACM

; [1].....A39 <<--
;
; ----- Error around expression -----

[baitang36]

at acad2008 ，no error

[d2010]

Code - Auto/Visual Lisp: [Select]

1. (defun dfn_ssget_removeflags (f c sse / rr k a lk b1 b2 b3 )
2.    (js_ldc21 "0x08BB:M560" (list  (list f "1 int" c "1 int" sse "1pick") "dfn_ssget_removeflags")) (setq;|a4834255|;
3.          c (boole 1  c 15)) (setq;|a4834277|;
4.          b1 nil) (setq;|a4834293|;
5.          b3 (list)) (setq;|a4834317|;
6.          b1 (js_ldc21 "0x0F31:M561" (list ))) (setq;|a4834341|;
7.          b2 (js_ldc21 "0x0F31:M562" (list ))) (progn (setq;|a4834367|;
8.          k 0) (while (<  k (js_ldc21 "0x4C2D:M563" (list  sse))) (progn  (setq;|a4834415|;
9.          a (js_ldc21 "0x48F2:M564" (list  sse k))
10.          lk (js_ldc21 "0xD248:M565" (list  f a))
11.          b3 (if (and  (=  (js_ldc21 "0xDC6F:M566" (list  lk b3)) nil) (=  (boole 1  c 8) 8) lk) (js_ldc21 "0x2ABB:M567" (list  b3 (list lk))) b3)) (if (and  (=  (boole 1  c 2) 2) (not lk)) (js_ldc21 "0x0F31:M568" (list  a b1))) (if (and  (=  (boole 1  c 4) 4) lk) (progn  (setq;|a4834667|;
12.          sse (js_ldc21 "0xA31C:M569" (list  a sse))) (js_ldc21 "0x0F31:M570" (list  a b2)) (setq k (1- k))))) (setq k (1+ k)))) (js_ldc21 "0x2ABB:M571" (list  (list (sslength b1)) (list b1) (list b2) (list b3)))
13. );e-defun
14.    (progn (setq;|a4658321|;
15.          c 0) (while c1 (progn  (setq;|a4658373|;
16.          c2 1
17.          teta te
18.          a (/ (* te const_pi2) 360.0)
19.          na (* n a)
20.          c3 (if c3 (js_ldc21 "0x7A5A:M188" (list  a "r")) (sin a))) (setq;|a4658501|;
21.          c4 (if c3 (js_ldc21 "0x607B:M189" (list  na "r")) (cos na))) (setq;|a4658547|;
22.          c5 (if c3 (js_ldc21 "0x7A5A:M190" (list  na "r")) (sin na))) (setq;|a4658597|;
23.          bx (* c3 150.0 c4)
24.          by (* c3 150.0 c5)) (progn (while c2 (progn  (setq;|a4658695|;
25.          teta (+ teta d)
26.          teta (- teta (* (js_ldc21 "0x601F:M191" (list  (/ teta z))) z))) (setq;|a4658759|;
27.          fi (* n teta)) (setq;|a4658781|;
28.          fi (- fi (* (js_ldc21 "0x601F:M192" (list  (/ fi z))) z))) (setq;|a4658831|;
29.          x (/ (* const_pi2 fi) z)
30.          s (/ (* const_pi2 teta) z)
31.          c3 (if c3 (js_ldc21 "0x7A5A:M193" (list  x "r")) (sin x))) (setq;|a4658933|;
32.          c4 (if c3 (js_ldc21 "0x607B:M194" (list  s "r")) (cos s))) (setq;|a4658979|;
33.          c5 (if c3 (js_ldc21 "0x7A5A:M195" (list  s "r")) (sin s))) (setq;|a4659037|;
34.          ax (* c3 150.0 c4)
35.          ay (* c3 150.0 c5)
36.          p1 (list (+ x0 bx) (+ y0 by) 0.0)
37.          p2 (list (+ x0 ax) (+ y0 ay) 0.0)) (princ "\rP=") (princ (js_ldc21 "0x270B:M196" (list  (/ (* c 100.0) z) 2 0))) (princ "%") (if (=  tipo "L") (js_ldc21 "0x59B1:M197" (list  p1 p2 "" c123 "")) (if (=  tipo "P") (setq;|a4659349|;
38.          lpot (js_ldc21 "0x2ABB:M198" (list  lpot (list p1)))))) (if (=  tipo "G") (js_ldc21 "0x3DC6:M199" (list  p1 p2 c123))) (setq;|a4659449|;
39.  

You need transform automatically , yourLisp at *jc_aro10.lisp.
click here, check your-self, gmouse.com
 
Cheer/s a beer with me?