简单的自定面板如何回车重复上次命令

ljwsyzf

新手求助，简单的自定面板如何回车重复上次命令，而不是重复打开面板
简单的面板代码原地址：http://bbs.mjtd.com/thread-84942-1-1.html
感谢szmaicy开源了这么优秀的面板代码。

edata

关键就是下面两句。

1. (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat tt " "))
   
2.               ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys (strcat tt "{Enter}"))

复制代码

edata

casd 发表于 2018-1-17 08:40
非常方便，再请教一下，autool有个功能就算固定一个命令重复面板调用的命令。比如q，也可以重复面板调用 ...

方法有很多。。。
比如这一种。

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_mak_panel
    
27.   (princ)
    
28. )
    
29. 
    
30. 
    
31. (defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)
    
32.   (defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))
    
33.   (setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))
    
34.   (add_dclrow "curbutton:button{width=10;vertical_margin=none;vertical_margin=none;}")
    
35.   (add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=none;vertical_margin=none;}")
    
36.   (add_dclrow "curpanel:dialog{label=\"迷你自定义面板\";alignment=centered;vertical_margin=none;horizontal_margin=none;")
    
37.   (add_dclrow ":row{")
    
38.   (setq len (apply 'max (mapcar 'length menulist))
    
39.         order_lst (apply 'append (mapcar 'cdr menulist))
    
40.         num_button 0
    
41.         num_nobut 0
    
42.         in 0
    
43.         num_image 0
    
44.   )
    
45.   (foreach nn menulist
    
46.         (setq in 0)
    
47.         (add_dclrow (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;"))
    
48.         (foreach nnn (cdr nn)
    
49.            (setq num_button (1+ num_button)
    
50.                  in (1+ in)
    
51.                  num_image (1+ num_image)
    
52.                  tt (car nnn)
    
53.                  tt (if tt tt "")
    
54.            )
    
55.            (add_dclrow (strcat ":curbutton{label=\"" tt "\";key=\"but" (itoa num_button) "\";}"))
    
56.            (if (= 4 in)
    
57.                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))
    
58.                       (setq in 0)
    
59.                )
    
60.            )
    
61.         )
    
62.         (repeat (- len (length nn))
    
63.            (setq num_nobut (1+ num_nobut)
    
64.                  in (1+ in)
    
65.                  num_image (1+ num_image)
    
66.            )
    
67.            (add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))
    
68.            (if (= 4 in)
    
69.                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))
    
70.                       (setq in 0)
    
71.                )
    
72.            )
    
73.         )
    
74.         (add_dclrow "spacer;}")
    
75.   )
    
76.    (add_dclrow "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}")
    
77.    (vl-file-delete menuname)
    
78.    (setq nn (open menuname "w"))
    
79.    (foreach n (reverse val_lst) (write-line n nn))
    
80.    (close nn)
    
81.    (setq nnn (load_dialog menuname))
    
82.    (if (not (new_dialog "curpanel" nnn)) (exit))
    
83.    (setq n 0)
    
84.    (repeat num_nobut (mode_tile (strcat "butno" (itoa num_nobut)) 1) (setq num_nobut (1- num_nobut)))
    
85.   (foreach nn menulist
    
86.         (foreach nnn (cdr nn)
    
87.            (setq n (1+ n)
    
88.                  tt (car nnn)
    
89.                  tt (if tt tt "")
    
90.            )
    
91.            (if (= tt "")
    
92.                (mode_tile (strcat "but" (itoa n)) 1)
    
93.                (action_tile (strcat "but" (itoa n)) (strcat "\(done_dialog " (itoa n) "\)"))
    
94.            )
    
95.         )
    
96.   )
    
97.    (setq nn (start_dialog))
    
98.    (unload_dialog nnn)
    
99.    (vl-file-delete menuname)
    
100.   (if (> nn 0)
     
101.        (progn (setq tt (cadr (nth (1- nn) order_lst)))
     
102.               (princ "\n")
     
103.               (eval(read (strcat "(defun c:q()(Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat \"" tt "\" \" \"))))")))
     
104.              
     
105.               (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat tt " "))
     
106.               ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys (strcat tt "{Enter}"))              
     
107.        )
     
108.    )
     
109. )

;修改版，向飞诗学习<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_mak_panel<br />   (princ)<br /> )<br /> <br /> <br /> (defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)<br />   (defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))<br />   (setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))<br />   (add_dclrow "curbutton:button{width=10;vertical_margin=none;vertical_margin=none;}")<br />   (add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=none;vertical_margin=none;}")<br />   (add_dclrow "curpanel:dialog{label=\"迷你自定义面板\";alignment=centered;vertical_margin=none;horizontal_margin=none;")<br />   (add_dclrow ":row{")<br />   (setq len (apply 'max (mapcar 'length menulist))<br />         order_lst (apply 'append (mapcar 'cdr menulist))<br />         num_button 0<br />         num_nobut 0<br />         in 0<br />         num_image 0<br />   )<br />   (foreach nn menulist<br />         (setq in 0)<br />         (add_dclrow (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;"))<br />         (foreach nnn (cdr nn)<br />            (setq num_button (1+ num_button)<br />                  in (1+ in)<br />                  num_image (1+ num_image)<br />                  tt (car nnn)<br />                  tt (if tt tt "")<br />            )<br />            (add_dclrow (strcat ":curbutton{label=\"" tt "\";key=\"but" (itoa num_button) "\";}"))<br />            (if (= 4 in)<br />                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))<br />                       (setq in 0)<br />                )<br />            )<br />         )<br />         (repeat (- len (length nn))<br />            (setq num_nobut (1+ num_nobut)<br />                  in (1+ in)<br />                  num_image (1+ num_image)<br />            )<br />            (add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))<br />            (if (= 4 in)<br />                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))<br />                       (setq in 0)<br />                )<br />            )<br />         )<br />         (add_dclrow "spacer;}")<br />   )<br />    (add_dclrow "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}")<br />    (vl-file-delete menuname)<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 />    (if (not (new_dialog "curpanel" nnn)) (exit))<br />    (setq n 0)<br />    (repeat num_nobut (mode_tile (strcat "butno" (itoa num_nobut)) 1) (setq num_nobut (1- num_nobut)))<br />   (foreach nn menulist<br />         (foreach nnn (cdr nn)<br />            (setq n (1+ n)<br />                  tt (car nnn)<br />                  tt (if tt tt "")<br />            )<br />            (if (= tt "")<br />                (mode_tile (strcat "but" (itoa n)) 1)<br />                (action_tile (strcat "but" (itoa n)) (strcat "\(done_dialog " (itoa n) "\)"))<br />            )<br />         )<br />   )<br />    (setq nn (start_dialog))<br />    (unload_dialog nnn)<br />    (vl-file-delete menuname)<br />   (if (> nn 0)<br />        (progn (setq tt (cadr (nth (1- nn) order_lst)))<br />               (princ "\n")<br />               (eval(read (strcat "(defun c:q()(Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat \"" tt "\" \" \"))))")))<br />               <br />               (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat tt " "))<br />               ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys (strcat tt "{Enter}"))              <br />        )<br />    )<br /> )

edata

ljwsyzf 发表于 2018-1-13 13:05
大神，怎么直接面板发生命令？有具体操作吗？我新白一个！

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_mak_panel
    
27.   (princ)
    
28. )
    
29. 
    
30. 
    
31. (defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)
    
32.   (defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))
    
33.   (setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))
    
34.   (add_dclrow "curbutton:button{width=10;vertical_margin=none;vertical_margin=none;}")
    
35.   (add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=none;vertical_margin=none;}")
    
36.   (add_dclrow "curpanel:dialog{label=\"迷你自定义面板\";alignment=centered;vertical_margin=none;horizontal_margin=none;")
    
37.   (add_dclrow ":row{")
    
38.   (setq len (apply 'max (mapcar 'length menulist))
    
39.         order_lst (apply 'append (mapcar 'cdr menulist))
    
40.         num_button 0
    
41.         num_nobut 0
    
42.         in 0
    
43.         num_image 0
    
44.   )
    
45.   (foreach nn menulist
    
46.         (setq in 0)
    
47.         (add_dclrow (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;"))
    
48.         (foreach nnn (cdr nn)
    
49.            (setq num_button (1+ num_button)
    
50.                  in (1+ in)
    
51.                  num_image (1+ num_image)
    
52.                  tt (car nnn)
    
53.                  tt (if tt tt "")
    
54.            )
    
55.            (add_dclrow (strcat ":curbutton{label=\"" tt "\";key=\"but" (itoa num_button) "\";}"))
    
56.            (if (= 4 in)
    
57.                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))
    
58.                       (setq in 0)
    
59.                )
    
60.            )
    
61.         )
    
62.         (repeat (- len (length nn))
    
63.            (setq num_nobut (1+ num_nobut)
    
64.                  in (1+ in)
    
65.                  num_image (1+ num_image)
    
66.            )
    
67.            (add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))
    
68.            (if (= 4 in)
    
69.                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))
    
70.                       (setq in 0)
    
71.                )
    
72.            )
    
73.         )
    
74.         (add_dclrow "spacer;}")
    
75.   )
    
76.    (add_dclrow "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}")
    
77.    (vl-file-delete menuname)
    
78.    (setq nn (open menuname "w"))
    
79.    (foreach n (reverse val_lst) (write-line n nn))
    
80.    (close nn)
    
81.    (setq nnn (load_dialog menuname))
    
82.    (if (not (new_dialog "curpanel" nnn)) (exit))
    
83.    (setq n 0)
    
84.    (repeat num_nobut (mode_tile (strcat "butno" (itoa num_nobut)) 1) (setq num_nobut (1- num_nobut)))
    
85.   (foreach nn menulist
    
86.         (foreach nnn (cdr nn)
    
87.            (setq n (1+ n)
    
88.                  tt (car nnn)
    
89.                  tt (if tt tt "")
    
90.            )
    
91.            (if (= tt "")
    
92.                (mode_tile (strcat "but" (itoa n)) 1)
    
93.                (action_tile (strcat "but" (itoa n)) (strcat "\(done_dialog " (itoa n) "\)"))
    
94.            )
    
95.         )
    
96.   )
    
97.    (setq nn (start_dialog))
    
98.    (unload_dialog nnn)
    
99.    (vl-file-delete menuname)
    
100.   (if (> nn 0)
     
101.        (progn (setq tt (cadr (nth (1- nn) order_lst)))
     
102.               (princ "\n")
     
103.               (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys (strcat tt "{Enter}"))              
     
104.        )
     
105.    )
     
106. )

;修改版，向飞诗学习<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_mak_panel<br />   (princ)<br /> )<br /> <br /> <br /> (defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)<br />   (defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))<br />   (setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))<br />   (add_dclrow "curbutton:button{width=10;vertical_margin=none;vertical_margin=none;}")<br />   (add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=none;vertical_margin=none;}")<br />   (add_dclrow "curpanel:dialog{label=\"迷你自定义面板\";alignment=centered;vertical_margin=none;horizontal_margin=none;")<br />   (add_dclrow ":row{")<br />   (setq len (apply 'max (mapcar 'length menulist))<br />         order_lst (apply 'append (mapcar 'cdr menulist))<br />         num_button 0<br />         num_nobut 0<br />         in 0<br />         num_image 0<br />   )<br />   (foreach nn menulist<br />         (setq in 0)<br />         (add_dclrow (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;"))<br />         (foreach nnn (cdr nn)<br />            (setq num_button (1+ num_button)<br />                  in (1+ in)<br />                  num_image (1+ num_image)<br />                  tt (car nnn)<br />                  tt (if tt tt "")<br />            )<br />            (add_dclrow (strcat ":curbutton{label=\"" tt "\";key=\"but" (itoa num_button) "\";}"))<br />            (if (= 4 in)<br />                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))<br />                       (setq in 0)<br />                )<br />            )<br />         )<br />         (repeat (- len (length nn))<br />            (setq num_nobut (1+ num_nobut)<br />                  in (1+ in)<br />                  num_image (1+ num_image)<br />            )<br />            (add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))<br />            (if (= 4 in)<br />                (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))<br />                       (setq in 0)<br />                )<br />            )<br />         )<br />         (add_dclrow "spacer;}")<br />   )<br />    (add_dclrow "}:button{label=\"关闭\";key=\"cancel\";is_cancel=true;width=10;fixed_width=true;alignment=centered;}}")<br />    (vl-file-delete menuname)<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 />    (if (not (new_dialog "curpanel" nnn)) (exit))<br />    (setq n 0)<br />    (repeat num_nobut (mode_tile (strcat "butno" (itoa num_nobut)) 1) (setq num_nobut (1- num_nobut)))<br />   (foreach nn menulist<br />         (foreach nnn (cdr nn)<br />            (setq n (1+ n)<br />                  tt (car nnn)<br />                  tt (if tt tt "")<br />            )<br />            (if (= tt "")<br />                (mode_tile (strcat "but" (itoa n)) 1)<br />                (action_tile (strcat "but" (itoa n)) (strcat "\(done_dialog " (itoa n) "\)"))<br />            )<br />         )<br />   )<br />    (setq nn (start_dialog))<br />    (unload_dialog nnn)<br />    (vl-file-delete menuname)<br />   (if (> nn 0)<br />        (progn (setq tt (cadr (nth (1- nn) order_lst)))<br />               (princ "\n")<br />               (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys (strcat tt "{Enter}"))              <br />        )<br />    )<br /> )

cable2004

在注册表增加一个记录

winerfjy

能不能说一下注册表增加记录的操作呢

winerfjy

要多次重复执行同一个命令，可以在命令行中输入“multiple”按空格键，此时显示提示信息“输入要重复的命令”输入命令后会显示命令提示，根据只是操作完成之后，还会再一次执行这个命令，直到按“ESC”键退出。

ljwsyzf

winerfjy 发表于 2018-1-13 08:56
要多次重复执行同一个命令，可以在命令行中输入“multiple”按空格键，此时显示提示信息“输入要重复的命令 ...

要重新输入命令，那就失去直接回车的意义了。我是想要直接回车就能重复命令

myjping

简单，直接面板发送命令，右键或回车重复

ljwsyzf

myjping 发表于 2018-1-13 12:45
简单，直接面板发送命令，右键或回车重复

大神，怎么直接面板发生命令？有具体操作吗？我新白一个！

ㄘ丶转裑ㄧ灬

((= re 101) (vla-sendcommand(vla-get-activedocument(vlax-get-acad-object))(strcat "HT_101 ")))
http://bbs.mjtd.com/thread-175204-1-1.html