(XD::Menu:AddPopupMenu)添加菜单

546480711 · 发表于 2018-11-13 10:40:16

popupmenu得好好看看

l676478394 · 发表于 2018-11-18 13:39:21

nu:AddPopupMenu)添加菜单 [修改]

caogis · 发表于 2018-11-23 16:04:04

查菜单对应的命令

userzhl · 发表于 2018-11-25 15:40:24

强强强强强强强强强强

userzhl · 发表于 2018-11-25 15:48:40

强强强强强强强强强强

naruto018 · 发表于 2018-12-6 17:36:22

来学习一下

qyming2000 · 发表于 2018-12-12 18:58:58

不错，收藏
来自: 微社区

lslsq · 发表于 2018-12-18 16:38:41

谢谢大师的分享

csy0415 · 发表于 2018-12-19 16:12:41

学习一下大师之作，感谢分享！

lt1058479745 · 发表于 2018-12-21 22:35:24

谢谢谢谢谢谢分享

hn10183051 · 发表于 2019-1-16 12:53:38

谢谢分享！

453722995 · 发表于 2019-1-23 11:46:59

谢谢大师的分享！谢谢！！

wrf610051 · 发表于 2019-2-10 06:25:55

今天有时间，都想了解一下，谢谢分享。

时见申_HHujx · 发表于 2019-2-10 11:41:15

谢谢分享，十分感谢
来自: 微社区

qyming2000 · 发表于 2019-3-3 08:12:34

二级菜单

(defun c:tt1 (/ lst)
(setq lst '(("初始化" "cass")
("--" nil)
("野外测点" "zdh")
("展高程点" "zgcd")
("替代高程" "gcd2dot")
("填充符号" "fhxs")
("宗地工具"
(("调整宗地" "tzjzd")
("--" nil)
("曲线换向" "lwpolyline")
)
)
("定位成果" "dwcqsj")
("拆迁成果" "hzcqsj")
("--" nil)
("激活配置" "actp0")
("屏幕开关" "screenmmenu")
)
)
(addmenus "智能工具" lst)
(princ)
)
(defun addmenus (name lst / insertitem
curmenugroup curmenus menubar
menugroups popmenu tmp
)
(defun insertitem (curmenu lst / cmdstr k label temp)
(setq k (vla-get-count curmenu))
(foreach x lst
(setq label (car x)
cmdstr (cadr x)
)
(cond ((= label "--")
(vla-addseparator curmenu (1+ k))
((listp cmdstr)
(setq tmp
(vla-addsubmenu curmenu (1+ k) label)
)
(insertitem tmp cmdstr)
)
)
(t
(vla-addmenuitem
curmenu
(1+ (vla-get-count curmenu))
label
(strcat cmdstr (chr 32))
)
)
)
)
)
(setq menubar (vla-get-menubar (vlax-get-acad-object))
menugroups (vla-get-menugroups (vlax-get-acad-object))
curmenugroup (vla-item menugroups 0)
curmenus (vla-get-menus curmenugroup)
)
(if (vl-catch-all-error-p
(vl-catch-all-apply 'vla-item (list menubar name))
)
(progn (setq popmenu (vla-add curmenus name))
(vla-insertinmenubar popmenu (1+ (vla-get-count menubar)))
)
(setq popmenu (vla-item menubar name))
)
(insertitem popmenu lst)
t
)

(defun c:tt1 (/ lst) 
  (setq        lst '(("初始化" "cass") 
              ("--" nil) 
              ("野外测点" "zdh") 
              ("展高程点" "zgcd") 
              ("替代高程" "gcd2dot") 
              ("填充符号" "fhxs") 
              ("宗地工具" 
               (("调整宗地" "tzjzd") 
                ("--" nil) 
                ("曲线换向" "lwpolyline") 
               ) 
              ) 
              ("定位成果" "dwcqsj") 
              ("拆迁成果" "hzcqsj") 
              ("--" nil) 
              ("激活配置" "actp0") 
              ("屏幕开关" "screenmmenu") 
             ) 
  ) 
  (addmenus "智能工具" lst) 
  (princ) 
) 
(defun addmenus        (name             lst         /             insertitem 
                 curmenugroup                 curmenus    menubar 
                 menugroups  popmenu         tmp 
                ) 
  (defun insertitem (curmenu lst / cmdstr k label temp) 
    (setq k (vla-get-count curmenu)) 
    (foreach x lst 
      (setq label  (car x) 
            cmdstr (cadr x) 
      ) 
      (cond ((= label "--") 
             (vla-addseparator curmenu (1+ k)) 
             ((listp cmdstr) 
               (setq tmp 
                      (vla-addsubmenu curmenu (1+ k) label) 
               ) 
               (insertitem tmp cmdstr) 
             ) 
            ) 
            (t 
             (vla-addmenuitem 
               curmenu 
               (1+ (vla-get-count curmenu)) 
               label 
               (strcat cmdstr (chr 32)) 
             ) 
            ) 
      ) 
    ) 
  ) 
  (setq        menubar             (vla-get-menubar (vlax-get-acad-object)) 
        menugroups   (vla-get-menugroups (vlax-get-acad-object)) 
        curmenugroup (vla-item menugroups 0) 
        curmenus     (vla-get-menus curmenugroup) 
  ) 
  (if (vl-catch-all-error-p 
        (vl-catch-all-apply 'vla-item (list menubar name)) 
      ) 
    (progn (setq popmenu (vla-add curmenus name)) 
           (vla-insertinmenubar popmenu (1+ (vla-get-count menubar))) 
    ) 
    (setq popmenu (vla-item menubar name)) 
  ) 
  (insertitem popmenu lst) 
  t 
)

账号		自动登录	找回密码
密码			立即注册

[选择集] (XD::Menu:AddPopupMenu)添加菜单