Topic: Erroneous lisp

[RamiMann]

Hello
I have this code which gives errors at the first run, then when it's cancelled and rerun, it works fine.Someone can help?

[kpblc]

You have to make all variables local. Variables width, textheight and so on are not setted at first run.

[RamiMann]

Hello
My knowledge about Autolisp is so limited...could you please attach the final code? I can't put things together to get the new code.
Thanks

[kpblc]

Actually I can't get what do you want to do, so I can't generate correct code. Sorry

[d2010]

Code: [Select]

(Defun dfn_osnap_setendp(u144 odActivate / $rr orl cpl)
  (setq;|a33083|;
orl "OSMODE"
cpl (if (zerop u144) 0 (if (>  u144 0) 1 (if u144 1 0)))) (setq;|a33177|;
$rr (getvar orl)) (if (and  odActivate (>  $rr 16384)) (setq;|a33225|;
$rr (- $rr 16384))) (if p142 (setvar orl (boole 7  $rr cpl)) (progn  (setq;|a33291|;
$rr (if (=  (boole 1  $rr cpl) cpl) (- $rr cpl) nil)) (if $rr (setvar orl $rr)))) (setq;|a33369|;
cpl (getvar orl)) (if (and  odActivate (>  cpl 16384)) (setvar orl (- cpl 16384)))
$rr)


Actually I can't get what do you want to do, so I can't generate correct code. Sorry

Code - Auto/Visual Lisp: [Select]

1. (setq const_systasserte nil acad__assertNo 0)
2.  
3. (DeFun C:q2()
4.   (setq;|a308|;
5.          dfn_pp_v1chkR nil)  
6.   (autoexec_app)
7. )
8. (Defun asserte(mssg / rr)
9.   (setq;|a873|;
10.          acad__assertNo (+ acad__assertNo 1)) (if (/= mssg nil) (setq;|a917|;
11.          erprv erlsp
12.          erlsp mssg))
13. erlsp)
14. (DeFun C:autoexec_app()
15.      (autoexec_app )
16. )
17.  
18. (prompt "\nCommand.com= C:Q2[enter] or Q2[enter]\n")
19. (Defun autoexec_app( / )
20. ;------------------------Stdcall "nn_vmload "
21.   (setq _ax (nn_vmload ))
22. ;------------------------
23.  
24.   (princ "\nEnd")  
25. T)
26.  
27. (defun RenderCmds0h( / cpp);;
28. ;;09sudo dpkg --add ;stdcall
29. ;;12sudo fail --del "#endregion"
30. ;;13sudo fail --del "r"
31. (setq RenderCmd.cpp 13));;
32. ;(User Labels)
33. ;(nn_vmload)
34. (Defun nn_vmload(/ $rr dyn orl p1 p2 p100 p200 rlc nop askw width x1 y1 x2 y2 x100 y100 x200 y200 qq)
35.   (command "undo" "m") (setq;|a13028|;
36.          dyn (dfn_getx_readkey "[YN]" "\nSetvar toEndPoint?(y.yes)(n.no): ")) (setq;|a13062|;
37.          orl (getvar "OSMODE")) (if (=  dyn "Y") (dfn_osnap_setendp 1 T)) (setq;|a13128|;
38.          p1 (getpoint "\nLower Left Corner: ")
39.          p2 (getcorner p1 "\nUpper Right Corner: ")) (setq;|a13188|;
40.          p100 (list (car p1) (cadr p2) 0.0)) (setq;|a13246|;
41.          p200 (list (car p2) (cadr p1) 0.0)) (if (=  dyn "Y") (dfn_osnap_setendp 0 nil)) (setq;|a13340|;
42.          nop (list (dfn_enamk_layer "Grid" 255) (dfn_enamk_layer "Label" 7))) (if (<  (car nop) 0) (command "-layer" "m" "Grid" "color" "255" "" "")) (if (<  (cadr nop) 0) (command "-layer" "m" "Label" "color" "7" "" "")) (command "-style" "tahoma" "tahoma" textheight "1" "0" "n" "n") (command "layer" "s" "Grid" "" "linetype" "s" "bylayer" "" "color" "5") (dfn_enamk_quadrilateral p1 p2 p3 p4 "Grid" 5 "") (setq;|a13786|;
43.          width (getvar "USERR1")) (setq;|a13820|;
44.          GridSpacing (getvar "USERR2")
45.          TextHeight (getvar "USERR3")) (php_echo (list "\GridSpacing :<" width "> : ")) (setq;|a13908|;
46.          askw (getint " ")) (setq;|a13934|;
47.          width (if (=  askw nil) 1000 askw)) (setq;|a13972|;
48.          dyn (dfn_getx_readkey "[ID]" "\nType of Input?(D.getDist)(I.getInt): ")) (if (=  dyn "I") (setq;|a14028|;
49.          GridSpacing (getint (strcat "\ENTER GRID SPACING <" (itoa GridSpacing) ">:"))
50.          TextHeight (getint (strcat "\ENTER HEIGHT OF TEXT:<" (rtos TextHeight 2 3) ">"))) (setq;|a14158|;
51.          GridSpacing (getdist "\nENTER GRID SPACING:")
52.          TextHeight (getdist "\nENTER HEIGHT OF TEXT:"))) (setq;|a14214|;
53.          GridSpacing (if (=  GridSpacing nil) 1000 (abs GridSpacing))) (if (=  TextHeight (=  TextHeight nil)) 75.0 (abs TextHeight)) (setq;|a14380|;
54.          qq (/ TextHeight 4)
55.          x1 (car p1)
56.          y1 (cadr p1)
57.          x2 (car p2)
58.          y2 (cadr p2)
59.          x100 (car p100)
60.          y100 (cadr p100)
61.          x200 (car p200)
62.          x200 (cadr p200)
63.          f1 (/ x100 d)
64.          f2 (fix f1)
65.          f2 (float f2)
66.          f3 (if (<  x100 0) f2 (+ f2 1))
67.          f4 (* GridSpacing f3)
68.          x3 f4
69.          n1 (/ y1 d)
70.          n2 (fix n1)
71.          n2 (float n2)
72.          n3 (if (<  y1 0) n2 (+ n2 1))
73.          n4 (* GridSpacing n3)
74.          y3 n4
75.          yy (if (>  y100 y1) y100 y1)
76.          yy (if (>  y200 y100) y200 yy)
77.          yy (if (>  y2 y200) y2 yy)) (dfn_ngridy) (setq;|a15038|;
78.          x3 (dfn_ngridx x1 y1 x2 y2 x3 y3)) (if (<  x3 xx) (dfn_ngridx x1 y1 x2 y2 x3 y3))
79. $rr)
80. (defun con_kpi(/ )
81.   (setq;|a15688|;
82.          kpi 3.14159265358979323846
83.          kHalfPi 1.57079632679489661923
84.          kTwoPi 6.28318530717958647692
85.          kpi_max 3.14159265358979323846264338327950288)
86. )
87.  
88. ;;Inf:Wait until press keys k
89. (defun dfn_getx_readkey(k574 t469 / retc kbd msg two chk lei)
90.   (setq;|a18230|;
91.          retc (chr 0)
92.          kbd (if (>  k574 "") k574 "")) (setq;|a18294|;
93.          msg (if (>  t469 "") t469 "\nhttps://youtu.be/TeHsFiHlJ-A:")) (prompt msg) (progn (setq;|a18346|;
94.          chk (if (>  (strlen kbd) 1) 0 1)) (while (=  chk 0) (progn  (setq;|a18404|;
95.          two 0) (while (/= two 2) (setq;|a18444|;
96.          lei (grread)
97.          two (car lei)) (setq;|a18496|;
98.          retc (strcase (chr (cadr lei)))) (setq;|a18538|;
99.          chk (if (>  kbd "") (if (wcmatch retc kbd) 1 0) 0)))))) (princ retc)
100. retc)
101. (defun dfn_ngridy ( / h1 h11 t1 t2 xrr prr s1)
102.   (setq;|a23114|;
103.          h1 (list x1 y3)
104.          h11 (list x2 y3)
105.          t1 (list (- (+ x100 v) qq) (+ y3 v))
106.          t2 (list (+ x200 v) (+ y3 v))
107.          xrr (+ x2 (* 2 qq))
108.          prr (list xrr y2)
109.          s1 (rtos y3 2 0)) (command "layer" "s" "Grid" "" "linetype" "s" "bylayer" "" "color" "bylayer" "line" h1 h11 "") (command "layer" "s" "Label" "" "color" "bylayer" "text" "s" "tahoma" "j" "mr" t1 0 s1) (command "mirror" "l" "" p100 p1 "" "move" "l" "" p100 p2 "justifytext" "l" "" "ml") (setq;|a23742|;
110.          y3 (+ y3 d)) (if (<  y3 y) (dfn_ngridy)) (setq;|a23806|;
111.          xx x1
112.          xx (if (>  x100 x1) x100 x1)
113.          xx (if (>  x200 x100) x200 xx)
114.          xx (if (>  x2 200) x2 x2))
115. nil)
116. (Defun dfn_ngridx(x1 y1 x2 y2 x3 y3 / v1 ydd dyn)
117.   (setq;|a27782|;
118.          1 (list x3 y1)
119.          v11 (list x3 y2)
120.          r1 (list (- x3 v) (+ y2 v qq))
121.          r2 (list (- x3 v) (+ y2 1 v))
122.          ydd (+ (- y1 (* qq 2)) ss)
123.          pdd (list x1 ydd)
124.          w1 (rtos x3 2 0)) (command "layer" "s" "Grid" "" "linetype" "s" "bylayer" "" "color" "bylayer" "line" v1 v11 "") (command "layer" "s" "Label" "" "color" "bylayer" "text" "s" "tahoma" "j" "bc" r1 0 w1) (setq;|a28298|;
125.          dyn (dfn_getx_readkey "[YN]" "\nTry Mirror?(y.yes)(n.no): ")) (if (=  dyn "Y") (command "mirror" "l" "" p100 p2 "" "move" "l" "" p100 p1 "justifytext" "l" "" "tc")) (setq;|a28472|;
126.          x3 (+ x3 d))
127. x3)
128. (defun dfn_cmd_canceld( / $rr cx dx ch)  
129.   (setq;|a30190|;
130.          ch (quote INT)
131.          cx "CMDACTIVE"
132.          dx (getvar cx)
133.          dx (if (/= (type dx) ch) 0 (boole 1  dx 1))) (progn (while (>  dx 0) (setq;|a30334|;
134.          dx (getvar cx)
135.          dx (boole 1  dx 1)) (setq;|a30384|;
136.          $rr (command "")))) (setq;|a30410|;
137.          $rr (getvar "CMDNAMES")) (terpri)
138. $rr)
139.  (prompt "\ncommand.com: q2[enter]\n")
140.