使用VLISP动态向AutoCAD菜单条中夹塞菜单条目

admin

使用VLISP动态向AutoCAD菜单条中夹塞菜单条目

1. [font=courier new]
2. ;; 删除菜单
3. (defun C:RemoveBplotMenu (/ MenuBar n i MenuItem Menu tag)
4.   (setq MenuBar (vla-get-menubar (vlax-get-acad-object)))
5.   ;; 找菜单“文件(&F)” "&File" tag: ID采用MnFile
6.   (setq n (vla-get-count MenuBar))
7.   (setq i (1- n))
8.   (while (and (>= i 0)                  ; 没有超过上限
9.               (/= "ID采用MnFile" (vla-get-tagstring (setq menuitem (vla-item MenuBar i)))) ; 找到"文件"菜单条
10.          )
11.     (setq i (1- i))
12.   )
13.   (if (< i 0)
14.     (setq i 0)
15.   )                                     ; 如果没有文件菜单, 取第一条菜单
16.   (setq menu (vla-item MenuBar i))
17.   ;;遍历文件菜单 删除原来的批量打印条目
18.   (setq n (vla-get-count menu))
19.   (setq i (1- n))
20.   (while (> i 0)
21.     (setq menuitem (vla-item menu i))
22.     (setq tag (vla-get-tagstring menuitem))
23.     (if (member tag '("ID采用mnuBatchPlot" "ID采用mnuBatchPlot2" "ID采用mnuBatchPlotPopup"))
24.       (vla-delete menuitem)
25.     )
26.     (setq i (1- i))
27.   )
28.   (princ)
29. )
30. ;; 添加菜单
31. (defun C:AddBplotMenu (/ MenuBar menu menuitem bplotPopupMenu bplotmenuitem cap tag tmp i n)
32.   (C:RemoveBplotMenu)
33.   (setq MenuBar (vla-get-menubar (vlax-get-acad-object)))
34.   ;; 找到菜单“文件(&F)” "&File" tag: ID采用MnFile
35.   (setq n (vla-get-count MenuBar))
36.   (setq i (1- n))
37.   (while (and (>= i 0)                  ; 没有超过上限
38.               (/= "ID采用MnFile" (vla-get-tagstring (setq menuitem (vla-item MenuBar i)))) ; 找到"文件"菜单条
39.          )
40.     (setq i (1- i))
41.   )
42.   (if (< i 0)                           ; 如果没有文件菜单, 取第一条菜单
43.     (setq i 0)
44.   )
45.   (setq menu (vla-item MenuBar i))
46.   ;; 找到打印菜单项, 设置当前插入位置
47.   (setq i 0)
48.   (setq n (vla-get-count menu))
49.   (while (and (< i n)                   ; 没有超过上限
50.               (/= "ID采用Print" (vla-get-tagstring (setq menuitem (vla-item menu i)))) ; 找到"打印"菜单条
51.          )
52.     (setq i (1+ i))
53.   )
54.   (if (= i n)                           ; 如果没有找到"打印"菜单条, 插在倒数第二条.
55.     (setq i (- n 2))
56.   )
57.   ;; 在当前插入位置的下面一条添加批量打印条目
58.   (setq bplotmenuitem
59.          (vla-addmenuitem
60.            menu
61.            (setq i (1+ i))
62.            "批量打印(&B)..."
63.            "\003\003采用BatchPlot "
64.          )
65.   )
66.   (vla-put-label bplotmenuitem "(if,
67. (eq,$(getvar,blockeditor),1),~)批量打印(&B)...")
68.   (vla-put-tagstring bplotmenuitem "ID采用mnuBatchPlot")
69.   (vla-put-helpstring bplotmenuitem "批量打印、批量生成布局、批量分图实用工具程序")
70.   ;; 再在下面创建下级批量打印实用工具子菜单
71.   (setq bplotPopupMenu (vla-addsubmenu menu (1+ i) "批量打印实用工具(&L)"))
72.                                         ; (vla-put-tagstring bplotPopupMenu "ID采用mnuBatchPlotPopup") ;不知道为什么不行.
73.   ;; 下面这段代码设置批量打印实用工具子菜单的Tag
74.   (setq n (vla-get-count menu))
75.   (setq i (1- n))
76.   (while (> i 0)
77.     (setq menuitem (vla-item menu i))
78.     (setq cap (vla-get-caption menuitem))
79.     (if (= "批量打印实用工具(&L)" cap)
80.       (vla-put-tagstring menuitem "ID采用mnuBatchPlotPopup")
81.     )
82.     (setq i (1- i))
83.   )
84.   (setq i 0)
86.   ;; 下面是子菜单条目
87.   (setq tmp
88.          (vla-addmenuitem
89.            bplotPopupMenu
90.            (setq i (1+ i))
91.            "批量打印(&C)..."
92.            "\003\003采用bp采用doPlot "
93.          )
94.   )
95.   (vla-put-label tmp "(if,
96. (eq,$(getvar,blockeditor),1),~)批量打印(&C)...")
97.   (vla-put-helpstring tmp "批量打印图纸，直接发送到物理打印机或虚拟打印机")
98.   (setq tmp
99.          (vla-addmenuitem
100.            bplotPopupMenu
101.            (setq i (1+ i))
102.            "批量生成布局(&L)..."
103.            "\003\003采用bp采用doLayout "
104.          )
105.   )
106.   (vla-put-label tmp "(if,
107. (eq,$(getvar,blockeditor),1),~)批量生成布局(&L)...")
108.   (vla-put-helpstring tmp "批量按当前的打印设置生成布局，每个图框一个布局")
109.   (setq tmp
110.          (vla-addmenuitem
111.            bplotPopupMenu
112.            (setq i (1+ i))
113.            "批量生成PLT文件(&P)..."
114.            "\003\003采用bp采用doPlotFile "
115.          )
116.   )
117.   (vla-put-label tmp "(if,
118. (eq,$(getvar,blockeditor),1),~)批量生成PLT文件(&P)...")
119.   (vla-put-helpstring tmp "批量生成PLT打印文件供机房绘图仪服务器统一打印")
120.   (setq tmp
121.          (vla-addmenuitem
122.            bplotPopupMenu
123.            (setq i (1+ i))
124.            "批量切分图纸(&W)..."
125.            "\003\003采用bp采用doWblock "
126.          )
127.   )
128.   (vla-put-label tmp "(if,
129. (eq,$(getvar,blockeditor),1),~)批量切分图纸(&W)...")
130.   (vla-put-helpstring tmp "自动根据图框切分图纸，每个图框一个DWG文件，供归档用")
131.   (setq tmp
132.          (vla-addmenuitem
133.            bplotPopupMenu
134.            (setq i (1+ i))
135.            "打印现有布局(&A)..."
136.            "\003\003采用bp采用doPlotLayout "
137.          )
138.   )
139.   (vla-put-label tmp "(if,
140. (eq,$(getvar,blockeditor),1),~)打印现有布局(&A)...")
141.   (vla-put-helpstring tmp "按现有的布局显示顺序批量打印现有的布局空间")
142.   (vla-AddSeparator
143.     bplotPopupMenu
144.     (setq i (1+ i))
145.   )
146.   (setq tmp (vla-addmenuitem
147.               bplotPopupMenu
148.               (setq i (1+ i))
149.               "清除批量打印数据(&D)"
150.               "\003\003采用DeleteBPlotData "
151.             )
152.   )
154.   (vla-AddSeparator
155.     bplotPopupMenu
156.     (setq i (1+ i))
157.   )
158.   (vla-addmenuitem
159.     bplotPopupMenu
160.     (setq i (1+ i))
161.     "捐助作者支持开发(&D)"
162.     "\003\003采用Browser (findfile "donate.htm") "
163.   )
164.   (vla-addmenuitem
165.     bplotPopupMenu
166.     (setq i (1+ i))
167.     "访问软件主页(&M)"
168.     "\003\003采用Browser [url]http://fresco.yo2.cn/archives/92111[/url] "
169.   )
170.   (vla-addmenuitem
171.     bplotPopupMenu
172.     (setq i (1+ i))
173.     "批量打印帮助(&H)"
174.     "\003\003采用Browser (findfile "bp采用help.htm") "
175.   )
177.   (princ)
178. )
179. ;; 加载批量打印菜单
180. (C:AddBplotMenu)
181. (princ)[/font]

复制代码