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

ljwsyzf

edata 发表于 2018-1-14 13:29
关键就是下面两句。

多谢大神指点，能行了。

ljwsyzf

ㄘ丶转裑ㄧ灬 发表于 2018-1-14 17:08
((= re 101) (vla-sendcommand(vla-get-activedocument(vlax-get-acad-object))(strcat "HT_101 ")))
http ...

哈哈，谢谢啊。你的这个面板也很优秀，就是我太菜了，简单的面板我能看的懂。

casd

edata 发表于 2018-1-14 13:29
关键就是下面两句。

非常方便，再请教一下，autool有个功能就算固定一个命令重复面板调用的命令。比如q，也可以重复面板调用的命令，如何实现

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 /> )

casd

,万分感谢

liunian0524

我觉得CAD选项里面-用户系统配置--取消勾选绘图区域中使用快捷键菜单.
直接鼠标右键就可以重复上一次命令,

casd

liunian0524 发表于 2018-1-18 11:29
我觉得CAD选项里面-用户系统配置--取消勾选绘图区域中使用快捷键菜单.
直接鼠标右键就可以重复上一次命令, ...

你可能是cad初学者，还要继续努力

liunian0524

casd 发表于 2018-1-19 10:19
你可能是cad初学者，还要继续努力

对,我是lsp初学者

clinber

liunian0524 发表于 2018-1-19 10:22
对,我是lsp初学者

楼主要求是重复面板里面上一次点击的命令 不是重复弹出面板的命令

liunian0524

clinber 发表于 2018-1-19 12:50
楼主要求是重复面板里面上一次点击的命令 不是重复弹出面板的命令

明白,如果面板不是点击,是直接输入命令调取的就可以,点击这样是不行的