设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [原创]：使用VLISP动态向AutoCAD菜单条中夹塞菜单条目 ...
返回列表 发新帖
查看: 3245|回复: 1

[原创]：使用VLISP动态向AutoCAD菜单条中夹塞菜单条目

[复制链接]
秋枫
发表于 2009-6-20 19:41:16 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
http://fresco.yo2.cn/archives/642094#more-642094

2007-11-25_183807.gif


程序思路就是利用ActiveX对像模型提供的方法和属性。
目前的问题：设置条目的图标和快捷键（比如Ctrl+Shift+P）不知如何实现。


源代码：



AddBplotMenu.lsp
  2. [font=courier new]
  3. ;; 删除菜单
  4. (defun C:RemoveBplotMenu (/ MenuBar n i MenuItem Menu tag)
  5.   (setq MenuBar (vla-get-menubar (vlax-get-acad-object)))
  6.   ;; 找菜单“文件(&F)” "&File" tag: ID_MnFile
  7.   (setq n (vla-get-count MenuBar))
  8.   (setq i (1- n))
  9.   (while (and (>= i 0)                  ; 没有超过上限
  10.               (/= "ID_MnFile" (vla-get-tagstring (setq menuitem (vla-item MenuBar i)))) ; 找到"文件"菜单条
  11.          )
  12.     (setq i (1- i))
  13.   )
  14.   (if (< i 0)
  15.     (setq i 0)
  16.   )                                     ; 如果没有文件菜单, 取第一条菜单
  17.   (setq menu (vla-item MenuBar i))
  18.   ;;遍历文件菜单 删除原来的批量打印条目
  19.   (setq n (vla-get-count menu))
  20.   (setq i (1- n))
  21.   (while (> i 0)
  22.     (setq menuitem (vla-item menu i))
  23.     (setq tag (vla-get-tagstring menuitem))
  24.     (if (member tag '("ID_mnuBatchPlot" "ID_mnuBatchPlot2" "ID_mnuBatchPlotPopup"))
  25.       (vla-delete menuitem)
  26.     )
  27.     (setq i (1- i))
  28.   )
  29.   (princ)
  30. )
  31. ;; 添加菜单
  32. (defun C:AddBplotMenu (/ MenuBar menu menuitem bplotPopupMenu bplotmenuitem cap tag tmp i n)
  33.   (C:RemoveBplotMenu)
  34.   (setq MenuBar (vla-get-menubar (vlax-get-acad-object)))
  35.   ;; 找到菜单“文件(&F)” "&File" tag: ID_MnFile
  36.   (setq n (vla-get-count MenuBar))
  37.   (setq i (1- n))
  38.   (while (and (>= i 0)                  ; 没有超过上限
  39.               (/= "ID_MnFile" (vla-get-tagstring (setq menuitem (vla-item MenuBar i)))) ; 找到"文件"菜单条
  40.          )
  41.     (setq i (1- i))
  42.   )
  43.   (if (< i 0)                           ; 如果没有文件菜单, 取第一条菜单
  44.     (setq i 0)
  45.   )
  46.   (setq menu (vla-item MenuBar i))
  47.   ;; 找到打印菜单项, 设置当前插入位置
  48.   (setq i 0)
  49.   (setq n (vla-get-count menu))
  50.   (while (and (< i n)                   ; 没有超过上限
  51.               (/= "ID_Print" (vla-get-tagstring (setq menuitem (vla-item menu i)))) ; 找到"打印"菜单条
  52.          )
  53.     (setq i (1+ i))
  54.   )
  55.   (if (= i n)                           ; 如果没有找到"打印"菜单条, 插在倒数第二条.
  56.     (setq i (- n 2))
  57.   )
  58.   ;; 在当前插入位置的下面一条添加批量打印条目
  59.   (setq bplotmenuitem
  60.          (vla-addmenuitem
  61.            menu
  62.            (setq i (1+ i))
  63.            "批量打印(&B)..."
  64.            "\003\003_BatchPlot "
  65.          )
  66.   )
  67.   (vla-put-label bplotmenuitem "$(if,$(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,$(eq,$(getvar,blockeditor),1),~)批量打印(&C)...")
  96.   (vla-put-helpstring tmp "批量打印图纸，直接发送到物理打印机或虚拟打印机")
  97.   (setq tmp
  98.          (vla-addmenuitem
  99.            bplotPopupMenu
  100.            (setq i (1+ i))
  101.            "批量生成布局(&L)..."
  102.            "\003\003_bp_doLayout "
  103.          )
  104.   )
  105.   (vla-put-label tmp "$(if,$(eq,$(getvar,blockeditor),1),~)批量生成布局(&L)...")
  106.   (vla-put-helpstring tmp "批量按当前的打印设置生成布局，每个图框一个布局")
  107.   (setq tmp
  108.          (vla-addmenuitem
  109.            bplotPopupMenu
  110.            (setq i (1+ i))
  111.            "批量生成PLT文件(&P)..."
  112.            "\003\003_bp_doPlotFile "
  113.          )
  114.   )
  115.   (vla-put-label tmp "$(if,$(eq,$(getvar,blockeditor),1),~)批量生成PLT文件(&P)...")
  116.   (vla-put-helpstring tmp "批量生成PLT打印文件供机房绘图仪服务器统一打印")
  117.   (setq tmp
  118.          (vla-addmenuitem
  119.            bplotPopupMenu
  120.            (setq i (1+ i))
  121.            "批量切分图纸(&W)..."
  122.            "\003\003_bp_doWblock "
  123.          )
  124.   )
  125.   (vla-put-label tmp "$(if,$(eq,$(getvar,blockeditor),1),~)批量切分图纸(&W)...")
  126.   (vla-put-helpstring tmp "自动根据图框切分图纸，每个图框一个DWG文件，供归档用")
  127.   (setq tmp
  128.          (vla-addmenuitem
  129.            bplotPopupMenu
  130.            (setq i (1+ i))
  131.            "打印现有布局(&A)..."
  132.            "\003\003_bp_doPlotLayout "
  133.          )
  134.   )
  135.   (vla-put-label tmp "$(if,$(eq,$(getvar,blockeditor),1),~)打印现有布局(&A)...")
  136.   (vla-put-helpstring tmp "按现有的布局显示顺序批量打印现有的布局空间")
  137.   (vla-AddSeparator
  138.     bplotPopupMenu
  139.     (setq i (1+ i))
  140.   )
  141.   (setq tmp (vla-addmenuitem
  142.               bplotPopupMenu
  143.               (setq i (1+ i))
  144.               "清除批量打印数据(&D)"
  145.               "\003\003_DeleteBPlotData "
  146.             )
  147.   )

  149.   (vla-AddSeparator
  150.     bplotPopupMenu
  151.     (setq i (1+ i))
  152.   )
  153.   (vla-addmenuitem
  154.     bplotPopupMenu
  155.     (setq i (1+ i))
  156.     "捐助作者支持开发(&D)"
  157.     "\003\003_Browser (findfile "donate.htm") "
  158.   )
  159.   (vla-addmenuitem
  160.     bplotPopupMenu
  161.     (setq i (1+ i))
  162.     "访问软件主页(&M)"
  163.     "\003\003_Browser [url]http://fresco.yo2.cn/archives/92111[/url] "
  164.   )
  165.   (vla-addmenuitem
  166.     bplotPopupMenu
  167.     (setq i (1+ i))
  168.     "批量打印帮助(&H)"
  169.     "\003\003_Browser (findfile "bp_help.htm") "
  170.   )

  172.   (princ)
  173. )
  174. ;; 加载批量打印菜单
  175. (C:AddBplotMenu)
  176. (princ)[/font]
setq, 批量, vla

本帖被以下淘专辑推荐:

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

cdm1999

已领礼包: 50个

财富等级: 招财进宝
发表于 2018-3-24 22:56:28 | 显示全部楼层
路过看看！！！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-6 03:33 , Processed in 0.414494 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表