工具箱面板，怎么调用插件位置

pengl86

各位明经大佬您们好现在网上好多工具箱，怎么调用插件位置呢


工具箱面板上的命令，A.B.C.D
命令放D盘文件夹。
然后面板可以自动调用？？？？？

htlaser

如果收集的是源码 可以放在一起  一次加载   如果不是  都加载上     在面板中修改对应的命令就行

fyy19950808

麻烦问一下，为什么你的截图里，按钮都是圆角的，但我加载你的插件，它显示出来的方角？

xshrimp

1. (setq #dcl_data
   
2.   '( (0 "绘制");默认面板名称
   
3.      (1 "射线");默认按钮
   
4.      (2 3) ;按钮列数
   
5.     ("绘制"  ("画直线" "射线" "按钮11" "按钮12"))
   
6.     ("面板2" ("画圆"   "射线" "按钮1"  "按钮2" "按钮3" "按钮4"))
   
7.     ("面板3" ("按钮a" "按钮b" "按钮c" "按钮d" "按钮e" "按钮f"))
   
8.   )
   
9. )
   
10. 
    
11. ;主程序（常用）
    
12. ;;;xshrimp 2022.3.3 修改
    
13. (vl-load-com)
    
14. (defun c:qq ( / dcl_btn_col   dcl_data_sel dcl_sel dcl_str dclid dlc_Default fn fname i key_act Loop n re times tmp x)
    
15. (if (null #dcl_cmdpos)   (setq #dcl_cmdpos '(-1 -1)))
    
16. (setq Loop t)
    
17. (while Loop
    
18.         (setq fname (vl-filename-mktemp nil nil ".dcl" ))
    
19.         (setq fn (open fname "w" ))        
    
20.         (setq dcl_str (list
    
21.                      "  agtckz : dialog{"
    
22.                      "  label=\"CAD小秘书\";"            
    
23.         ":boxed_radio_row {key = \"radio\" ;"
    
24.         ))   
    
25.         (foreach n (cdddr #dcl_data)           
    
26.            (setq dcl_str (append dcl_str (list (strcat ":radio_button {key = \"" (car n) "\" ;label =\"" (car n) "\" ;width=10;}"))))        
    
27.         )        
    
28.         (setq dcl_str (append dcl_str (list  
    
29.         " }"
    
30.         "     :row{")))
    
31.                
    
32.         ;;2列/////
    
33.         (setq dcl_data_sel  (cadr(assoc (cadr(assoc 0 #dcl_data)) #dcl_data)))
    
34.         (setq i 0)
    
35.         (setq dcl_btn_col (cadr(assoc 2 #dcl_data)))
    
36.         (setq times (/ (length dcl_data_sel) dcl_btn_col))
    
37.         
    
38.         
    
39.   (repeat dcl_btn_col
    
40.     (setq dcl_str (append dcl_str (list
    
41.     "     :boxed_column{"
    
42.     )))  
    
43.       (repeat times
    
44.         (setq tmp (nth i dcl_data_sel))
    
45.         (setq dcl_str (append dcl_str (list      
    
46.     (strcat "      :button{key=\"" tmp"\";label=\"" tmp"\";width=10;}")        
    
47.         )))        
    
48.         (setq i (1+ i))
    
49.       )
    
50.   (setq dcl_str (append dcl_str (list
    
51.   " }"
    
52.   )))  
    
53.   )      
    
54.          ;;;;;/////
    
55.          (setq dcl_str (append dcl_str (list  
    
56.           " }"
    
57.                      "cancel_button;"
    
58.                      "}" )))
    
59.        (foreach x dcl_str
    
60.               (princ x fn)
    
61.               (write-line "" fn)
    
62.        );end foreach
    
63.        (close fn)      
    
64.        (setq dclid (load_dialog fname))      
    
65.        (new_dialog "agtckz" dclid "" #dcl_cmdpos)  
    
66. 
    
67.   (setq dcl_sel (assoc 0 #dcl_data))
    
68.   (set_tile "radio" (cadr dcl_sel))
    
69.   ;;;默认按钮
    
70.   (setq dlc_Default (assoc 1 #dcl_data))
    
71.   (mode_tile  (cadr dlc_Default)  2)
    
72.   
    
73.      (foreach n  (cdddr #dcl_data)         
    
74.        (action_tile (car n )  (vl-prin1-to-string  '(progn
    
75.        (setq #dcl_data (subst (list 0 $key) (assoc 0 #dcl_data) #dcl_data))
    
76.        (setq #dcl_cmdpos (done_dialog 2))
    
77.        )))
    
78.      )
    
79. 
    
80.     (foreach n  (setq dcl_data_sel  (cadr(assoc (cadr(assoc 0 #dcl_data)) #dcl_data)))   
    
81.        (action_tile n  (vl-prin1-to-string  '(progn   
    
82.        (setq key_act $key)         
    
83.        (setq #dcl_data (subst (list 1 $key) (assoc 1 #dcl_data) #dcl_data))
    
84.        (setq #dcl_cmdpos (done_dialog 3))
    
85.        )))      
    
86.      )
    
87.        (action_tile "cancel" "(setq #dcl_cmdpos (done_dialog 0))" )
    
88.        (setq re (start_dialog))
    
89.        (cond
    
90.                ((= re 0) (setq loop nil))
    
91.               ((= re 2) (vl-file-delete fname))              
    
92.               ((= re 3)
    
93.                (setq loop nil)
    
94.                (cond
    
95.                  ;;;这里添加命令
    
96.                  ((= key_act "画直线") (command "line" pause))
    
97.                  ((= key_act "画圆")  (command "circle" pause))
    
98.                  ((= key_act "射线")  (command "ray" pause))
    
99.                  ((= key_act "按钮1") (alert "按钮1"))
    
100.                  ((= key_act "按钮11") (alert "按钮11"))               
     
101.                )
     
102.               )
     
103. 
     
104.        );end cond
     
105. );end while
     
106.       (unload_dialog dclid)   
     
107.        (princ)
     
108. )
     

(setq #dcl_data<br />   '( (0 "绘制");默认面板名称<br />      (1 "射线");默认按钮<br />      (2 3) ;按钮列数<br />     ("绘制"  ("画直线" "射线" "按钮11" "按钮12"))<br />     ("面板2" ("画圆"   "射线" "按钮1"  "按钮2" "按钮3" "按钮4"))<br />     ("面板3" ("按钮a" "按钮b" "按钮c" "按钮d" "按钮e" "按钮f"))<br />   )<br /> )<br /> <br /> ;主程序（常用）<br /> ;;;xshrimp 2022.3.3 修改<br /> (vl-load-com)<br /> (defun c:qq ( / dcl_btn_col   dcl_data_sel dcl_sel dcl_str dclid dlc_Default fn fname i key_act Loop n re times tmp x)<br /> (if (null #dcl_cmdpos)   (setq #dcl_cmdpos '(-1 -1)))<br /> (setq Loop t)<br /> (while Loop<br />         (setq fname (vl-filename-mktemp nil nil ".dcl" ))<br />         (setq fn (open fname "w" ))        <br />         (setq dcl_str (list<br />                      "  agtckz : dialog{" <br />                      "  label=\"CAD小秘书\";"            <br />         ":boxed_radio_row {key = \"radio\" ;"<br />         ))    <br />         (foreach n (cdddr #dcl_data)           <br />            (setq dcl_str (append dcl_str (list (strcat ":radio_button {key = \"" (car n) "\" ;label =\"" (car n) "\" ;width=10;}"))))        <br />         )        <br />         (setq dcl_str (append dcl_str (list  <br />         " }" <br />         "     :row{")))<br />                 <br />         ;;2列/////<br />         (setq dcl_data_sel  (cadr(assoc (cadr(assoc 0 #dcl_data)) #dcl_data)))<br />         (setq i 0)<br />         (setq dcl_btn_col (cadr(assoc 2 #dcl_data)))<br />         (setq times (/ (length dcl_data_sel) dcl_btn_col))<br />         <br />         <br />   (repeat dcl_btn_col<br />     (setq dcl_str (append dcl_str (list<br />     "     :boxed_column{"<br />     )))  <br />       (repeat times<br />         (setq tmp (nth i dcl_data_sel))<br />         (setq dcl_str (append dcl_str (list       <br />     (strcat "      :button{key=\"" tmp"\";label=\"" tmp"\";width=10;}")        <br />         )))        <br />         (setq i (1+ i))<br />       )<br />   (setq dcl_str (append dcl_str (list<br />   " }"<br />   )))  <br />   )       <br />          ;;;;;/////<br />          (setq dcl_str (append dcl_str (list  <br />           " }"<br />                      "cancel_button;"<br />                      "}" )))<br />        (foreach x dcl_str<br />               (princ x fn)<br />               (write-line "" fn)<br />        );end foreach<br />        (close fn)       <br />        (setq dclid (load_dialog fname))       <br />        (new_dialog "agtckz" dclid "" #dcl_cmdpos)  <br /> <br />   (setq dcl_sel (assoc 0 #dcl_data))<br />   (set_tile "radio" (cadr dcl_sel))<br />   ;;;默认按钮<br />   (setq dlc_Default (assoc 1 #dcl_data))<br />   (mode_tile  (cadr dlc_Default)  2)<br />   <br />      (foreach n  (cdddr #dcl_data)          <br />        (action_tile (car n )  (vl-prin1-to-string  '(progn <br />        (setq #dcl_data (subst (list 0 $key) (assoc 0 #dcl_data) #dcl_data))<br />        (setq #dcl_cmdpos (done_dialog 2))<br />        )))<br />      )<br /> <br />     (foreach n  (setq dcl_data_sel  (cadr(assoc (cadr(assoc 0 #dcl_data)) #dcl_data)))   <br />        (action_tile n  (vl-prin1-to-string  '(progn   <br />        (setq key_act $key)          <br />        (setq #dcl_data (subst (list 1 $key) (assoc 1 #dcl_data) #dcl_data)) <br />        (setq #dcl_cmdpos (done_dialog 3))<br />        )))       <br />      )<br />        (action_tile "cancel" "(setq #dcl_cmdpos (done_dialog 0))" )<br />        (setq re (start_dialog))<br />        (cond<br />                ((= re 0) (setq loop nil))<br />               ((= re 2) (vl-file-delete fname))              <br />               ((= re 3) <br />                (setq loop nil)<br />                (cond <br />                  ;;;这里添加命令<br />                  ((= key_act "画直线") (command "line" pause))<br />                  ((= key_act "画圆")  (command "circle" pause))<br />                  ((= key_act "射线")  (command "ray" pause))<br />                  ((= key_act "按钮1") (alert "按钮1"))<br />                  ((= key_act "按钮11") (alert "按钮11"))               <br />                )<br />               )<br /> <br />        );end cond<br /> );end while <br />       (unload_dialog dclid)    <br />        (princ)<br /> )<br />

渠辉

离迷你面板差不多了

00放飞梦想00

xshrimp 发表于 2022-3-3 20:47

面板名称可以放在左侧面吗，那样可能要好些

freedom_ice

优秀的作品

zhangrunze

xshrimp 发表于 2022-3-3 20:47

感谢分享~
已经做成命令类工具面板~
还不错~

czb203

感谢大佬的分享

zhangcan0515

fyy19950808 发表于 2022-3-2 15:57
麻烦问一下，为什么你的截图里，按钮都是圆角的，但我加载你的插件，它显示出来的方角？

电脑系统问题