简单的自定面板函数

szmaicy

;修改版，向飞诗学习
(defun c:xxx ()
  (mai_make_panel
    (list
      (list "梁"
            (list "画    梁" "circle") ;(list  按钮标签  运行的命令)
            (list "单线变梁" "mini_line_to_beam")
            (list "筏板梁倒角" "mini_foundation_beam")
            (list "修补梁柱" "mini_fix_beam")
            (list "修补双线" "mini_fix_dline")
            (list "框选修补线" "mini_fix_line")
      ) ;_ 结束list
      (list "柱"
            (list " ＋ 型柱" "mini_c_column")
            (list " Ｌ 型柱" "mini_l_column")
            (list " Ｔ 型柱" "mini_t_column")
            (list " ○ 型柱" "mini_O_column")
            (list " □ 型柱" "mini_r_column")
            (list "轴线布柱" "mini_axis_column")
            (list "填 充 柱" "mini_fill_column")
            (list "墙体填充" "mini_fill_wall")
            (list "转PKPM GS柱" "mini_pline_to_beam")
            (list "多线变柱" "mini_pline_to_column")
      ) ;_ 结束list
    ) ;_ 结束list
  ) ;_ 结束mai_mak_panel
  (princ)
)


(defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)
  (defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))
  (setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))
  (add_dclrow "curbutton:button{width=10;vertical_margin=none;vertical_margin=none;}")
  (add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=none;vertical_margin=none;}")
  (add_dclrow "curpanel:dialog{label=\"迷你自定义面板\";alignment=centered;vertical_margin=none;horizontal_margin=none;")
  (add_dclrow ":row{")
  (setq len (apply 'max (mapcar 'length menulist))
        order_lst (apply 'append (mapcar 'cdr menulist))
        num_button 0
        num_nobut 0
        in 0
        num_image 0
  )
  (foreach nn menulist
        (setq in 0)
        (add_dclrow (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;"))
        (foreach nnn (cdr nn)
           (setq num_button (1+ num_button)
                 in (1+ in)
                 num_image (1+ num_image)
                 tt (car nnn)
                 tt (if tt tt "")
           )
           (add_dclrow (strcat ":curbutton{label=\"" tt "\";key=\"but" (itoa num_button) "\";}"))
           (if (= 4 in)
               (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))
                      (setq in 0)
               )
           )
        )
        (repeat (- len (length nn))
           (setq num_nobut (1+ num_nobut)
                 in (1+ in)
                 num_image (1+ num_image)
           )
           (add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))
           (if (= 4 in)
               (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))
                      (setq in 0)
               )
           )
        )
        (add_dclrow "spacer;}")
  )
   (add_dclrow "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}")
   (vl-file-delete menuname)
   (setq nn (open menuname "w"))
   (foreach n (reverse val_lst) (write-line n nn))
   (close nn)
   (setq nnn (load_dialog menuname))
   (if (not (new_dialog "curpanel" nnn)) (exit))
   (setq n 0)
   (repeat num_nobut (mode_tile (strcat "butno" (itoa num_nobut)) 1) (setq num_nobut (1- num_nobut)))
  (foreach nn menulist
        (foreach nnn (cdr nn)
           (setq n (1+ n)
                 tt (car nnn)
                 tt (if tt tt "")
           )
           (if (= tt "")
               (mode_tile (strcat "but" (itoa n)) 1)
               (action_tile (strcat "but" (itoa n)) (strcat "\(done_dialog " (itoa n) "\)"))
           )
        )
  )
   (setq nn (start_dialog))
   (unload_dialog nnn)
   (vl-file-delete menuname)
  (if (> nn 0)
       (progn (setq tt (cadr (nth (1- nn) order_lst)))
              (princ "\n")
              (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
                  (eval (read (strcat "(c:" tt ")")))
                  (vl-cmdf tt)
              )
       )
   )
)

redcat

在老迈的基础上修改了一下：主要是文件生成和删除2个函数（请麦工不要生气，呵呵^_^）

1. ;;用户可自己修改界面
   
2. (defun c:xxx ()
   
3.   (mai_make_panel
   
4.     (list
   
5.       (list "梁"
   
6.       (list "画    梁" "circle") ;(list  按钮标签  运行的命令)
   
7.       (list "单线变梁" "mini_line_to_beam")
   
8.       (list "筏板梁倒角" "mini_foundation_beam")
   
9.       (list "修补梁柱" "mini_fix_beam")
   
10.       (list "修补双线" "mini_fix_dline")
    
11.       (list "框选修补线" "mini_fix_line")
    
12.       ) ;_ 结束list
    
13.       (list "柱"
    
14.       (list " ＋ 型柱" "mini_c_column")
    
15.       (list " Ｌ 型柱" "mini_l_column")
    
16.       (list " Ｔ 型柱" "mini_t_column")
    
17.       (list " ○ 型柱" "mini_O_column")
    
18.       (list " □ 型柱" "mini_r_column")
    
19.       (list "轴线布柱" "mini_axis_column")
    
20.       (list "填 充 柱" "mini_fill_column")
    
21.       (list "墙体填充" "mini_fill_wall")
    
22.       (list "转PKPM GS柱" "mini_pline_to_beam")
    
23.       (list "多线变柱" "mini_pline_to_column")
    
24.       ) ;_ 结束list
    
25.     ) ;_ 结束list
    
26.   ) ;_ 结束mai_make_panel
    
27.   (princ)
    
28. ) ;_ 结束defun
    
29. 
    
30. (defun mai_make_panel (menulist / m n nn nnn menuname val_lst tt order_lst)
    
31. 
    
32.   (defun add_dclrow (dstr)
    
33.     (if  dstr
    
34.       (setq val_lst (cons dstr val_lst))
    
35.     ) ;_ 结束if
    
36.   ) ;_ 结束defun
    
37. 
    
38.   (add_dclrow "curbutton : button{width=10;vertical_margin=none;vertical_margin=none;}")
    
39.   (add_dclrow
    
40.     "curpanel : dialog{label=\"迷你工具箱\";alignment=centered;vertical_margin=none;horizontal_margin=none;"
    
41.   ) ;_ 结束add_dclrow
    
42.   (add_dclrow ":row{")
    
43.   (setq  len    (apply 'max (mapcar 'length menulist))
    
44.   order_lst (apply 'append (mapcar 'cdr menulist))
    
45.   n    0
    
46.   m    0
    
47.   ) ;_ 结束setq
    
48.   (foreach nn menulist
    
49.     (add_dclrow
    
50.       (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;")
    
51.     ) ;添加列表框
    
52.     (foreach nnn (cdr nn)
    
53.       (setq n  (1+ n)
    
54.       tt (car nnn)
    
55.       tt (if tt
    
56.      tt
    
57.      ""
    
58.          ) ;_ 结束if
    
59.       ) ;_ 结束setq
    
60.       (add_dclrow (strcat " : curbutton{key=\"but" (vl-princ-to-string n) "\";label=\"" tt "\";}"))
    
61.     ) ;添加列表框中的按钮
    
62.     (repeat (- len (length nn))
    
63.       (setq m (1+ m))
    
64.       (add_dclrow (strcat " : curbutton{key=\"butno" (vl-princ-to-string m) "\";}"))
    
65.     ) ;按列补齐列表框中的按钮
    
66.     (add_dclrow "}")
    
67.   ) ;_ 结束foreach
    
68. 
    
69.   (add_dclrow
    
70.     "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}"
    
71.   )
    
72. 
    
73. 
    
74.   (setq menuname (vl-filename-mktemp "temp_pannel.dcl"))
    
75.   (setq nn (open menuname "w"))
    
76.   (foreach n (reverse val_lst) (write-line n nn))
    
77.   (close nn)
    
78.   (setq nnn (load_dialog menuname))
    
79.   (vl-file-delete menuname)
    
80. 
    
81.   (if (not (new_dialog "curpanel" nnn))
    
82.     (exit)
    
83.   ) ;_ 结束if
    
84.   (setq n 0)
    
85.   (repeat m (mode_tile (strcat "butno" (vl-princ-to-string m)) 1) (setq m (1- m))) ;禁用补齐列表框中的按钮
    
86.   (foreach nn menulist
    
87.     (foreach nnn (cdr nn)
    
88.       (setq n  (1+ n)
    
89.       tt (car nnn) ;tt order_lst
    
90.       tt (if tt
    
91.      tt
    
92.      ""
    
93.          ) ;_ 结束if
    
94.       ) ;_ 结束setq
    
95.       (if (= tt "")
    
96.   (mode_tile (strcat "but" (vl-princ-to-string n)) 1)
    
97.   (action_tile
    
98.     (strcat "but" (vl-princ-to-string n))
    
99.     (strcat "(done_dialog " (vl-princ-to-string n) ")")
    
100.   ) ;_ 结束action_tile
     
101.       ) ;_ 结束if
     
102.     ) ;_ 结束foreach
     
103.   ) ;_ 结束foreach
     
104. 
     
105.   (setq nn (start_dialog))
     
106.   (unload_dialog nnn)
     
107. 
     
108. 
     
109.   (if (> nn 0)
     
110.     (progn (setq tt (cadr (nth (1- nn) order_lst))) ;取点击按钮的值(这个很关键)
     
111.      (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
     
112.        (progn (princ "\n")
     
113.         (eval (read (strcat "(c:" tt ")")))
     
114.        ) ;_ 结束progn
     
115.        (progn
     
116.          (princ "\n")
     
117.          (vla-SendCommand (vla-get-ActiveDocument(vlax-get-acad-object)) (strcat tt "\n"))
     
118.        ) ;_ 结束progn
     
119.      ) ;_ 结束if
     
120.     ) ;_ 结束progn
     
121.   ) ;_ 结束if
     
122. ) ;_ 结束defun
     

;;用户可自己修改界面<br /> (defun c:xxx ()<br />   (mai_make_panel<br />     (list<br />       (list "梁"<br />       (list "画    梁" "circle") ;(list  按钮标签  运行的命令)<br />       (list "单线变梁" "mini_line_to_beam")<br />       (list "筏板梁倒角" "mini_foundation_beam")<br />       (list "修补梁柱" "mini_fix_beam")<br />       (list "修补双线" "mini_fix_dline")<br />       (list "框选修补线" "mini_fix_line")<br />       ) ;_ 结束list<br />       (list "柱"<br />       (list " ＋ 型柱" "mini_c_column")<br />       (list " Ｌ 型柱" "mini_l_column")<br />       (list " Ｔ 型柱" "mini_t_column")<br />       (list " ○ 型柱" "mini_O_column")<br />       (list " □ 型柱" "mini_r_column")<br />       (list "轴线布柱" "mini_axis_column")<br />       (list "填 充 柱" "mini_fill_column")<br />       (list "墙体填充" "mini_fill_wall")<br />       (list "转PKPM GS柱" "mini_pline_to_beam")<br />       (list "多线变柱" "mini_pline_to_column")<br />       ) ;_ 结束list<br />     ) ;_ 结束list<br />   ) ;_ 结束mai_make_panel<br />   (princ)<br /> ) ;_ 结束defun<br /> <br /> (defun mai_make_panel (menulist / m n nn nnn menuname val_lst tt order_lst)<br /> <br />   (defun add_dclrow (dstr)<br />     (if  dstr<br />       (setq val_lst (cons dstr val_lst))<br />     ) ;_ 结束if<br />   ) ;_ 结束defun<br /> <br />   (add_dclrow "curbutton : button{width=10;vertical_margin=none;vertical_margin=none;}")<br />   (add_dclrow<br />     "curpanel : dialog{label=\"迷你工具箱\";alignment=centered;vertical_margin=none;horizontal_margin=none;"<br />   ) ;_ 结束add_dclrow<br />   (add_dclrow ":row{")<br />   (setq  len    (apply 'max (mapcar 'length menulist))<br />   order_lst (apply 'append (mapcar 'cdr menulist))<br />   n    0<br />   m    0<br />   ) ;_ 结束setq<br />   (foreach nn menulist<br />     (add_dclrow<br />       (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;")<br />     ) ;添加列表框<br />     (foreach nnn (cdr nn)<br />       (setq n  (1+ n)<br />       tt (car nnn)<br />       tt (if tt<br />      tt<br />      ""<br />          ) ;_ 结束if<br />       ) ;_ 结束setq<br />       (add_dclrow (strcat " : curbutton{key=\"but" (vl-princ-to-string n) "\";label=\"" tt "\";}"))<br />     ) ;添加列表框中的按钮<br />     (repeat (- len (length nn))<br />       (setq m (1+ m))<br />       (add_dclrow (strcat " : curbutton{key=\"butno" (vl-princ-to-string m) "\";}"))<br />     ) ;按列补齐列表框中的按钮<br />     (add_dclrow "}")<br />   ) ;_ 结束foreach<br /> <br />   (add_dclrow<br />     "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}"<br />   )<br /> <br /> <br />   (setq menuname (vl-filename-mktemp "temp_pannel.dcl"))<br />   (setq nn (open menuname "w"))<br />   (foreach n (reverse val_lst) (write-line n nn))<br />   (close nn)<br />   (setq nnn (load_dialog menuname))<br />   (vl-file-delete menuname)<br /> <br />   (if (not (new_dialog "curpanel" nnn))<br />     (exit)<br />   ) ;_ 结束if<br />   (setq n 0)<br />   (repeat m (mode_tile (strcat "butno" (vl-princ-to-string m)) 1) (setq m (1- m))) ;禁用补齐列表框中的按钮<br />   (foreach nn menulist<br />     (foreach nnn (cdr nn)<br />       (setq n  (1+ n)<br />       tt (car nnn) ;tt order_lst<br />       tt (if tt<br />      tt<br />      ""<br />          ) ;_ 结束if<br />       ) ;_ 结束setq<br />       (if (= tt "")<br />   (mode_tile (strcat "but" (vl-princ-to-string n)) 1)<br />   (action_tile<br />     (strcat "but" (vl-princ-to-string n))<br />     (strcat "(done_dialog " (vl-princ-to-string n) ")")<br />   ) ;_ 结束action_tile<br />       ) ;_ 结束if<br />     ) ;_ 结束foreach<br />   ) ;_ 结束foreach<br /> <br />   (setq nn (start_dialog))<br />   (unload_dialog nnn)<br /> <br /> <br />   (if (> nn 0)<br />     (progn (setq tt (cadr (nth (1- nn) order_lst))) ;取点击按钮的值(这个很关键)<br />      (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)<br />        (progn (princ "\n")<br />         (eval (read (strcat "(c:" tt ")")))<br />        ) ;_ 结束progn<br />        (progn<br />          (princ "\n")<br />          (vla-SendCommand (vla-get-ActiveDocument(vlax-get-acad-object)) (strcat tt "\n"))<br />        ) ;_ 结束progn<br />      ) ;_ 结束if<br />     ) ;_ 结束progn<br />   ) ;_ 结束if<br /> ) ;_ 结束defun<br />

guangdonglbq

把结束部分的代码修改一下，以支持直接写lisp代码。
原代码：
              (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
                  (eval (read (strcat "(c:" tt ")")))
                  (vl-cmdf tt )
              )
修改后：
      (if (= (substr tt 1 1)  "(" )
           (eval (read tt))
           (vl-cmdf tt )
       )

改后支持定义表：

    (list
      (list "文本处理"
          ;;(list  按钮标签  运行的命令 ),命令类型分lisp代码和其它命令两种
            (list "单行合并为单行" "(TextsCombine)" )
            (list "单行合并为多行" "(***)")
            (list "单行转多行" "(***)" )
                                    (list "炸开文本" "***")
      )
      (list "数字处理"
            (list "递增复制" "(c:***)")
      )
    )

kongel

xj6019 发表于 2019-12-4 08:18
界面太小了点  字体不够大  谁提示一下   把界面和字体放大一点 改哪里的代码啊？

(add_dclrow "curbutton:button{width=8;vertical_margin=none;vertical_margin=none;}")

8改大些

露水2

好东西啊 这样可以自己定义按钮了

redcat

和信的有一拼，不过信的button带驱动

yoyoho

好东西,感谢楼主分享!

sy100

谢谢分享，进来学习。

qjcpj

多谢提供模板。

crazylsp

繁重的活路中解放出来了

qcw911

真牛！

xzqk132

首先，非常感谢楼主提供的程序，非常好用！
可是有个小问题，在面板中点击“确认”时，会执行“画梁”命令？不知为何，请不吝赐教，谢谢

露水2

把ok让老迈去掉