可视化DCL新思路简易版

YANGGY

试试能用不？

自贡黄明儒

什么呀，根本不能用

vlisp2012

下载下来看看。

机械工程师

error:no function definition: GETDCL
; 错误: *error* 函数中出错quit / exit abort

vlisp2012

命令: TT
; 错误: no function definition: GETDCL

xiaoyuzj-503

LZ。是否可以截个图看看？

hao3ren

呵呵，可以看到，函数里面都有

梦回唐朝

可以用的，很好

edata

1：tt命令里的局部函数定义要放在前面，否则函数无效。
Autolisp默认是一行一行执行，

2. (defun c:tt (/ dcl_id f file i stra)        ;这里就是你要的排列样式
   
3.    
   
4. 
   
5.    
   
6. 
   
7. 
   
8. 
   
9.     ;;按钮
   
10.     (defun buttond1 (/ dinf)
    
11.         (setq
    
12.             dinf
    
13.                (strcat
    
14.                    " : button {  "
    
15.                    " label ="预览(R)"; "
    
16.                    " key =  "PreviewBtn "; "
    
17.                    "  mnemonic = "R"; "
    
18.                    "  is_enabled = false; "
    
19.                    "  }  "
    
20.                   )
    
21.         )
    
22.         dinf
    
23.     )
    
24. 
    
25.     ;;图像
    
26.     (defun imaged (/ dinf)
    
27.         (setq
    
28.             dinf
    
29.                (strcat
    
30.                    " : image {  "
    
31.                    " key =  "Previewss "; "
    
32.                    "  mnemonic = "R"; "
    
33.                    "  is_enabled = false; "
    
34.                    "  }  "
    
35.                   )
    
36.         )
    
37.         dinf
    
38.     )
    
39. 
    
40. 
    
41.     ;;文字
    
42.     (defun textd (/ dinf)
    
43.         (setq
    
44.             dinf
    
45.                (strcat
    
46.                    " : text { "
    
47.                    " label = "打印设备名：";  "
    
48.                    " value = "打印设备名：";  "
    
49.                    " key = "PlotterLabel"; "
    
50.                    " } "
    
51.                   )
    
52.         )
    
53.         dinf
    
54.     )
    
55.     ;;编辑框
    
56.     (defun edit_boxd (/ dinf)
    
57.         (setq dinf (strcat
    
58.                        ": edit_box {"
    
59.                        " label = "打印份数:";"
    
60.                        " value = "1";"
    
61.                        " key = "CopiesEdit";"
    
62.                        " width = 8;"
    
63.                        " fixed_width = true;"
    
64.                        " }"
    
65.                       )
    
66.         )
    
67.         dinf
    
68.     )
    
69. 
    
70. 
    
71.     ;;单选钮
    
72.     (defun radio_buttond (str1v / dinf)
    
73.         (setq dinf (strcat
    
74.                        " : radio_button { "
    
75.                        " label = "适合图纸"; "
    
76.                        (strcat " key = "" str1v " "; ")
    
77.                        " }"
    
78.                    )
    
79.         )
    
80.         dinf
    
81.     )
    
82. 
    
83.     ;;多选钮
    
84.     (defun toggled (str1 / dinf)
    
85.         (setq dinf (strcat
    
86.                        " : toggle {  "
    
87.                        " label = "自动旋转";  "
    
88.                        (strcat " key = " " str1 " ";   ")
    
89.                        " } "
    
90.                    )
    
91.         )
    
92.         dinf
    
93.     )
    
94. 
    
95.     ;;下拉菜单
    
96.     (defun popup_listd (/ dinf)
    
97.         (setq dinf (strcat
    
98.                        " : popup_list { "
    
99.                        " key = "LayerNameEdit"; "
    
100.                        " fixed_height = false; "
     
101.                        " fixed_width = true;  "
     
102.                        " width = 20; "
     
103.                        " }  "
     
104.                       )
     
105.         )
     
106.         dinf
     
107.     )
     
108. 
     
109. 
     
110.     ;;行框
     
111.     (defun boxed_rowd (/ dinf)
     
112.         (setq dinf (strcat
     
113.                        ": boxed_row {"
     
114.                        "label = "图纸定位";"
     
115.                        "key = "LocationSettings";"
     
116.                    )
     
117.         )
     
118.         dinf
     
119.     )
     
120.     ;;少“}”
     
121. 
     
122. 
     
123.     ;;单选行
     
124.     (defun radio_rowd (/ dinf)
     
125.         (setq dinf " : radio_row { ")
     
126.         dinf
     
127.     )
     
128.     ;;少“}”
     
129. 
     
130.     ;;单选列
     
131.     (defun radio_columnd (/ dinf)
     
132.         (setq dinf " : radio_column { ")
     
133.         dinf
     
134.     )
     
135.     ;;少“}”
     
136. 
     
137. 
     
138.     ;;行
     
139.     (defun rowd        (/ dinf)
     
140.         (setq dinf " : row {  ")
     
141.         dinf
     
142.     )
     
143.     ;;少“}”
     
144. 
     
145. 
     
146.     ;;列
     
147.     (defun columnd (/ dinf)
     
148.         (setq dinf " : column {  ")
     
149.         dinf
     
150.     )
     
151.     ;;少“}”
     
152.   ;;局部函数先加载
     
153.   (setq stra "nonsmall:dialog{label="可视化DCL";")
     
154.     (setq stra (strcat stra (getdcl dcl)))
     
155.     (setq stra (strcat stra "ok_cancel;}"))
     
156.                                         ;把DCL代码写出并且调用观看效果
     
157.     (setq file "d:\\test.dcl")
     
158.     (if        (findfile file)
     
159.         (setq f (open "d:\\test.dcl" "w"))
     
160.         (setq f (open "d:\\test.dcl" "a"))
     
161.     )
     
162.     (write-line stra f)
     
163.     (close f)
     
164.     (setq dcl_id (load_dialog file))
     
165.     (new_dialog "nonsmall" dcl_id)
     
166.     (start_dialog)
     
167.     (unload_dialog dcl_id)
     
168.     (startapp "notepad" file)
     
169.     (princ)
     
170. 
     
171. 
     
172. 
     
173. )

(defun c:tt (/ dcl_id f file i stra)        ;这里就是你要的排列样式 <br />     <br /> <br />     <br /> <br /> <br /> <br />     ;;按钮<br />     (defun buttond1 (/ dinf)<br />         (setq<br />             dinf<br />                (strcat<br />                    " : button {  "<br />                    " label ="预览(R)"; "<br />                    " key =  "PreviewBtn "; "<br />                    "  mnemonic = "R"; "<br />                    "  is_enabled = false; "<br />                    "  }  "<br />                   )<br />         )<br />         dinf<br />     )<br /> <br />     ;;图像<br />     (defun imaged (/ dinf)<br />         (setq<br />             dinf<br />                (strcat<br />                    " : image {  "<br />                    " key =  "Previewss "; "<br />                    "  mnemonic = "R"; "<br />                    "  is_enabled = false; "<br />                    "  }  "<br />                   )<br />         )<br />         dinf<br />     )<br /> <br /> <br />     ;;文字<br />     (defun textd (/ dinf)<br />         (setq<br />             dinf<br />                (strcat<br />                    " : text { "<br />                    " label = "打印设备名：";  "<br />                    " value = "打印设备名：";  "<br />                    " key = "PlotterLabel"; "<br />                    " } "<br />                   )<br />         )<br />         dinf<br />     )<br />     ;;编辑框<br />     (defun edit_boxd (/ dinf)<br />         (setq dinf (strcat<br />                        ": edit_box {"<br />                        " label = "打印份数:";"<br />                        " value = "1";"<br />                        " key = "CopiesEdit";"<br />                        " width = 8;"<br />                        " fixed_width = true;"<br />                        " }"<br />                       )<br />         )<br />         dinf<br />     )<br /> <br /> <br />     ;;单选钮<br />     (defun radio_buttond (str1v / dinf)<br />         (setq dinf (strcat<br />                        " : radio_button { "<br />                        " label = "适合图纸"; "<br />                        (strcat " key = "" str1v " "; ")<br />                        " }"<br />                    )<br />         )<br />         dinf<br />     )<br /> <br />     ;;多选钮<br />     (defun toggled (str1 / dinf)<br />         (setq dinf (strcat<br />                        " : toggle {  "<br />                        " label = "自动旋转";  "<br />                        (strcat " key = " " str1 " ";   ")<br />                        " } "<br />                    )<br />         )<br />         dinf<br />     )<br /> <br />     ;;下拉菜单<br />     (defun popup_listd (/ dinf)<br />         (setq dinf (strcat<br />                        " : popup_list { "<br />                        " key = "LayerNameEdit"; "<br />                        " fixed_height = false; "<br />                        " fixed_width = true;  "<br />                        " width = 20; "<br />                        " }  "<br />                       )<br />         )<br />         dinf<br />     )<br /> <br /> <br />     ;;行框<br />     (defun boxed_rowd (/ dinf)<br />         (setq dinf (strcat<br />                        ": boxed_row {"<br />                        "label = "图纸定位";"<br />                        "key = "LocationSettings";"<br />                    )<br />         )<br />         dinf<br />     )<br />     ;;少“}” <br /> <br /> <br />     ;;单选行<br />     (defun radio_rowd (/ dinf)<br />         (setq dinf " : radio_row { ")<br />         dinf<br />     )<br />     ;;少“}” <br /> <br />     ;;单选列<br />     (defun radio_columnd (/ dinf)<br />         (setq dinf " : radio_column { ")<br />         dinf<br />     )<br />     ;;少“}”<br /> <br /> <br />     ;;行<br />     (defun rowd        (/ dinf)<br />         (setq dinf " : row {  ")<br />         dinf<br />     )<br />     ;;少“}”<br /> <br /> <br />     ;;列<br />     (defun columnd (/ dinf)<br />         (setq dinf " : column {  ")<br />         dinf<br />     )<br />     ;;少“}”<br />   ;;局部函数先加载<br />   (setq stra "nonsmall:dialog{label="可视化DCL";")<br />     (setq stra (strcat stra (getdcl dcl)))<br />     (setq stra (strcat stra "ok_cancel;}"))<br />                                         ;把DCL代码写出并且调用观看效果 <br />     (setq file "d:\\test.dcl")<br />     (if        (findfile file)<br />         (setq f (open "d:\\test.dcl" "w"))<br />         (setq f (open "d:\\test.dcl" "a"))<br />     )<br />     (write-line stra f)<br />     (close f)<br />     (setq dcl_id (load_dialog file))<br />     (new_dialog "nonsmall" dcl_id)<br />     (start_dialog)<br />     (unload_dialog dcl_id)<br />     (startapp "notepad" file)<br />     (princ)<br /> <br /> <br /> <br /> )

2：将局部函数定义成全局函数

2. (defun c:tt (/ dcl_id f file i stra)        ;这里就是你要的排列样式
   
3.    
   
4.   (setq stra "nonsmall:dialog{label="可视化DCL";")
   
5.     (setq stra (strcat stra (getdcl dcl)))
   
6.     (setq stra (strcat stra "ok_cancel;}"))
   
7.                                         ;把DCL代码写出并且调用观看效果
   
8.     (setq file "d:\\test.dcl")
   
9.     (if        (findfile file)
   
10.         (setq f (open "d:\\test.dcl" "w"))
    
11.         (setq f (open "d:\\test.dcl" "a"))
    
12.     )
    
13.     (write-line stra f)
    
14.     (close f)
    
15.     (setq dcl_id (load_dialog file))
    
16.     (new_dialog "nonsmall" dcl_id)
    
17.     (start_dialog)
    
18.     (unload_dialog dcl_id)
    
19.     (startapp "notepad" file)
    
20.     (princ)
    
21. 
    
22. 
    
23. 
    
24. );;;;;;TT函数结束
    
25.    
    
26. 
    
27.    
    
28. 
    
29. 
    
30. 
    
31.     ;;按钮
    
32.     (defun buttond1 (/ dinf)
    
33.         (setq
    
34.             dinf
    
35.                (strcat
    
36.                    " : button {  "
    
37.                    " label ="预览(R)"; "
    
38.                    " key =  "PreviewBtn "; "
    
39.                    "  mnemonic = "R"; "
    
40.                    "  is_enabled = false; "
    
41.                    "  }  "
    
42.                   )
    
43.         )
    
44.         dinf
    
45.     )
    
46. 
    
47.     ;;图像
    
48.     (defun imaged (/ dinf)
    
49.         (setq
    
50.             dinf
    
51.                (strcat
    
52.                    " : image {  "
    
53.                    " key =  "Previewss "; "
    
54.                    "  mnemonic = "R"; "
    
55.                    "  is_enabled = false; "
    
56.                    "  }  "
    
57.                   )
    
58.         )
    
59.         dinf
    
60.     )
    
61. 
    
62. 
    
63.     ;;文字
    
64.     (defun textd (/ dinf)
    
65.         (setq
    
66.             dinf
    
67.                (strcat
    
68.                    " : text { "
    
69.                    " label = "打印设备名：";  "
    
70.                    " value = "打印设备名：";  "
    
71.                    " key = "PlotterLabel"; "
    
72.                    " } "
    
73.                   )
    
74.         )
    
75.         dinf
    
76.     )
    
77.     ;;编辑框
    
78.     (defun edit_boxd (/ dinf)
    
79.         (setq dinf (strcat
    
80.                        ": edit_box {"
    
81.                        " label = "打印份数:";"
    
82.                        " value = "1";"
    
83.                        " key = "CopiesEdit";"
    
84.                        " width = 8;"
    
85.                        " fixed_width = true;"
    
86.                        " }"
    
87.                       )
    
88.         )
    
89.         dinf
    
90.     )
    
91. 
    
92. 
    
93.     ;;单选钮
    
94.     (defun radio_buttond (str1v / dinf)
    
95.         (setq dinf (strcat
    
96.                        " : radio_button { "
    
97.                        " label = "适合图纸"; "
    
98.                        (strcat " key = "" str1v " "; ")
    
99.                        " }"
    
100.                    )
     
101.         )
     
102.         dinf
     
103.     )
     
104. 
     
105.     ;;多选钮
     
106.     (defun toggled (str1 / dinf)
     
107.         (setq dinf (strcat
     
108.                        " : toggle {  "
     
109.                        " label = "自动旋转";  "
     
110.                        (strcat " key = " " str1 " ";   ")
     
111.                        " } "
     
112.                    )
     
113.         )
     
114.         dinf
     
115.     )
     
116. 
     
117.     ;;下拉菜单
     
118.     (defun popup_listd (/ dinf)
     
119.         (setq dinf (strcat
     
120.                        " : popup_list { "
     
121.                        " key = "LayerNameEdit"; "
     
122.                        " fixed_height = false; "
     
123.                        " fixed_width = true;  "
     
124.                        " width = 20; "
     
125.                        " }  "
     
126.                       )
     
127.         )
     
128.         dinf
     
129.     )
     
130. 
     
131. 
     
132.     ;;行框
     
133.     (defun boxed_rowd (/ dinf)
     
134.         (setq dinf (strcat
     
135.                        ": boxed_row {"
     
136.                        "label = "图纸定位";"
     
137.                        "key = "LocationSettings";"
     
138.                    )
     
139.         )
     
140.         dinf
     
141.     )
     
142.     ;;少“}”
     
143. 
     
144. 
     
145.     ;;单选行
     
146.     (defun radio_rowd (/ dinf)
     
147.         (setq dinf " : radio_row { ")
     
148.         dinf
     
149.     )
     
150.     ;;少“}”
     
151. 
     
152.     ;;单选列
     
153.     (defun radio_columnd (/ dinf)
     
154.         (setq dinf " : radio_column { ")
     
155.         dinf
     
156.     )
     
157.     ;;少“}”
     
158. 
     
159. 
     
160.     ;;行
     
161.     (defun rowd        (/ dinf)
     
162.         (setq dinf " : row {  ")
     
163.         dinf
     
164.     )
     
165.     ;;少“}”
     
166. 
     
167. 
     
168.     ;;列
     
169.     (defun columnd (/ dinf)
     
170.         (setq dinf " : column {  ")
     
171.         dinf
     
172.     )
     
173.     ;;少“}”
     

(defun c:tt (/ dcl_id f file i stra)        ;这里就是你要的排列样式<br />     <br />   (setq stra "nonsmall:dialog{label="可视化DCL";")<br />     (setq stra (strcat stra (getdcl dcl)))<br />     (setq stra (strcat stra "ok_cancel;}"))<br />                                         ;把DCL代码写出并且调用观看效果 <br />     (setq file "d:\\test.dcl")<br />     (if        (findfile file)<br />         (setq f (open "d:\\test.dcl" "w"))<br />         (setq f (open "d:\\test.dcl" "a"))<br />     )<br />     (write-line stra f)<br />     (close f)<br />     (setq dcl_id (load_dialog file))<br />     (new_dialog "nonsmall" dcl_id)<br />     (start_dialog)<br />     (unload_dialog dcl_id)<br />     (startapp "notepad" file)<br />     (princ)<br /> <br /> <br /> <br /> );;;;;;TT函数结束<br />     <br /> <br />     <br /> <br /> <br /> <br />     ;;按钮<br />     (defun buttond1 (/ dinf)<br />         (setq<br />             dinf<br />                (strcat<br />                    " : button {  "<br />                    " label ="预览(R)"; "<br />                    " key =  "PreviewBtn "; "<br />                    "  mnemonic = "R"; "<br />                    "  is_enabled = false; "<br />                    "  }  "<br />                   )<br />         )<br />         dinf<br />     )<br /> <br />     ;;图像<br />     (defun imaged (/ dinf)<br />         (setq<br />             dinf<br />                (strcat<br />                    " : image {  "<br />                    " key =  "Previewss "; "<br />                    "  mnemonic = "R"; "<br />                    "  is_enabled = false; "<br />                    "  }  "<br />                   )<br />         )<br />         dinf<br />     )<br /> <br /> <br />     ;;文字<br />     (defun textd (/ dinf)<br />         (setq<br />             dinf<br />                (strcat<br />                    " : text { "<br />                    " label = "打印设备名：";  "<br />                    " value = "打印设备名：";  "<br />                    " key = "PlotterLabel"; "<br />                    " } "<br />                   )<br />         )<br />         dinf<br />     )<br />     ;;编辑框<br />     (defun edit_boxd (/ dinf)<br />         (setq dinf (strcat<br />                        ": edit_box {"<br />                        " label = "打印份数:";"<br />                        " value = "1";"<br />                        " key = "CopiesEdit";"<br />                        " width = 8;"<br />                        " fixed_width = true;"<br />                        " }"<br />                       )<br />         )<br />         dinf<br />     )<br /> <br /> <br />     ;;单选钮<br />     (defun radio_buttond (str1v / dinf)<br />         (setq dinf (strcat<br />                        " : radio_button { "<br />                        " label = "适合图纸"; "<br />                        (strcat " key = "" str1v " "; ")<br />                        " }"<br />                    )<br />         )<br />         dinf<br />     )<br /> <br />     ;;多选钮<br />     (defun toggled (str1 / dinf)<br />         (setq dinf (strcat<br />                        " : toggle {  "<br />                        " label = "自动旋转";  "<br />                        (strcat " key = " " str1 " ";   ")<br />                        " } "<br />                    )<br />         )<br />         dinf<br />     )<br /> <br />     ;;下拉菜单<br />     (defun popup_listd (/ dinf)<br />         (setq dinf (strcat<br />                        " : popup_list { "<br />                        " key = "LayerNameEdit"; "<br />                        " fixed_height = false; "<br />                        " fixed_width = true;  "<br />                        " width = 20; "<br />                        " }  "<br />                       )<br />         )<br />         dinf<br />     )<br /> <br /> <br />     ;;行框<br />     (defun boxed_rowd (/ dinf)<br />         (setq dinf (strcat<br />                        ": boxed_row {"<br />                        "label = "图纸定位";"<br />                        "key = "LocationSettings";"<br />                    )<br />         )<br />         dinf<br />     )<br />     ;;少“}” <br /> <br /> <br />     ;;单选行<br />     (defun radio_rowd (/ dinf)<br />         (setq dinf " : radio_row { ")<br />         dinf<br />     )<br />     ;;少“}” <br /> <br />     ;;单选列<br />     (defun radio_columnd (/ dinf)<br />         (setq dinf " : radio_column { ")<br />         dinf<br />     )<br />     ;;少“}”<br /> <br /> <br />     ;;行<br />     (defun rowd        (/ dinf)<br />         (setq dinf " : row {  ")<br />         dinf<br />     )<br />     ;;少“}”<br /> <br /> <br />     ;;列<br />     (defun columnd (/ dinf)<br />         (setq dinf " : column {  ")<br />         dinf<br />     )<br />     ;;少“}”<br />

xhq1954425

这根本就是不能用！