2016的Vlisp(vlide)很有意思--画内角螺钉和怪事

WhoCanSay

以前写的画内六角螺钉，不能运行了,自己也看不懂了，整理一下。我用16版vlide来显示错误，可以看到一步一步执行，甚至先执行哪一个表。。。。

1. (Defun *Error* (st)
   
2.   (vl-bt)
   
3. )
   
4. ;;5 [功能] 获取在图元 en 之后产生的图元的选择集
   
5. (defun lt:ss-entnext (en / ss)
   
6.   (if en
   
7.     (progn
   
8.       (setq ss (ssadd))
   
9.       (while (setq en (entnext en))
   
10.   (if (not (member (cdr (assoc 0 (entget en)))
    
11.        '("ATTRIB"
    
12.          "VERTEX"
    
13.          "SEQEND"
    
14.         )
    
15.      )
    
16.       )
    
17.     (ssadd en ss)
    
18.   )
    
19.       )
    
20.       (if (zerop (sslength ss))
    
21.   (setq ss nil)
    
22.       )
    
23.       ss
    
24.     )
    
25.     (ssget "_x")
    
26.   )
    
27. )
    
28. ;;190.1 捕捉开始
    
29. (defun _StartOsmode (/ L LST)
    
30.   (setq L '("Autosnap" "osmode" "polarmode" "polarAng" "snapmode" "Gridmode" "SanpStyl"))
    
31.   (foreach x L
    
32.     (setq Lst (cons (cons x (getvar x)) Lst))
    
33.   )
    
34.   (setenv "MyOsmode" (VL-PRIN1-TO-STRING Lst))
    
35. )
    
36. ;;190.2 捕捉结束
    
37. (defun _EndOsmode (/ L)
    
38.   (cond
    
39.     ((setq L (getenv "MyOsmode"))
    
40.      (setq L (read L))
    
41.      (mapcar '(lambda (x) (cond ((cdr x) (setvar (car x) (cdr x))))) L)
    
42.     )
    
43.   )
    
44. )
    
45. (defun hh-hua (/     pick_view         drawld             B           D         D1    D2    D3           DCLID DK
    
46.                E0    F           FA         FINDFIL     FN           FNAME H1    J     JB           JB1         L
    
47.                L1    LOOP  RETURN#     STR1  VB           WHICH X     X0    X1           X10         X11
    
48.                X12   X13   X14         X15   X16   X17   X18         X19   X2    X20   X21         X22
    
49.                X3    X4           X5         X6    X7    X8           X9 key
    
50.               )
    
51.   (defun pick_view ()
    
52.     (setq which (get_tile "edit1"))
    
53.     (cond
    
54.       ((= key "rddio1") (setq d 1.6))
    
55.       ((= key "rddio2") (setq d 2))
    
56.       ((= key "rddio3") (setq d 3))
    
57.       ((= key "rddio4") (setq d 4))
    
58.       ((= key "rddio5") (setq d 5))
    
59.       ((= key "rddio6") (setq d 6))
    
60.       ((= key "rddio8") (setq d 8))
    
61.       ((= key "rddio10") (setq d 10))
    
62.       ;;((= key "rddio12") (setq d 12))
    
63.       ((= key "rddio14") (setq d 14))
    
64.       ((= key "rddio16") (setq d 16))
    
65.       ((= key "rddio20") (setq d 20))
    
66.       ((= key "rddio24") (setq d 24))
    
67.       ((= key "rddio30") (setq d 30))
    
68.       ((= key "rddio36") (setq d 36))
    
69.       (T (setq d 12))
    
70.     )
    
71.     ;;去除下面部分
    
72.     (cond
    
73.       ((= "1" (get_tile "rddio51")) (setq l1 "c"))
    
74.       ;;((= "1" (get_tile "rddio52")) (setq l1 "z"))
    
75.       ((= "1" (get_tile "rddio53")) (setq l1 "j"))
    
76.       (T (setq l1 "z"))
    
77.     )
    
78.     ;;d3-螺纹小径，d2-通孔直径，l-螺栓长，B-螺纹长，d1-螺栓头通孔,dk-螺栓头直径，h1-螺栓头深
    
79.     (setq fa (list (read l1) d))                            ;fa(c 12)型式
    
80.     (setq findfil (findfile "ld1-t.txt"))
    
81.     (setq f (open findfil "r"))
    
82.     (setq vb (read (read-line f)))                            ; 读表头入vb=(h1 dk d1 b l d2 d3)
    
83.     (setq loop T)                                            ;初赋loop为真
    
84.     (while loop
    
85.       (setq jb (read (read-line f)))
    
86.       (if (equal fa (car jb))                                    ;fa=(c 10)
    
87.         (setq jb1  jb                                            ;jb1=((c 10) 11.43 16 18 32 100 12)
    
88.               loop nil
    
89.         )
    
90.       )
    
91.     )
    
92.     (setq j   -1
    
93.           jb1 (cdr jb1)                                            ;jb1=(11.43 16 18 32 100 12)
    
94.     )
    
95.     (repeat (length vb)                                            ;vb长度
    
96.       (setq j (1+ j)
    
97.             x (nth j vb)                                    ;x=vb中一一取值
    
98.       )
    
99.       (set x (nth j jb1))                                    ;vb中的值，如11.43
    
100.     )
     
101.     (close f)
     
102.     (setq
     
103.       str1
     
104.        (strcat "螺钉最大长度=" (itoa l) "; 螺纹最大长度=" (itoa b))
     
105.     )
     
106.     (set_tile "text1" str1)                                    ;用标签显示
     
107. 
     
108.     (setq str1 (read which))                                    ;str1为输入长度
     
109.     (if        (equal str1 nil)
     
110.       (setq str1 50)
     
111.     )
     
112.     (if        (< str1 l)
     
113.       (setq l str1)
     
114.     )                                                            ;若输入螺钉长小于螺钉最大长l，取输入值str1。 b=螺纹长度
     
115.     (if        (< str1 b)
     
116.       (setq b str1)
     
117.     )
     
118.   )
     
119. 
     
120.   (defun drawld        ()
     
121.     ;;(setvar "osnapcoord" 1)
     
122.     (setq x0 (getpoint "\n 请点取螺钉放置点:"))
     
123.     (setq x0 (list (car x0) (cadr x0)))                            ;转成2D
     
124.     (setq x1 (mapcar '+ x0 (list (- 0 h1) (/ d1 2.0))))
     
125.     (setq x2 (mapcar '+ x1 (list h1 0)))
     
126.     (setq x3 (mapcar '- x2 (list 0 d1)))
     
127.     (setq x4 (mapcar '- x3 (list h1 0)))
     
128.     (setq x5 (mapcar '+ x0 (list (- 0 h1) (/ dk 2.0))))
     
129.     (setq x6 (mapcar '+ x5 (list h1 0)))
     
130.     (setq x7 (mapcar '- x6 (list 0 dk)))
     
131.     (setq x8 (mapcar '- x7 (list h1 0)))
     
132.     (setq x9 (mapcar '+ x0 (list 0 (/ d 2.0))))
     
133.     (setq x20 (/ (- d d3) 2.0))                                    ;临时
     
134.     (setq x21 (mapcar '+ x9 (list l 0)))                    ;临时
     
135.     (setq x10 (mapcar '- x21 (list x20 0)))
     
136.     (setq x11 (mapcar '- x21 (list 0 x20)))
     
137.     (setq x13 (mapcar '- x10 (list 0 d)))
     
138.     (setq x12 (mapcar '+ x13 (list x20 x20)))
     
139.     (setq x14 (mapcar '- x9 (list 0 d)))
     
140.     (setq x17 (mapcar '- x11 (list b 0)))
     
141.     (setq x16 (mapcar '+ x17 (list 0 x20)))
     
142.     (setq x15 (mapcar '- x16 (list 0 d)))
     
143.     (setq x18 (mapcar '+ x15 (list 0 x20)))
     
144.     (setq x19 (mapcar '+ x0 (list 0 (/ d2 2.0))))
     
145.     (setq x20 (mapcar '+ x19 (list b 0)))
     
146.     (setq x21 (mapcar '- x20 (list 0 d2)))
     
147.     (setq x22 (mapcar '- x19 (list 0 d2)))
     
148. 
     
149.     (vl-cmdf "layer" "set" "0" "")
     
150.     (setq e0 (entlast))
     
151.     (vl-cmdf "line" x1 x2 "")
     
152.     (vl-cmdf "line" x2 x3 "")
     
153.     (vl-cmdf "line" x3 x4 "")
     
154.     (vl-cmdf "line" x6 x5 "")
     
155.     (vl-cmdf "line" x5 x8 "")
     
156.     (vl-cmdf "line" x8 x7 "")
     
157.     (vl-cmdf "line" x9 x10 "")
     
158.     (vl-cmdf "line" x10 x11 "")
     
159.     (vl-cmdf "line" x11 x12 "")
     
160.     (vl-cmdf "line" x12 x13 "")
     
161.     (vl-cmdf "line" x13 x14 "")
     
162.     (vl-cmdf "line" x15 x16 "")
     
163.     (vl-cmdf "line" x10 x13 "")
     
164.     (vl-cmdf "line" x19 x20 "")
     
165.     (vl-cmdf "line" x21 x22 "")
     
166.     (vl-cmdf "line" x17 x11 "")
     
167.     (vl-cmdf "line" x12 x18 "")
     
168.     (vl-cmdf "layer" "set" "0" "")
     
169.     (setq x1 (mapcar '+ x0 '(10 0)))
     
170.     (vl-cmdf "rotate" (lt:ss-entnext e0) "" x0 "R" x0 x1 pause)
     
171.   )
     
172. 
     
173.   (setq fname (vl-filename-mktemp nil nil ".dcl"))
     
174.   (setq fn (open fname "w"))
     
175.   (write-line "hua:dialog {" fn)
     
176.   (write-line "    label = \"画内六角螺钉\";" fn)
     
177.   (write-line ": boxed_radio_row {" fn)
     
178.   (write-line "        label=\"内六角螺钉大小\";" fn)
     
179.   (write-line "" fn)
     
180.   (write-line "        : radio_button { " fn)
     
181.   (write-line "        label=\"M1.6\";" fn)
     
182.   (write-line "        key=\"rddio1\";" fn)
     
183.   (write-line "        }" fn)
     
184.   (write-line "        : radio_button { " fn)
     
185.   (write-line "        label=\"M2\";" fn)
     
186.   (write-line "        key=\"rddio2\";" fn)
     
187.   (write-line "        }" fn)
     
188.   (write-line "        : radio_button { " fn)
     
189.   (write-line "        label=\"M3\";" fn)
     
190.   (write-line "        key=\"rddio3\";" fn)
     
191.   (write-line "        }" fn)
     
192.   (write-line "        : radio_button { " fn)
     
193.   (write-line "        label=\"M4\";" fn)
     
194.   (write-line "        key=\"rddio4\";" fn)
     
195.   (write-line "        }" fn)
     
196.   (write-line "        : radio_button { " fn)
     
197.   (write-line "        label=\"M5\";" fn)
     
198.   (write-line "        key=\"rddio5\";" fn)
     
199.   (write-line "        }" fn)
     
200.   (write-line "        : radio_button { " fn)
     
201.   (write-line "        label=\"M6\";" fn)
     
202.   (write-line "        key=\"rddio6\";" fn)
     
203.   (write-line "        }" fn)
     
204.   (write-line "        : radio_button { " fn)
     
205.   (write-line "        label=\"M8\";" fn)
     
206.   (write-line "        key=\"rddio8\";" fn)
     
207.   (write-line "        }" fn)
     
208.   (write-line "        : radio_button { " fn)
     
209.   (write-line "        label=\"M10\";" fn)
     
210.   (write-line "        key=\"rddio10\";" fn)
     
211.   (write-line "        }" fn)
     
212.   (write-line "        : radio_button { " fn)
     
213.   (write-line "        label=\"M12\";" fn)
     
214.   (write-line "        value=\"1\";" fn)
     
215.   (write-line "        key=\"rddio12\";" fn)
     
216.   (write-line "        }" fn)
     
217.   (write-line "        : radio_button { " fn)
     
218.   (write-line "        label=\"M14\";" fn)
     
219.   (write-line "        key=\"rddio14\";" fn)
     
220.   (write-line "        }" fn)
     
221.   (write-line "        : radio_button { " fn)
     
222.   (write-line "        label=\"M16\";" fn)
     
223.   (write-line "        key=\"rddio16\";" fn)
     
224.   (write-line "        }" fn)
     
225.   (write-line "        : radio_button { " fn)
     
226.   (write-line "        label=\"M20\";" fn)
     
227.   (write-line "        key=\"rddio20\";" fn)
     
228.   (write-line "        }" fn)
     
229.   (write-line "        : radio_button { " fn)
     
230.   (write-line "        label=\"M24\";" fn)
     
231.   (write-line "        key=\"rddio24\";" fn)
     
232.   (write-line "        }" fn)
     
233.   (write-line "        : radio_button { " fn)
     
234.   (write-line "        label=\"M30\";" fn)
     
235.   (write-line "        key=\"rddio30\";" fn)
     
236.   (write-line "        }" fn)
     
237.   (write-line "        : radio_button { " fn)
     
238.   (write-line "        label=\"M36\";" fn)
     
239.   (write-line "        key=\"rddio36\";" fn)
     
240.   (write-line "        }" fn)
     
241.   (write-line "" fn)
     
242.   (write-line "    }" fn)
     
243.   (write-line ": boxed_radio_row {" fn)
     
244.   (write-line "        label=\"通孔直径\";" fn)
     
245.   (write-line "        : radio_button { " fn)
     
246.   (write-line "        label=\"粗装配\";" fn)
     
247.   (write-line "        key=\"rddio51\";" fn)
     
248.   (write-line "        }" fn)
     
249.   (write-line "        : radio_button { " fn)
     
250.   (write-line "        label=\"中等装配\";" fn)
     
251.   (write-line "        key=\"rddio52\";" fn)
     
252.   (write-line "        value=\"1\";" fn)
     
253.   (write-line "        }" fn)
     
254.   (write-line "        : radio_button { " fn)
     
255.   (write-line "        label=\"精装配\";" fn)
     
256.   (write-line "        key=\"rddio53\";" fn)
     
257.   (write-line "        }" fn)
     
258.   (write-line "}" fn)
     
259.   (write-line "" fn)
     
260.   (write-line ": edit_box {" fn)
     
261.   (write-line "        label=\"输入螺钉长度\"; " fn)
     
262.   (write-line "        value =\"50\";" fn)
     
263.   (write-line "        key=\"edit1\";" fn)
     
264.   (write-line "    }" fn)
     
265.   (write-line ": text {" fn)
     
266.   (write-line "        value=\"螺纹长度 36\";" fn)
     
267.   (write-line "        key=\"text1\";" fn)
     
268.   (write-line "    }" fn)
     
269.   (write-line "ok_only;" fn)
     
270.   (write-line "" fn)
     
271.   (write-line "" fn)
     
272.   (write-line "" fn)
     
273.   (write-line "}" fn)
     
274.   (close fn)
     
275. 
     
276.   (setq dclid (load_dialog fname))
     
277.   (new_dialog "hua" dclid)
     
278.   (action_tile "edit1" "(pick_view)")
     
279.   (action_tile "rddio1" "(setq key $key)(pick_view)")
     
280.   (action_tile "rddio2" "(setq key $key)(pick_view)")
     
281.   (action_tile "rddio3" "(setq key $key)(pick_view)")
     
282.   (action_tile "rddio4" "(setq key $key)(pick_view)")
     
283.   (action_tile "rddio5" "(setq key $key)(pick_view)")
     
284.   (action_tile "rddio6" "(setq key $key)(pick_view)")
     
285.   (action_tile "rddio8" "(setq key $key)(pick_view)")
     
286.   (action_tile "rddio10" "(setq key $key)(pick_view)")
     
287.   (action_tile "rddio12" "(setq key $key)(pick_view)")
     
288.   (action_tile "rddio14" "(setq key $key)(pick_view)")
     
289.   (action_tile "rddio16" "(setq key $key)(pick_view)")
     
290.   (action_tile "rddio20" "(setq key $key)(pick_view)")
     
291.   (action_tile "rddio24" "(setq key $key)(pick_view)")
     
292.   (action_tile "rddio30" "(setq key $key)(pick_view)")
     
293.   (action_tile "rddio36" "(setq key $key)(pick_view)")
     
294.   (action_tile "accept" "(pick_view)")
     
295.   (setq return# (start_dialog))
     
296.   (unload_dialog dclid)
     
297.   (vl-file-delete fname)
     
298.   (_StartOsmode)
     
299.   (setvar 'osmode 0)
     
300.   (drawld)
     
301.   (_EndOsmode)
     
302.   (gc)
     
303.   (princ)
     
304. )

(Defun *Error* (st)<br />   (vl-bt)<br /> )<br /> ;;5 [功能] 获取在图元 en 之后产生的图元的选择集<br /> (defun lt:ss-entnext (en / ss)<br />   (if en<br />     (progn<br />       (setq ss (ssadd))<br />       (while (setq en (entnext en))<br />   (if (not (member (cdr (assoc 0 (entget en)))<br />        '("ATTRIB"<br />          "VERTEX"<br />          "SEQEND"<br />         )<br />      )<br />       )<br />     (ssadd en ss)<br />   )<br />       )<br />       (if (zerop (sslength ss))<br />   (setq ss nil)<br />       )<br />       ss<br />     )<br />     (ssget "_x")<br />   )<br /> )<br /> ;;190.1 捕捉开始<br /> (defun _StartOsmode (/ L LST)<br />   (setq L '("Autosnap" "osmode" "polarmode" "polarAng" "snapmode" "Gridmode" "SanpStyl"))<br />   (foreach x L<br />     (setq Lst (cons (cons x (getvar x)) Lst))<br />   )<br />   (setenv "MyOsmode" (VL-PRIN1-TO-STRING Lst))<br /> )<br /> ;;190.2 捕捉结束<br /> (defun _EndOsmode (/ L)<br />   (cond<br />     ((setq L (getenv "MyOsmode"))<br />      (setq L (read L))<br />      (mapcar '(lambda (x) (cond ((cdr x) (setvar (car x) (cdr x))))) L)<br />     )<br />   )<br /> )<br /> (defun hh-hua (/     pick_view         drawld             B           D         D1    D2    D3           DCLID DK<br />                E0    F           FA         FINDFIL     FN           FNAME H1    J     JB           JB1         L<br />                L1    LOOP  RETURN#     STR1  VB           WHICH X     X0    X1           X10         X11<br />                X12   X13   X14         X15   X16   X17   X18         X19   X2    X20   X21         X22<br />                X3    X4           X5         X6    X7    X8           X9 key<br />               )<br />   (defun pick_view ()<br />     (setq which (get_tile "edit1"))<br />     (cond<br />       ((= key "rddio1") (setq d 1.6))<br />       ((= key "rddio2") (setq d 2))<br />       ((= key "rddio3") (setq d 3))<br />       ((= key "rddio4") (setq d 4))<br />       ((= key "rddio5") (setq d 5))<br />       ((= key "rddio6") (setq d 6))<br />       ((= key "rddio8") (setq d 8))<br />       ((= key "rddio10") (setq d 10))<br />       ;;((= key "rddio12") (setq d 12))<br />       ((= key "rddio14") (setq d 14))<br />       ((= key "rddio16") (setq d 16))<br />       ((= key "rddio20") (setq d 20))<br />       ((= key "rddio24") (setq d 24))<br />       ((= key "rddio30") (setq d 30))<br />       ((= key "rddio36") (setq d 36))<br />       (T (setq d 12))<br />     )<br />     ;;去除下面部分<br />     (cond<br />       ((= "1" (get_tile "rddio51")) (setq l1 "c"))<br />       ;;((= "1" (get_tile "rddio52")) (setq l1 "z"))<br />       ((= "1" (get_tile "rddio53")) (setq l1 "j"))<br />       (T (setq l1 "z"))<br />     )<br />     ;;d3-螺纹小径，d2-通孔直径，l-螺栓长，B-螺纹长，d1-螺栓头通孔,dk-螺栓头直径，h1-螺栓头深<br />     (setq fa (list (read l1) d))                            ;fa(c 12)型式<br />     (setq findfil (findfile "ld1-t.txt"))<br />     (setq f (open findfil "r"))<br />     (setq vb (read (read-line f)))                            ; 读表头入vb=(h1 dk d1 b l d2 d3)<br />     (setq loop T)                                            ;初赋loop为真<br />     (while loop<br />       (setq jb (read (read-line f)))<br />       (if (equal fa (car jb))                                    ;fa=(c 10)<br />         (setq jb1  jb                                            ;jb1=((c 10) 11.43 16 18 32 100 12)<br />               loop nil<br />         )<br />       )<br />     )<br />     (setq j   -1<br />           jb1 (cdr jb1)                                            ;jb1=(11.43 16 18 32 100 12)<br />     )<br />     (repeat (length vb)                                            ;vb长度<br />       (setq j (1+ j)<br />             x (nth j vb)                                    ;x=vb中一一取值<br />       )<br />       (set x (nth j jb1))                                    ;vb中的值，如11.43<br />     )<br />     (close f)<br />     (setq<br />       str1<br />        (strcat "螺钉最大长度=" (itoa l) "; 螺纹最大长度=" (itoa b))<br />     )<br />     (set_tile "text1" str1)                                    ;用标签显示<br /> <br />     (setq str1 (read which))                                    ;str1为输入长度<br />     (if        (equal str1 nil)<br />       (setq str1 50)<br />     )<br />     (if        (< str1 l)<br />       (setq l str1)<br />     )                                                            ;若输入螺钉长小于螺钉最大长l，取输入值str1。 b=螺纹长度<br />     (if        (< str1 b)<br />       (setq b str1)<br />     )<br />   )<br /> <br />   (defun drawld        ()<br />     ;;(setvar "osnapcoord" 1)<br />     (setq x0 (getpoint "\n 请点取螺钉放置点:"))<br />     (setq x0 (list (car x0) (cadr x0)))                            ;转成2D <br />     (setq x1 (mapcar '+ x0 (list (- 0 h1) (/ d1 2.0))))<br />     (setq x2 (mapcar '+ x1 (list h1 0)))<br />     (setq x3 (mapcar '- x2 (list 0 d1)))<br />     (setq x4 (mapcar '- x3 (list h1 0)))<br />     (setq x5 (mapcar '+ x0 (list (- 0 h1) (/ dk 2.0))))<br />     (setq x6 (mapcar '+ x5 (list h1 0)))<br />     (setq x7 (mapcar '- x6 (list 0 dk)))<br />     (setq x8 (mapcar '- x7 (list h1 0)))<br />     (setq x9 (mapcar '+ x0 (list 0 (/ d 2.0))))<br />     (setq x20 (/ (- d d3) 2.0))                                    ;临时<br />     (setq x21 (mapcar '+ x9 (list l 0)))                    ;临时<br />     (setq x10 (mapcar '- x21 (list x20 0)))<br />     (setq x11 (mapcar '- x21 (list 0 x20)))<br />     (setq x13 (mapcar '- x10 (list 0 d)))<br />     (setq x12 (mapcar '+ x13 (list x20 x20)))<br />     (setq x14 (mapcar '- x9 (list 0 d)))<br />     (setq x17 (mapcar '- x11 (list b 0)))<br />     (setq x16 (mapcar '+ x17 (list 0 x20)))<br />     (setq x15 (mapcar '- x16 (list 0 d)))<br />     (setq x18 (mapcar '+ x15 (list 0 x20)))<br />     (setq x19 (mapcar '+ x0 (list 0 (/ d2 2.0))))<br />     (setq x20 (mapcar '+ x19 (list b 0)))<br />     (setq x21 (mapcar '- x20 (list 0 d2)))<br />     (setq x22 (mapcar '- x19 (list 0 d2)))<br /> <br />     (vl-cmdf "layer" "set" "0" "")<br />     (setq e0 (entlast))<br />     (vl-cmdf "line" x1 x2 "")<br />     (vl-cmdf "line" x2 x3 "")<br />     (vl-cmdf "line" x3 x4 "")<br />     (vl-cmdf "line" x6 x5 "")<br />     (vl-cmdf "line" x5 x8 "")<br />     (vl-cmdf "line" x8 x7 "")<br />     (vl-cmdf "line" x9 x10 "")<br />     (vl-cmdf "line" x10 x11 "")<br />     (vl-cmdf "line" x11 x12 "")<br />     (vl-cmdf "line" x12 x13 "")<br />     (vl-cmdf "line" x13 x14 "")<br />     (vl-cmdf "line" x15 x16 "")<br />     (vl-cmdf "line" x10 x13 "")<br />     (vl-cmdf "line" x19 x20 "")<br />     (vl-cmdf "line" x21 x22 "")<br />     (vl-cmdf "line" x17 x11 "")<br />     (vl-cmdf "line" x12 x18 "")<br />     (vl-cmdf "layer" "set" "0" "")<br />     (setq x1 (mapcar '+ x0 '(10 0)))<br />     (vl-cmdf "rotate" (lt:ss-entnext e0) "" x0 "R" x0 x1 pause)<br />   )<br /> <br />   (setq fname (vl-filename-mktemp nil nil ".dcl"))<br />   (setq fn (open fname "w"))<br />   (write-line "hua:dialog {" fn)<br />   (write-line "    label = \"画内六角螺钉\";" fn)<br />   (write-line ": boxed_radio_row {" fn)<br />   (write-line "        label=\"内六角螺钉大小\";" fn)<br />   (write-line "" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M1.6\";" fn)<br />   (write-line "        key=\"rddio1\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M2\";" fn)<br />   (write-line "        key=\"rddio2\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M3\";" fn)<br />   (write-line "        key=\"rddio3\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M4\";" fn)<br />   (write-line "        key=\"rddio4\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M5\";" fn)<br />   (write-line "        key=\"rddio5\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M6\";" fn)<br />   (write-line "        key=\"rddio6\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M8\";" fn)<br />   (write-line "        key=\"rddio8\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M10\";" fn)<br />   (write-line "        key=\"rddio10\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M12\";" fn)<br />   (write-line "        value=\"1\";" fn)<br />   (write-line "        key=\"rddio12\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M14\";" fn)<br />   (write-line "        key=\"rddio14\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M16\";" fn)<br />   (write-line "        key=\"rddio16\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M20\";" fn)<br />   (write-line "        key=\"rddio20\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M24\";" fn)<br />   (write-line "        key=\"rddio24\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M30\";" fn)<br />   (write-line "        key=\"rddio30\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"M36\";" fn)<br />   (write-line "        key=\"rddio36\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "" fn)<br />   (write-line "    }" fn)<br />   (write-line ": boxed_radio_row {" fn)<br />   (write-line "        label=\"通孔直径\";" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"粗装配\";" fn)<br />   (write-line "        key=\"rddio51\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"中等装配\";" fn)<br />   (write-line "        key=\"rddio52\";" fn)<br />   (write-line "        value=\"1\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "        : radio_button { " fn)<br />   (write-line "        label=\"精装配\";" fn)<br />   (write-line "        key=\"rddio53\";" fn)<br />   (write-line "        }" fn)<br />   (write-line "}" fn)<br />   (write-line "" fn)<br />   (write-line ": edit_box {" fn)<br />   (write-line "        label=\"输入螺钉长度\"; " fn)<br />   (write-line "        value =\"50\";" fn)<br />   (write-line "        key=\"edit1\";" fn)<br />   (write-line "    }" fn)<br />   (write-line ": text {" fn)<br />   (write-line "        value=\"螺纹长度 36\";" fn)<br />   (write-line "        key=\"text1\";" fn)<br />   (write-line "    }" fn)<br />   (write-line "ok_only;" fn)<br />   (write-line "" fn)<br />   (write-line "" fn)<br />   (write-line "" fn)<br />   (write-line "}" fn)<br />   (close fn)<br /> <br />   (setq dclid (load_dialog fname))<br />   (new_dialog "hua" dclid)<br />   (action_tile "edit1" "(pick_view)")<br />   (action_tile "rddio1" "(setq key $key)(pick_view)")<br />   (action_tile "rddio2" "(setq key $key)(pick_view)")<br />   (action_tile "rddio3" "(setq key $key)(pick_view)")<br />   (action_tile "rddio4" "(setq key $key)(pick_view)")<br />   (action_tile "rddio5" "(setq key $key)(pick_view)")<br />   (action_tile "rddio6" "(setq key $key)(pick_view)")<br />   (action_tile "rddio8" "(setq key $key)(pick_view)")<br />   (action_tile "rddio10" "(setq key $key)(pick_view)")<br />   (action_tile "rddio12" "(setq key $key)(pick_view)")<br />   (action_tile "rddio14" "(setq key $key)(pick_view)")<br />   (action_tile "rddio16" "(setq key $key)(pick_view)")<br />   (action_tile "rddio20" "(setq key $key)(pick_view)")<br />   (action_tile "rddio24" "(setq key $key)(pick_view)")<br />   (action_tile "rddio30" "(setq key $key)(pick_view)")<br />   (action_tile "rddio36" "(setq key $key)(pick_view)")<br />   (action_tile "accept" "(pick_view)")<br />   (setq return# (start_dialog))<br />   (unload_dialog dclid)<br />   (vl-file-delete fname)<br />   (_StartOsmode)<br />   (setvar 'osmode 0)<br />   (drawld)<br />   (_EndOsmode)<br />   (gc)<br />   (princ)<br /> )

kqqt6236

黄大师整天捣鼓这些稀罕玩意儿。

WhoCanSay

怪事
(princ "\n BBBBB")(princ b)   
(setq x0 (getpoint "\n 请点取螺钉放置点:"))
(princ "\n CCCC")(princ b)
这三句连续写，中间没有其它代码，显示的b值不一样，后面一个为nil

WhoCanSay

楼主人品真差，没有人来帮忙。问题没有找到，解决办法倒是有了。

aeo

呵呵

人品是差
---------------------
(setq L '("Autosnap" "osmode" "polarmode" "polarAng" "snapmode" "Gridmode" "SanpStyl"))
最后一个 "SanpStyl" ，应该是 snapstyl 吧
没调试。因为没下附件。
----------------------
叫人帮忙还叫人付费， 好人品

WhoCanSay

aeo 发表于 2016-9-23 10:22

版主说的是。
不过，我觉得一个豆不算什么，而且那个豆与问题无关。

xvjiex

感谢分享 2016的Vlisp(vlide)很有意思--画内角螺钉和怪事