新手 结尾不是空响应NIL怎么消除

h199101

是这样的 全部过程执行完后 在命令行出现了  （指定插入点：未知命令“BTL”。按 F1 查看帮助。）红色部分是执行完后出现的 怎么消除？？？

哈哈 j解决了 真的是多了一个""

Gu_xl

应该是Command后多了个””！

zhuquanmao

就是 又执行了次命令

h199101

Gu_xl 发表于 2013-5-15 18:24
应该是Command后多了个””！

能不能帮我看看代码啊

x_s_s_1

h199101 发表于 2013-5-15 21:11
能不能帮我看看代码啊

代码捏，么有看到

h199101

;;;;;;;;;;

h199101

x_s_s_1 发表于 2013-5-15 21:22
代码捏，么有看到

在吗 多谢了 代码发了 在下一楼 请移步

x_s_s_1

还是木有看到，太机密了

h199101

h199101 发表于 2013-5-15 21:28
在吗 多谢了 代码发了 在下一楼 请移步

找到了"" 呵呵 多谢多谢

h199101

x_s_s_1 发表于 2013-5-15 21:36
还是木有看到，太机密了

不是的 我是新手 只会简单的 我贴出来你们不要笑

1. btl:dialog{
   
2. label="标题栏";
   
3. :edit_box{label="图名：";
   
4. key="tuming";
   
5. edit_width=20;
   
6. }
   
7. :edit_box{label="比例：";
   
8. key="bili";
   
9. edit_width=20;
   
10. }
    
11. :edit_box{label="图号：";
    
12. key="tuhao";
    
13. edit_width=20;
    
14. }
    
15. :edit_box{label="制图签名：";
    
16. key="zhitu";
    
17. edit_width=20;
    
18. }
    
19. :edit_box{label="学号：";
    
20. key="xuehao";
    
21. edit_width=20;
    
22. }
    
23. :edit_box{label="日期：";
    
24. key="riqi";
    
25. edit_width=20;
    
26. }
    
27. :edit_box{label="校名全称：";
    
28. key="xiaoming";
    
29. edit_width=20;
    
30. }
    
31. spacer_1;
    
32. ok_only;
    
33. }
    
34. 
    

btl:dialog{<br /> label="标题栏";<br /> :edit_box{label="图名：";<br /> key="tuming";<br /> edit_width=20;<br /> }<br /> :edit_box{label="比例：";<br /> key="bili";<br /> edit_width=20;<br /> }<br /> :edit_box{label="图号：";<br /> key="tuhao";<br /> edit_width=20;<br /> }<br /> :edit_box{label="制图签名：";<br /> key="zhitu";<br /> edit_width=20;<br /> }<br /> :edit_box{label="学号：";<br /> key="xuehao";<br /> edit_width=20;<br /> }<br /> :edit_box{label="日期：";<br /> key="riqi";<br /> edit_width=20;<br /> }<br /> :edit_box{label="校名全称：";<br /> key="xiaoming";<br /> edit_width=20;<br /> }<br /> spacer_1;<br /> ok_only;<br /> }<br /> <br />

1. (defun c:btl ()
   
2.   (setvar "cmdecho" 0)
   
3.   (dcl_btl)
   
4.   (setvar "osmode" os)
   
5.   (prin1)
   
6. )
   
7. (defun dcl_btl ()
   
8.   (setq dcl_id (load_dialog "btl"))
   
9.   (new_dialog "btl" dcl_id)
   
10.   (action_tile "accept" "(ok_btl) (done_dialog 1)")
    
11.   (setq dd (START_DIALOG))
    
12.   (if (= dd 1)
    
13.     (c:mm)
    
14.   )
    
15. )
    
16. (defun ok_btl ()
    
17.   (setq tuming (get_tile "tuming"))
    
18.   (setq bili (get_tile "bili"))
    
19.   (setq tuhao (get_tile "tuhao"))
    
20.   (setq zhitu (get_tile "zhitu"))
    
21.   (setq xuehao (get_tile "xuehao"))
    
22.   (setq riqi (get_tile "riqi"))
    
23.   (setq xiaoming (get_tile "xiaoming"))
    
24. )
    
25. (defun c:mm ()
    
26.   (setq p1 (getpoint "\n指定插入点："))
    
27.   (setq os (getvar "osmode"))
    
28.   (setvar "osmode" 0)
    
29.   (setq p2 (POLAR p1 (/ pi 2) 32))
    
30.   (setq p3 (POLAR p2 pi 130))
    
31.   (setq p4 (POLAR p1 pi 130))
    
32.   (command "pline" p1 "w" 0.7 0.7 p2 p3 p4 "c")
    
33.   (setq p12 (polar p1 (/ pi 2) 16))
    
34.   (setq p34 (polar p4 (/ pi 2) 16))
    
35.   (command "line" p12 p34 "")
    
36.   (setq a1 (polar p1 (/ pi 2) 24))
    
37.   (setq b1 (polar a1 pi 40))
    
38.   (setq g1 (polar a1 pi 25))
    
39.   (setq c1 (polar p2 pi 25))
    
40.   (setq e1 (polar p2 pi 40))
    
41.   (setq d1 (polar p12 pi 25))
    
42.   (setq f1 (polar p12 pi 40))
    
43.   (command "line" a1 b1 "")
    
44.   (command "line" c1 d1 "")
    
45.   (command "line" e1 f1 "")
    
46.   (setq g2 (polar p4 0 15))
    
47.   (setq d2 (polar p4 0 40))
    
48.   (setq a2 (polar p4 0 65))
    
49.   (setq k2 (polar p4 (/ pi 2) 8))
    
50.   (setq h2 (polar k2 0 15))
    
51.   (setq e2 (polar k2 0 40))
    
52.   (setq b2 (polar k2 0 65))
    
53.   (setq i2 (polar p34 0 15))
    
54.   (setq f2 (polar p34 0 40))
    
55.   (setq c2 (polar p34 0 65))
    
56.   (command "line" i2 g2 "")
    
57.   (command "line" f2 d2 "")
    
58.   (command "line" c2 a2 "")
    
59.   (command "line" k2 b2 "")
    
60.   (setq m1 (polar b1 pi 45))
    
61.   (setq m2 (polar (polar p1 (/ pi 2) 28) pi 32.5))
    
62.   (setq m4 (polar (polar p1 (/ pi 2) 28) pi 12.5))
    
63.   (setq m3 (polar (polar p1 (/ pi 2) 20) pi 32.5))
    
64.   (setq m5 (polar (polar p1 (/ pi 2) 20) pi 12.5))
    
65.   (setq m6 (polar (polar p4 (/ pi 2) 12) 0 7.5))
    
66.   (setq m8 (polar (polar p4 (/ pi 2) 12) 0 27.5))
    
67.   (setq m9 (polar (polar p4 (/ pi 2) 12) 0 52.5))
    
68.   (setq m7 (polar (polar p4 (/ pi 2) 4) 0 7.5))
    
69.   (setq m10 (polar (polar p4 (/ pi 2) 4) 0 52.5))
    
70.   (setq m11 (polar k2 0 97.5))
    
71.   (command "style" "fs_GB2312" "仿宋_GB2312" "0" "0.67"        "0" "" "")
    
72.   (command "text" "j" "mc" m2 5 0 "比例")
    
73.   (command "text" "j" "mc" m3 5 0 "图号")
    
74.   (command "text" "j" "mc" m6 5 0 "制图")
    
75.   (command "text" "j" "mc" m7 5 0 "审核")
    
76.   (command "text" "j" "mc" m1 7 0 tuming)
    
77.   (command "text" "j" "mc" m4 5 0 bili)
    
78.   (command "text" "j" "mc" m5 5 0 tuhao)
    
79.   (command "text" "j" "mc" m8 5 0 zhitu)
    
80.   (command "text" "j" "mc" m9 5 0 xuehao)
    
81.   (command "text" "j" "mc" m10 5 0 riqi)
    
82.   (command "text" "j" "mc" m11 7 0 xiaoming)
    
83. )
    
84. 
    

(defun c:btl ()<br />   (setvar "cmdecho" 0)<br />   (dcl_btl)<br />   (setvar "osmode" os)<br />   (prin1)<br /> )<br /> (defun dcl_btl ()<br />   (setq dcl_id (load_dialog "btl"))<br />   (new_dialog "btl" dcl_id)<br />   (action_tile "accept" "(ok_btl) (done_dialog 1)")<br />   (setq dd (START_DIALOG))<br />   (if (= dd 1)<br />     (c:mm)<br />   )<br /> )<br /> (defun ok_btl ()<br />   (setq tuming (get_tile "tuming"))<br />   (setq bili (get_tile "bili"))<br />   (setq tuhao (get_tile "tuhao"))<br />   (setq zhitu (get_tile "zhitu"))<br />   (setq xuehao (get_tile "xuehao"))<br />   (setq riqi (get_tile "riqi"))<br />   (setq xiaoming (get_tile "xiaoming"))<br /> )<br /> (defun c:mm ()<br />   (setq p1 (getpoint "\n指定插入点："))<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq p2 (POLAR p1 (/ pi 2) 32))<br />   (setq p3 (POLAR p2 pi 130))<br />   (setq p4 (POLAR p1 pi 130))<br />   (command "pline" p1 "w" 0.7 0.7 p2 p3 p4 "c")<br />   (setq p12 (polar p1 (/ pi 2) 16))<br />   (setq p34 (polar p4 (/ pi 2) 16))<br />   (command "line" p12 p34 "")<br />   (setq a1 (polar p1 (/ pi 2) 24))<br />   (setq b1 (polar a1 pi 40))<br />   (setq g1 (polar a1 pi 25))<br />   (setq c1 (polar p2 pi 25))<br />   (setq e1 (polar p2 pi 40))<br />   (setq d1 (polar p12 pi 25))<br />   (setq f1 (polar p12 pi 40))<br />   (command "line" a1 b1 "")<br />   (command "line" c1 d1 "")<br />   (command "line" e1 f1 "")<br />   (setq g2 (polar p4 0 15))<br />   (setq d2 (polar p4 0 40))<br />   (setq a2 (polar p4 0 65))<br />   (setq k2 (polar p4 (/ pi 2) 8))<br />   (setq h2 (polar k2 0 15))<br />   (setq e2 (polar k2 0 40))<br />   (setq b2 (polar k2 0 65))<br />   (setq i2 (polar p34 0 15))<br />   (setq f2 (polar p34 0 40))<br />   (setq c2 (polar p34 0 65))<br />   (command "line" i2 g2 "")<br />   (command "line" f2 d2 "")<br />   (command "line" c2 a2 "")<br />   (command "line" k2 b2 "")<br />   (setq m1 (polar b1 pi 45))<br />   (setq m2 (polar (polar p1 (/ pi 2) 28) pi 32.5))<br />   (setq m4 (polar (polar p1 (/ pi 2) 28) pi 12.5))<br />   (setq m3 (polar (polar p1 (/ pi 2) 20) pi 32.5))<br />   (setq m5 (polar (polar p1 (/ pi 2) 20) pi 12.5))<br />   (setq m6 (polar (polar p4 (/ pi 2) 12) 0 7.5))<br />   (setq m8 (polar (polar p4 (/ pi 2) 12) 0 27.5))<br />   (setq m9 (polar (polar p4 (/ pi 2) 12) 0 52.5))<br />   (setq m7 (polar (polar p4 (/ pi 2) 4) 0 7.5))<br />   (setq m10 (polar (polar p4 (/ pi 2) 4) 0 52.5))<br />   (setq m11 (polar k2 0 97.5))<br />   (command "style" "fs_GB2312" "仿宋_GB2312" "0" "0.67"        "0" "" "")<br />   (command "text" "j" "mc" m2 5 0 "比例")<br />   (command "text" "j" "mc" m3 5 0 "图号")<br />   (command "text" "j" "mc" m6 5 0 "制图")<br />   (command "text" "j" "mc" m7 5 0 "审核")<br />   (command "text" "j" "mc" m1 7 0 tuming)<br />   (command "text" "j" "mc" m4 5 0 bili)<br />   (command "text" "j" "mc" m5 5 0 tuhao)<br />   (command "text" "j" "mc" m8 5 0 zhitu)<br />   (command "text" "j" "mc" m9 5 0 xuehao)<br />   (command "text" "j" "mc" m10 5 0 riqi)<br />   (command "text" "j" "mc" m11 7 0 xiaoming)<br /> )<br /> <br />