[求助] 自定义vlx面板。

ahsxxu

假设我有两个插件“aaa.vlx”（命令aaa）,“bbb.vlx”（命令bb1、bb2）。
使用时候，共有三个命令，aaa、bb1、 bb2。
在不改变原有插件的条件下，能不能通过代码执行一个命令“abc”，出现一个自定义面板，
上面有自己定义文字的“按键”，点击后执行原有各自的功能。

foer123

分享一下你的面板源码吗

Fqb0515

论坛找个自定义面板，研究下怎么用！我试过了！能实现！

e2002

用老迈的面板函数，这个要求太容易了

foer123

分享一下面板源码

ahsxxu

foer123 发表于 2020-1-14 16:54
分享一下面板源码

我没有源码，那是“贱人工具箱”中“我的贱人”的界面，截图下来做个示意。

cq4920

这个不难啊，论坛里有就LISP的自定义面板！

2. (vl-load-com)
   
3. (defun c:vf (/ fname fn x dclid lin)
   
4.        (setq fname (vl-filename-mktemp nil nil ".dcl" ))
   
5.        (setq fn (open fname "w" ))
   
6.        (foreach x '(
   
7. 
   
8. 
   
9. 
   
10.                      "  agtckz : dialog{"
    
11.                      "  label="附加绘图工具";"
    
12.                      
    
13. 
    
14.         ":radio_column {"
    
15.      
    
16.         ":row {"
    
17. 
    
18.         ":radio_button {key = "91" ;label ="常用" ;value = "1";width=10;mnemonic = "q";}"
    
19.         ":radio_button {key = "92" ;label ="专用" ;width=10;}"
    
20.         ":radio_button {key = "93" ;label ="其他" ;width=10;}"
    
21.        " }"
    
22.        " }"
    
23. 
    
24. 
    
25.                      "     :row{"
    
26.                      "     :boxed_column{"
    
27.                      "     label="常用";"
    
28.                      "     :row{"
    
29.                      "      :button{key="1";label="立面门1";width=10;mnemonic ="o";}"
    
30.                      "      :button{key="2";label="立面门2";width=10;}"
    
31.                      "      :button{key="3";label="立面门3";width=10;}"       
    
32.                            "      :button{key="4";label="立面门3";width=10;}"                                                                                 
    
33.                      "     }"
    
34. 
    
35.                      "     :row{"
    
36.                      "      :button{key="5";label="立面门3";width=10;}"
    
37.                      "      :button{key="6";label="立面门4";width=10;}"
    
38.                      "      :button{key="7";label="立面门3";width=10;}"
    
39.                                                                                  "      :button{key="8";label="立面门3";width=10;}"       
    
40.                      "     }"
    
41.                      
    
42.                      "     :row{"
    
43.                      "      :button{key="9";label="天花1";width=10;}"
    
44.                      "      :button{key="10";label="天花2";width=10;}"
    
45.                                                                                  "      :button{key="11";label="天花2";width=10;}"
    
46.                                                                                  "      :button{key="12";label="立面门3";width=10;}"       
    
47.                      "     }"
    
48. 
    
49.                      "     :row{"
    
50.                      "      :button{key="13";label="天花3";width=10;}"
    
51.                      "      :button{key="14";label="天花4";width=10;}"
    
52.                                                                                  "      :button{key="15";label="天花2";width=10;}"
    
53.                                                                                  "      :button{key="16";label="立面门3";width=10;}"       
    
54.                      "     }"
    
55. 
    
56.                      "     }"
    
57.                      "     }"
    
58. 
    
59.                      "     :row{"
    
60.                                                                                  "      :button{key="94";label="返回主工具";width=10;}"
    
61.                      
    
62.                                                                             ":button{label="退出"; key ="cancel";is_cancel = true;}"
    
63.                      "     }"
    
64. 
    
65.                      "}"
    
66. 
    
67.               );end ;endlist
    
68.               (princ x fn)
    
69.               (write-line "" fn)
    
70.        );end foreach
    
71.        (close fn)
    
72.        (setq fn (open fname "r" ))
    
73.        (setq dclid (load_dialog fname))
    
74.        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))
    
75.        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
    
76. 
    
77.        (action_tile "1" "(done_dialog 1)" )
    
78.        (action_tile "2" "(done_dialog 2)" )
    
79.        (action_tile "3" "(done_dialog 3)" )
    
80.        (action_tile "4" "(done_dialog 4)" )
    
81.        (action_tile "5" "(done_dialog 5)" )
    
82.        (action_tile "6" "(done_dialog 6)" )
    
83.        (action_tile "7" "(done_dialog 7)" )
    
84.        (action_tile "8" "(done_dialog 8)" )
    
85.              (action_tile "9" "(done_dialog 9)" )
    
86.              (action_tile "10" "(done_dialog 10)" )
    
87.        (action_tile "11" "(done_dialog 11)" )
    
88.              (action_tile "12" "(done_dialog 12)" )
    
89.              (action_tile "13" "(done_dialog 12)" )
    
90.              (action_tile "14" "(done_dialog 12)" )
    
91.              (action_tile "15" "(done_dialog 12)" )
    
92.              (action_tile "16" "(done_dialog 12)" )
    
93.        
    
94.        
    
95.        
    
96. 
    
97.        (action_tile "91" "(done_dialog 91)" )
    
98.        (action_tile "92" "(done_dialog 92)" )
    
99.        (action_tile "93" "(done_dialog 93)" )
    
100.              (action_tile "94" "(done_dialog 94)" )
     
101.    
     
102. 
     
103.        (action_tile "cancel" "(done_dialog 0)" )
     
104.        (setq re (start_dialog))
     
105.        (cond
     
106.               ((= re 1) (C:KM))
     
107.               ((= re 2) (GL:2))
     
108.               ((= re 3) (GL:3))
     
109.               ((= re 4) (GL:4))
     
110.               ((= re 5) (C:TH1))
     
111.               ((= re 6) (C:TH2))
     
112.               ((= re 7) (C:TH3))
     
113.               ((= re 8) (GL:8))
     
114.                                       ((= re 9) (GL:8))
     
115.                                       ((= re 10) (GL:8))
     
116.                                       ((= re 11) (GL:8))
     
117.                                       ((= re 12) (GL:8))
     
118.                                       ((= re 13) (GL:8))
     
119.                                       ((= re 14) (GL:8))
     
120.                                       ((= re 15) (GL:8))
     
121.                                       ((= re 16) (GL:8))
     
122.                                  
     
123.                                  
     
124.                                  
     
125.                                  
     
126.                                  
     
127.                                  
     
128.                                  
     
129.               ((= re 91) (c:vf))
     
130.               ((= re 92) (c:yx_zy))
     
131.               ((= re 93) (c:yx_qt))
     
132.               ((= re 94) (C:vv))
     
133. 
     
134.        );end cond
     
135.        (unload_dialog dclid)
     
136.        (close fn)
     
137.        (vl-file-delete fname)
     
138.        (princ)
     
139. )
     
140. 
     

(vl-load-com)<br /> (defun c:vf (/ fname fn x dclid lin)<br />        (setq fname (vl-filename-mktemp nil nil ".dcl" ))<br />        (setq fn (open fname "w" ))<br />        (foreach x '(<br /> <br /> <br /> <br />                      "  agtckz : dialog{" <br />                      "  label="附加绘图工具";"<br />                      <br /> <br />         ":radio_column {"<br />      <br />         ":row {"<br /> <br />         ":radio_button {key = "91" ;label ="常用" ;value = "1";width=10;mnemonic = "q";}"<br />         ":radio_button {key = "92" ;label ="专用" ;width=10;}"<br />         ":radio_button {key = "93" ;label ="其他" ;width=10;}"<br />        " }"<br />        " }"<br /> <br /> <br />                      "     :row{" <br />                      "     :boxed_column{"<br />                      "     label="常用";"<br />                      "     :row{"<br />                      "      :button{key="1";label="立面门1";width=10;mnemonic ="o";}" <br />                      "      :button{key="2";label="立面门2";width=10;}" <br />                      "      :button{key="3";label="立面门3";width=10;}"        <br />                            "      :button{key="4";label="立面门3";width=10;}"                                                                                 <br />                      "     }"<br /> <br />                      "     :row{"<br />                      "      :button{key="5";label="立面门3";width=10;}" <br />                      "      :button{key="6";label="立面门4";width=10;}"<br />                      "      :button{key="7";label="立面门3";width=10;}"<br />                                                                                  "      :button{key="8";label="立面门3";width=10;}"        <br />                      "     }"<br />                      <br />                      "     :row{"<br />                      "      :button{key="9";label="天花1";width=10;}"<br />                      "      :button{key="10";label="天花2";width=10;}"<br />                                                                                  "      :button{key="11";label="天花2";width=10;}"<br />                                                                                  "      :button{key="12";label="立面门3";width=10;}"        <br />                      "     }"<br /> <br />                      "     :row{"<br />                      "      :button{key="13";label="天花3";width=10;}"<br />                      "      :button{key="14";label="天花4";width=10;}"<br />                                                                                  "      :button{key="15";label="天花2";width=10;}"<br />                                                                                  "      :button{key="16";label="立面门3";width=10;}"        <br />                      "     }"<br /> <br />                      "     }"<br />                      "     }" <br /> <br />                      "     :row{"<br />                                                                                  "      :button{key="94";label="返回主工具";width=10;}"<br />                      <br />                                                                             ":button{label="退出"; key ="cancel";is_cancel = true;}"<br />                      "     }" <br /> <br />                      "}" <br /> <br />               );end ;endlist<br />               (princ x fn)<br />               (write-line "" fn)<br />        );end foreach<br />        (close fn)<br />        (setq fn (open fname "r" ))<br />        (setq dclid (load_dialog fname))<br />        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))<br />        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br /> <br />        (action_tile "1" "(done_dialog 1)" )<br />        (action_tile "2" "(done_dialog 2)" )<br />        (action_tile "3" "(done_dialog 3)" )<br />        (action_tile "4" "(done_dialog 4)" )<br />        (action_tile "5" "(done_dialog 5)" )<br />        (action_tile "6" "(done_dialog 6)" )<br />        (action_tile "7" "(done_dialog 7)" )<br />        (action_tile "8" "(done_dialog 8)" )<br />              (action_tile "9" "(done_dialog 9)" )<br />              (action_tile "10" "(done_dialog 10)" )<br />        (action_tile "11" "(done_dialog 11)" )<br />              (action_tile "12" "(done_dialog 12)" )<br />              (action_tile "13" "(done_dialog 12)" )<br />              (action_tile "14" "(done_dialog 12)" )<br />              (action_tile "15" "(done_dialog 12)" )<br />              (action_tile "16" "(done_dialog 12)" )<br />         <br />         <br />         <br /> <br />        (action_tile "91" "(done_dialog 91)" )<br />        (action_tile "92" "(done_dialog 92)" )<br />        (action_tile "93" "(done_dialog 93)" )<br />              (action_tile "94" "(done_dialog 94)" )<br />    <br /> <br />        (action_tile "cancel" "(done_dialog 0)" )<br />        (setq re (start_dialog))<br />        (cond<br />               ((= re 1) (C:KM))<br />               ((= re 2) (GL:2))<br />               ((= re 3) (GL:3))<br />               ((= re 4) (GL:4))<br />               ((= re 5) (C:TH1))<br />               ((= re 6) (C:TH2))<br />               ((= re 7) (C:TH3))<br />               ((= re 8) (GL:8))<br />                                       ((= re 9) (GL:8))<br />                                       ((= re 10) (GL:8))<br />                                       ((= re 11) (GL:8))<br />                                       ((= re 12) (GL:8))<br />                                       ((= re 13) (GL:8))<br />                                       ((= re 14) (GL:8))<br />                                       ((= re 15) (GL:8))<br />                                       ((= re 16) (GL:8))<br />                                  <br />                                  <br />                                  <br />                                  <br />                                  <br />                                  <br />                                  <br />               ((= re 91) (c:vf))<br />               ((= re 92) (c:yx_zy))<br />               ((= re 93) (c:yx_qt))<br />               ((= re 94) (C:vv))<br /> <br />        );end cond<br />        (unload_dialog dclid)<br />        (close fn)<br />        (vl-file-delete fname)<br />        (princ)<br /> )<br /> <br />

renyonghua2014

没有问题，可以实现。

wzg356

首先写面板即可