Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Lisp Error
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: Lisp Error (Read 985 times)
0 Members and 1 Guest are viewing this topic.
zoppelrenje
Mosquito
Posts: 1
Lisp Error
«
on:
March 25, 2022, 03:53:26 AM »
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 -----
Logged
baitang36
Bull Frog
Posts: 213
Re: Lisp Error
«
Reply #1 on:
March 25, 2022, 09:12:24 AM »
at acad2008 ,no error
Logged
d2010
Bull Frog
Posts: 326
WWW
Re: Lisp Error
«
Reply #2 on:
March 25, 2022, 12:19:14 PM »
Code - Auto/Visual Lisp:
[Select]
(
defun
dfn_ssget_removeflags
(
f c sse
/
rr k a lk b1 b2 b3
)
(
js_ldc21
"0x08BB:M560"
(
list
(
list
f
"1 int"
c
"1 int"
sse
"1pick"
)
"dfn_ssget_removeflags"
)
)
(
setq
;|a4834255|;
c
(
boole
1
c
15
)
)
(
setq
;|a4834277|;
b1
nil
)
(
setq
;|a4834293|;
b3
(
list
)
)
(
setq
;|a4834317|;
b1
(
js_ldc21
"0x0F31:M561"
(
list
)
)
)
(
setq
;|a4834341|;
b2
(
js_ldc21
"0x0F31:M562"
(
list
)
)
)
(
progn
(
setq
;|a4834367|;
k
0
)
(
while
(
<
k
(
js_ldc21
"0x4C2D:M563"
(
list
sse
)
)
)
(
progn
(
setq
;|a4834415|;
a
(
js_ldc21
"0x48F2:M564"
(
list
sse k
)
)
lk
(
js_ldc21
"0xD248:M565"
(
list
f a
)
)
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|;
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
)
)
)
)
;e-defun
(
progn
(
setq
;|a4658321|;
c
0
)
(
while
c1
(
progn
(
setq
;|a4658373|;
c2
1
teta te
a
(
/
(
*
te const_pi2
)
360.0
)
na
(
*
n a
)
c3
(
if
c3
(
js_ldc21
"0x7A5A:M188"
(
list
a
"r"
)
)
(
sin
a
)
)
)
(
setq
;|a4658501|;
c4
(
if
c3
(
js_ldc21
"0x607B:M189"
(
list
na
"r"
)
)
(
cos
na
)
)
)
(
setq
;|a4658547|;
c5
(
if
c3
(
js_ldc21
"0x7A5A:M190"
(
list
na
"r"
)
)
(
sin
na
)
)
)
(
setq
;|a4658597|;
bx
(
*
c3
150.0
c4
)
by
(
*
c3
150.0
c5
)
)
(
progn
(
while
c2
(
progn
(
setq
;|a4658695|;
teta
(
+
teta d
)
teta
(
-
teta
(
*
(
js_ldc21
"0x601F:M191"
(
list
(
/
teta z
)
)
)
z
)
)
)
(
setq
;|a4658759|;
fi
(
*
n teta
)
)
(
setq
;|a4658781|;
fi
(
-
fi
(
*
(
js_ldc21
"0x601F:M192"
(
list
(
/
fi z
)
)
)
z
)
)
)
(
setq
;|a4658831|;
x
(
/
(
*
const_pi2 fi
)
z
)
s
(
/
(
*
const_pi2 teta
)
z
)
c3
(
if
c3
(
js_ldc21
"0x7A5A:M193"
(
list
x
"r"
)
)
(
sin
x
)
)
)
(
setq
;|a4658933|;
c4
(
if
c3
(
js_ldc21
"0x607B:M194"
(
list
s
"r"
)
)
(
cos
s
)
)
)
(
setq
;|a4658979|;
c5
(
if
c3
(
js_ldc21
"0x7A5A:M195"
(
list
s
"r"
)
)
(
sin
s
)
)
)
(
setq
;|a4659037|;
ax
(
*
c3
150.0
c4
)
ay
(
*
c3
150.0
c5
)
p1
(
list
(
+
x0 bx
)
(
+
y0 by
)
0.0
)
p2
(
list
(
+
x0 ax
)
(
+
y0 ay
)
0.0
)
)
(
princ
"
\r
P="
)
(
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|;
lpot
(
js_ldc21
"0x2ABB:M198"
(
list
lpot
(
list
p1
)
)
)
)
)
)
(
if
(
=
tipo
"G"
)
(
js_ldc21
"0x3DC6:M199"
(
list
p1 p2 c123
)
)
)
(
setq
;|a4659449|;
You need transform automatically , yourLisp at *jc_aro10.lisp.
click here, check your-self, gmouse.com
Cheer/s a beer with me?
«
Last Edit: May 10, 2022, 03:11:47 AM by d2010
»
Logged
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Lisp Error