请问去掉Opendcl标签

染指_红颜笑 · 发表于 2014-8-25 21:08:18

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

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

×

首先感谢eachy版主开发分享了一套仿天正左侧停靠菜单

现在我是想去掉自带的tab标签，但是不管是直接注释了tab部分的代码，或者设**XDTBCurrentMainMenuDataStru**为空

则会循环报错，CAD会挂掉。

请问，具体该怎样去掉此标签？

帖子链接：http://bbs.xdcad.net/forum.php?mod=viewthread&tid=672357&extra=page%3D1

st788796 · 发表于 2014-8-25 21:57:19

贴上你修改的菜单文件

染指_红颜笑 · 发表于 2014-8-26 08:33:12

st788796 发表于 2014-8-25 21:57
贴上你修改的菜单文件

;;================================================================================;
;; 变量说明 ;
;;================================================================================;
;;**XDTBMenuDataStru** 菜单总数据 ;
;;**XDTBTabMenuDataStru** 标签数据 ;
;;**XDTBCurrentMainMenuDataStru** 当前Tab的主菜单数据 ;
;; ;
;;注意: 变量名称不可更改 ;
;;--------------------------------------------------------------------------------;
;; 菜单数据初始化 ;
;;--------------------------------------------------------------------------------;
;;获取当前菜单数据
(defun Menu_CurrentMenu_DataStru (n)
(if (eq (type n) 'INT)
(cdr
(assoc (strcat "TAB" (itoa n)) (cdddr **XDTBMenuDataStru**))
)
(cdr (assoc n (cdddr **XDTBMenuDataStru**)))
)
)
;;初始化菜单数据
(defun Menu_DataStru_OnInitialize ()
(setq **XDTBMenuDataStru**
(ea_mainmenu_datastru) ;_主数据
**XDTBTabMenuDataStru**
(caddr **XDTBMenuDataStru**) ;_标签数据
**XDTBCurrentMainMenuDataStru**
(Menu_CurrentMenu_DataStru
(car **XDTBTabMenuDataStru**)
) ;_当前Tab的主菜单数据
)
(vl-propagate '**XDTBMenuDataStru**)
(vl-propagate '**XDTBTabMenuDataStru**)
(vl-propagate '**XDTBCurrentMainMenuDataStru**)
)
(defun ODCL_MainMenu_Tab_IsOnly ()
(if (= (length **XDTBTabMenuDataStru**) 1)
(setq **XDTBTabMenuIsEnabled** nil)
(setq **XDTBTabMenuIsEnabled** t)
)
t
)
(defun ODCL_MainMenu_Button_XPositon ()
(if **XDTBTabMenuIsEnabled**
(setq **XDTBMainMenuButtonXPosition** 24)
(setq **XDTBMainMenuButtonXPosition** 0)
)
)
;;Main Program
(defun C:XDTB_Menutool ()
;;(if xdrx_document_getversionex
(if dcl_getversion
(if (and (findfile "xdcad.odcl") ;_ODCL文件
(findfile "xdtb_menu.lsp") ;_菜单文件
(findfile "xdtb_menucontrol.vlx") ;_控制文件
)
(progn
(vl-load-all "xdtb_menu.lsp")
;;(vl-load-all "xdtb_autoload.lsp");_自动加载Lsp文件
(Menu_DataStru_OnInitialize) ;_初始化主菜单数据
(ODCL_MainMenu_Button_XPositon)
(ODCL_MainMenu_Tab_IsOnly)
(dcl_project_load "xdcad.odcl")
(and (not **XDTBTabMenuIsEnabled**)
(/= (dcl_control_getwidth xdcad_mainmenu) 76)
(dcl_control_setwidth xdcad_mainmenu 76)
)
(and **XDTBTabMenuIsEnabled**
(/= (dcl_control_getwidth xdcad_mainmenu) 96)
(dcl_control_setwidth xdcad_mainmenu 96)
)
(if (dcl_form_isactive xdcad_mainmenu)
(dcl_form_close xdcad_mainmenu)
)
(dcl_form_show xdcad_mainmenu)
(vl-load-all "xdtb_menucontrol.vlx")
)
(princ "\n未找到菜单支持文件!")
)
(princ "\n需要加载OpenDCL!")
)
;;(princ "\n需要XDRXAPI支持!")
;;)
(princ)
)
(C:XDTB_Menutool)
(princ)

;;================================================================================; 
;;             变量说明                                                           ; 
;;================================================================================; 
;;**XDTBMenuDataStru**            菜单总数据                                      ; 
;;**XDTBTabMenuDataStru**         标签数据                                        ; 
;;**XDTBCurrentMainMenuDataStru** 当前Tab的主菜单数据                             ; 
;;                                                                                ; 
;;注意: 变量名称不可更改                                                          ; 
;;--------------------------------------------------------------------------------; 
;;            菜单数据初始化                                                      ; 
;;--------------------------------------------------------------------------------; 
;;获取当前菜单数据 
(defun Menu_CurrentMenu_DataStru (n) 
  (if (eq (type n) 'INT) 
    (cdr 
      (assoc (strcat "TAB" (itoa n)) (cdddr **XDTBMenuDataStru**)) 
    ) 
    (cdr (assoc n (cdddr **XDTBMenuDataStru**))) 
  ) 
) 
;;初始化菜单数据 
(defun Menu_DataStru_OnInitialize () 
  (setq  **XDTBMenuDataStru** 
   (ea_mainmenu_datastru) ;_主数据 
  **XDTBTabMenuDataStru** 
   (caddr **XDTBMenuDataStru**) ;_标签数据 
  **XDTBCurrentMainMenuDataStru** 
   (Menu_CurrentMenu_DataStru 
     (car **XDTBTabMenuDataStru**) 
   ) ;_当前Tab的主菜单数据 
  ) 
  (vl-propagate '**XDTBMenuDataStru**) 
  (vl-propagate '**XDTBTabMenuDataStru**) 
  (vl-propagate '**XDTBCurrentMainMenuDataStru**) 
) 
(defun ODCL_MainMenu_Tab_IsOnly  () 
  (if (= (length **XDTBTabMenuDataStru**) 1) 
    (setq **XDTBTabMenuIsEnabled** nil) 
    (setq **XDTBTabMenuIsEnabled** t) 
  ) 
  t 
) 
(defun ODCL_MainMenu_Button_XPositon () 
  (if **XDTBTabMenuIsEnabled** 
    (setq **XDTBMainMenuButtonXPosition** 24) 
    (setq **XDTBMainMenuButtonXPosition** 0) 
  ) 
) 
;;Main  Program 
(defun C:XDTB_Menutool () 
  ;;(if xdrx_document_getversionex 
  (if dcl_getversion 
    (if  (and (findfile "xdcad.odcl") ;_ODCL文件 
       (findfile "xdtb_menu.lsp") ;_菜单文件 
       (findfile "xdtb_menucontrol.vlx") ;_控制文件 
  ) 
      (progn 
  (vl-load-all "xdtb_menu.lsp") 
  ;;(vl-load-all "xdtb_autoload.lsp");_自动加载Lsp文件 
  (Menu_DataStru_OnInitialize) ;_初始化主菜单数据 
  (ODCL_MainMenu_Button_XPositon) 
  (ODCL_MainMenu_Tab_IsOnly) 
  (dcl_project_load "xdcad.odcl") 
  (and (not **XDTBTabMenuIsEnabled**) 
       (/= (dcl_control_getwidth xdcad_mainmenu) 76) 
       (dcl_control_setwidth xdcad_mainmenu 76) 
  ) 
  (and **XDTBTabMenuIsEnabled** 
       (/= (dcl_control_getwidth xdcad_mainmenu) 96) 
       (dcl_control_setwidth xdcad_mainmenu 96) 
  ) 
  (if (dcl_form_isactive xdcad_mainmenu) 
    (dcl_form_close xdcad_mainmenu) 
  ) 
  (dcl_form_show xdcad_mainmenu) 
  (vl-load-all "xdtb_menucontrol.vlx") 
      ) 
      (princ "\n未找到菜单支持文件!") 
    ) 
    (princ "\n需要加载OpenDCL!") 
  ) 
  ;;(princ "\n需要XDRXAPI支持!") 
  ;;) 
  (princ) 
) 
(C:XDTB_Menutool) 
(princ)

染指_红颜笑 · 发表于 2014-8-26 08:33:44

st788796 发表于 2014-8-25 21:57
贴上你修改的菜单文件

;;******************************************************************************************;
;;声明: ;
;; 本文件为 xdcadmenu 的配套菜单定义文件，你可以自由定制并修改，使用前请仔细阅读以下说明 ;
;;并严格按照使用说明定制! 未遵守约定定制所造成的异常自行负责! ;
;; 本程序虽然经过严格测试，但不保证每个机器能顺利安全运行，由此造成的一切损失和后果与本人;
;;无关! ;
;; 本程序为开源软件，使用和传播请保持本信息的完整性! ;
;; 本程序需 OpenDCL 支持! ;
;;==========================================================================================;
;; 菜单文件总说明 ;
;;==========================================================================================;
;;1 最大支持 5 个 Tab 菜单 ;
;;2 菜单文件约定字符串需大写 ;
;;3 不可更改字串 ;
;; TITLE ----- 菜单标题标记 ;
;; LOGO ----- 菜单Logo标记 ;
;; TAB0 TAB1 TAB2 TAB3 TAB4 ----- Tab菜单标记 ;
;; MAIN ----- 主菜单标记，每个Tab菜单中 ;
;; SUB0 SUB1 ..... ----- 二级子菜单标记，与MAIN主菜单菜单对应 ;
;; = ----- 分隔符标记，用于主菜单和子菜单 ;
;;4 图标约定 ;
;; 100 主菜单默认图标，向右实心三角 ;
;; 101 子菜单首行默认图标, 向下实心三角 ;
;; 102 空白图标, 用于对齐文字 ;
;; 103 Logo图标 ;
;; 以上四个个序号供系统内部使用 ;
;;5 Logo 图标默认大小 16 x 32 需Support下图片文件 ;
;;6 前三行约定格式 ;
;; ("TITLE" "XDCAD") 菜单标题，名称可以自定义 ;
;; ("LOGO" "logo.png") Logo 图标，文件可自定义 ;
;; ("TAB0" ("TAB0" "通用") ("TAB1" "建筑") ("TAB" 其它")) 启用Tab设置， ;
;; 第一个元素为默认启用的TAB菜单, 后面为启用几个及Tab名称，名称可自定义 ;
;;7 图标的添加 ;
;; 图标大小为 16 x 16 像素 ;
;; 用 OpenDCL Sutdio 打开 xdcad.odcl ;
;; 在 Project -> View/Edit Picture Folder 中添加自定义图标 ;
;; 添加后的图标为菜单命令中所使用的ID ;
;; 注意 ODCL 中控件名称、位置及事件不可改动! ;
;;8 主菜单定义中末尾为 T 则直接定义为命令, 不再转换子菜单 ;
;; 如 ("块改基点" "动态修改块基点" "XDTB_BlockChgBasept" 100 t) ;
;; 或 ("块改基点" "XDTB_BlockChgBasept" 100 t) ;
;; 或 ("块改基点" "XDTB_BlockChgBasept" t) ;
;;------------------------------------------------------------------------------------------;
;; 菜单定义说明 ;
;;------------------------------------------------------------------------------------------;
;;1 主菜单 ;
;; (显示名称程序说明图标ID) 如 ("曲线工具" "Curve类工具" 100) ;
;; 程序说明和图标ID可以省略, 图标省略取默认 100 ID ;
;;2 子菜单 ;
;; (显示名称程序说明命令名称图标ID) 如("曲直互断" "曲线断开相交线" "XDTB_BREAK" 104) ;
;; 程序说明及图标ID和省略，其中首行默认图标 101 ;
;; 命令行省略图标默认 102 ;
;;------------------------------------------------------------------------------------------;
;;Author: Eachy from www.xdcad.net 2013.12.30 ;
;;------------------------------------------------------------------------------------------;
(defun ea_mainmenu_datastru ()
'(("TITLE" "XDCAD") ;_菜单标题
("LOGO" 103) ;_Logo 图标,不启用仅保留名称
("TAB0" ("TAB0" "通用") ("TAB1" "专业") ("TAB2" "图层")) ;_根据Tab启用情况增减
;;以上三行固定格式，不可更改标记名称或省略元素
;;第一个TAB菜单
("TAB0"
;;主菜单, 命令说明和图标可省略
("MAIN"
("曲线一 " "曲线类工具" 100)
("曲线二 " 100)
"="
("图块工具" 100)
("填充工具")
("标注工具")
("文字工具")
("图层工具")
"=" ;_分隔符，固定符号不可更改
("实体工具")
"="
("专业工具")
)
;;第一个子菜单，对应 Main 中次序, 命令说明和图标可省略
("SUB0"
("多线清理" "XDTB_PolyCompress")
"="
("批量倒角" "xdtb_plinebataddfillet")
("增加顶点" "XDTB_PLineAddPnt")
("删除顶点" "XDTB_PLineRemovePnt")
("框删顶点" "XDTB_RemoveVerts")
("删区间点"
"删除多段线两点间的所有顶点"
"XDTB_PolyLineR2Pnt"
)
("删除整段" "XDTB_PolylineRSEG")
("框选断开" "XDTB_CurveCrossBreak")
"="
("局部偏移" "xdtb_plinesegoffset")
("成组偏移" "XDTB_CurveGOffset")
("单线变双" "XDTB_CurveDOffset")
("内偏延伸" "XDTB_PlineSegOffsetIn")
"="
("SP转Pline" "XDTB_SPline2PL")
("曲线转型"
"将二维多段线在普通、FIT、B样条、C样条曲线间批量转换"
"XDTB_PlineConvertType"
)
("光滑曲线" "XDTB_CURVEFIT")
("光滑转直" "XDTB_PLineRFIT")
("线变复线" "XDTB_CURVE_L2PL")
"="
("融合线段" "XDTB_LineJoin")
("曲线校正" "XDTB_DrawAdjust")
"="
("识别内角" "XDTB_PlineInterior")
("批标线长" "XDTB_Dimlines")
)
;;第二个子菜单
("SUB1"
("删超短线" "XDTB_CurveDelSLine")
("消除重线" "XDTB_RDUPLINE")
"="
("自由矩形" "XDTB_RectFree")
("拓扑造区" "ToPoMkRegion")
("多线轮廓" "XDTB_PLine2Outline")
"="
("快速修整" "XDTB_PolylineTrim")
("自动修剪" "XDTB_CurveAutoRepair")
("局部加粗" "XDTB_PlineSegWidth")
"="
("辅助垂线" "XDTB_HelpPerpLine")
)
("SUB2"
("图块轮廓" "生成图块轮廓线" "XDTB_Block2Bound" 100)
("图层至 0"
"所有实体图层变为0层，支持嵌套"
"Xdtb_blockE20"
100
)
("图块遮罩" "Xdtb_blockmark" 100)
("修改基点" "动态修改图块插入点" "XDTB_BlockChgBasePnt" 100)
("动态匹配" "动态块完全匹配" "XDTB_DYNMat")
("块生外框" "生成UCS包围盒" "XDTB_Block2Box")
("重命名块" "重新指定名称" "XDTB_BlockRename")
("块内裁剪" "准确的块轮廓线裁剪边界" "XDTB_BlockTrim")
("块内改色" "XDTB_BlockRefChgClr")
("提取轮廓" "交互提取轮廓" "XDTB_BlockSingleBound")
("提取外框" "交互提取外框" "XDTB_BlockSingleBox")
("移动实体" "块内实体移动" "XDTB_MoveEntInBlk")
("块添实体" "XDTB_BlockAppendEntity")
("比例修复" "XDTB_BlockAdjust")
("图块合并" "图块合并成匿名块" "XDTB_BlkRefUnion")
("局部复制" "从XREF,INSERT实体内部抠出实体" "XDTB_CopyN")
)
("SUB3"
("快速填充" "XDTB_FastHatch")
("填充置底" "XDTB_Hatch->Bottom")
("填充消重" "XDTB_HatchRemoveDup")
("填充挖洞" "XDTB_Hacth")
)
("SUB4" ("标分布筋" "XDTB_DimFbgj"))
("SUB5"
("同字连线" "XDTB_FindString")
("文本对齐" "XDTB_TXTAlign")
("修改文字" "XDTB_TXTChange")
("沿线写字" "XDTB_TextMkAtLine")
)
("SUB6"
("图层归并"
"将所有实体设置到指定的图层，并进行图形清理，支持嵌套的图块，所有实体颜色随层。"
"XDTB_LayerMerge"
)
("图层全开"
"打开所有图层，包括关闭和冻结的"
"XDTB_LyrOnAll"
)
("选层保留" "关闭非选择图层" "XDTB_LAYERREV")
("选层冻结" "支持块内图层" "XDTB_LyrFrozenByPick")
("冻结隐藏" "冻结所有不可见层" "XDTB_LyrFrozenAllOff")
("解冻所有" "解冻所有图层" "XDTB_LyrUnFrozenAll")
)
("SUB7"
("面域合并" "XDTB_RegionUnion")
("面域转线" "XDTB_Region2Curves")
("面域差集" "XDTB_RegionSubtract")
("面域求交" "XDTB_RegionIntersect")
"="
("修改颜色" "XDTB_EntityChgClr")
"="
("实体信息"
"动态鼠标显示实体信息开关命令，开、关交替命"
"XDTB_EntityInfo"
)
)
("SUB8"
("标三四通" "XDTB_PIPEHead1")
)
) ;_结束第一个 tAB
;;开始第二个 TAB
("TAB1"
("MAIN"
("标三四通" "XDTB_PIPEHead1" t)
)
)
;;开始第三个 Tab
;;直接菜单，不需要SUB部分，末尾加 T
("TAB2"
("MAIN"
("图层归并"
"将所有实体设置到指定的图层，并进行图形清理，支持嵌套的图块，所有实体颜色随层。"
"XDTB_LayerMerge"
t
)
("图层全开"
"打开所有图层，包括关闭和冻结的"
"XDTB_LyrOnAll"
t
)
("选层保留" "关闭非选择图层" "XDTB_LAYERREV" t)
("选层冻结" "支持块内图层" "XDTB_LyrFrozenByPick" t)
("冻结隐藏" "冻结所有不可见层" "XDTB_LyrFrozenAllOff" t)
("解冻所有" "解冻所有图层" "XDTB_LyrUnFrozenAll" t)
)
)
)
)

;;******************************************************************************************; 
;;声明:                                                                                     ; 
;;    本文件为 xdcadmenu 的配套菜单定义文件，你可以自由定制并修改，使用前请仔细阅读以下说明 ; 
;;并严格按照使用说明定制! 未遵守约定定制所造成的异常自行负责!                               ; 
;;    本程序虽然经过严格测试，但不保证每个机器能顺利安全运行，由此造成的一切损失和后果与本人; 
;;无关!                                                                                     ; 
;;    本程序为开源软件，使用和传播请保持本信息的完整性!                                     ; 
;;    本程序需 OpenDCL 支持!                                                                ; 
;;==========================================================================================; 
;;                       菜单文件总说明                                                     ; 
;;==========================================================================================; 
;;1 最大支持 5 个 Tab 菜单                                                                  ; 
;;2 菜单文件约定字符串需大写                                                                ; 
;;3 不可更改字串                                                                            ; 
;;      TITLE                     ----- 菜单标题标记                                        ; 
;;      LOGO                      ----- 菜单Logo标记                                        ; 
;;      TAB0 TAB1 TAB2 TAB3 TAB4  ----- Tab菜单标记                                         ; 
;;      MAIN                      ----- 主菜单标记，每个Tab菜单中                           ; 
;;      SUB0 SUB1  .....          ----- 二级子菜单标记，与MAIN主菜单菜单对应                ; 
;;      =                         ----- 分隔符标记，用于主菜单和子菜单                      ; 
;;4 图标约定                                                                                ; 
;;  100 主菜单默认图标，向右实心三角                                                        ; 
;;  101 子菜单首行默认图标, 向下实心三角                                                    ; 
;;  102 空白图标, 用于对齐文字                                                              ; 
;;  103 Logo图标                                                                            ; 
;;  以上四个个序号供系统内部使用                                                            ; 
;;5 Logo 图标默认大小 16 x 32 需Support下图片文件                                           ; 
;;6 前三行约定格式                                                                          ; 
;;  ("TITLE" "XDCAD") 菜单标题，名称可以自定义                                              ; 
;;  ("LOGO" "logo.png") Logo 图标，文件可自定义                                             ; 
;;  ("TAB0" ("TAB0" "通用") ("TAB1" "建筑") ("TAB" 其它")) 启用Tab设置，                    ; 
;;   第一个元素为默认启用的TAB菜单, 后面为启用几个及Tab名称，名称可自定义                   ; 
;;7 图标的添加                                                                              ; 
;;  图标大小为 16 x 16 像素                                                                 ; 
;;  用 OpenDCL Sutdio 打开 xdcad.odcl                                                       ; 
;;  在 Project -> View/Edit Picture Folder 中添加自定义图标                                 ; 
;;  添加后的图标为菜单命令中所使用的ID                                                      ; 
;;  注意 ODCL 中控件名称、位置及事件不可改动!                                               ; 
;;8 主菜单定义中末尾为 T 则直接定义为命令, 不再转换子菜单                                   ; 
;;  如 ("块改基点" "动态修改块基点" "XDTB_BlockChgBasept" 100 t)                            ; 
;;  或 ("块改基点" "XDTB_BlockChgBasept" 100 t)                                             ; 
;;  或 ("块改基点" "XDTB_BlockChgBasept" t)                                                 ; 
;;------------------------------------------------------------------------------------------; 
;;                       菜单定义说明                                                       ; 
;;------------------------------------------------------------------------------------------; 
;;1 主菜单                                                                                  ; 
;;   (显示名称 程序说明 图标ID) 如 ("曲线工具" "Curve类工具" 100)                           ; 
;;   程序说明和图标ID可以省略, 图标省略取默认 100 ID                                        ; 
;;2 子菜单                                                                                  ; 
;;   (显示名称 程序说明 命令名称 图标ID) 如("曲直互断" "曲线断开相交线" "XDTB_BREAK" 104)   ; 
;;   程序说明及图标ID和省略，其中首行默认图标 101                                           ; 
;;   命令行省略图标默认 102                                                                 ; 
;;------------------------------------------------------------------------------------------; 
;;Author: Eachy from <a href=\"http://www.xdcad.net\" target=\"_blank\">www.xdcad.net</a> 2013.12.30                                               ; 
;;------------------------------------------------------------------------------------------; 
(defun ea_mainmenu_datastru () 
  '(("TITLE" "XDCAD") ;_菜单标题 
    ("LOGO" 103) ;_Logo 图标,不启用仅保留名称 
    ("TAB0" ("TAB0" "通用") ("TAB1" "专业") ("TAB2" "图层")) ;_根据Tab启用情况增减 
    ;;以上三行固定格式，不可更改标记名称或省略元素 
    ;;第一个TAB菜单 
    ("TAB0" 
     ;;主菜单, 命令说明和图标可省略 
     ("MAIN" 
      ("曲 线 一 " "曲线类工具" 100) 
      ("曲 线 二 " 100) 
      "=" 
      ("图块工具" 100) 
      ("填充工具") 
      ("标注工具") 
      ("文字工具") 
      ("图层工具") 
      "=" ;_分隔符，固定符号不可更改 
      ("实体工具") 
      "=" 
      ("专业工具") 
     ) 
     ;;第一个子菜单，对应 Main 中次序, 命令说明和图标可省略 
     ("SUB0" 
      ("多线清理" "XDTB_PolyCompress") 
      "=" 
      ("批量倒角" "xdtb_plinebataddfillet") 
      ("增加顶点" "XDTB_PLineAddPnt") 
      ("删除顶点" "XDTB_PLineRemovePnt") 
      ("框删顶点" "XDTB_RemoveVerts") 
      ("删区间点" 
       "删除多段线两点间的所有顶点" 
       "XDTB_PolyLineR2Pnt" 
      ) 
      ("删除整段" "XDTB_PolylineRSEG") 
      ("框选断开" "XDTB_CurveCrossBreak") 
      "=" 
      ("局部偏移" "xdtb_plinesegoffset") 
      ("成组偏移" "XDTB_CurveGOffset") 
      ("单线变双" "XDTB_CurveDOffset") 
      ("内偏延伸" "XDTB_PlineSegOffsetIn") 
      "=" 
      ("SP转Pline" "XDTB_SPline2PL") 
      ("曲线转型" 
       "将二维多段线在普通、FIT、B样条、C样条曲线间批量转换" 
       "XDTB_PlineConvertType" 
      ) 
      ("光滑曲线" "XDTB_CURVEFIT") 
      ("光滑转直" "XDTB_PLineRFIT") 
      ("线变复线" "XDTB_CURVE_L2PL") 
      "=" 
      ("融合线段" "XDTB_LineJoin") 
      ("曲线校正" "XDTB_DrawAdjust") 
      "=" 
      ("识别内角" "XDTB_PlineInterior") 
      ("批标线长" "XDTB_Dimlines") 
     ) 
     ;;第二个子菜单 
     ("SUB1" 
      ("删超短线" "XDTB_CurveDelSLine") 
      ("消除重线" "XDTB_RDUPLINE") 
      "=" 
      ("自由矩形" "XDTB_RectFree") 
      ("拓扑造区" "ToPoMkRegion") 
      ("多线轮廓" "XDTB_PLine2Outline") 
      "=" 
      ("快速修整" "XDTB_PolylineTrim") 
      ("自动修剪" "XDTB_CurveAutoRepair") 
      ("局部加粗" "XDTB_PlineSegWidth") 
      "=" 
      ("辅助垂线" "XDTB_HelpPerpLine") 
     ) 
     ("SUB2" 
      ("图块轮廓" "生成图块轮廓线" "XDTB_Block2Bound" 100) 
      ("图层至 0" 
       "所有实体图层变为0层，支持嵌套" 
       "Xdtb_blockE20" 
       100 
      ) 
      ("图块遮罩" "Xdtb_blockmark" 100) 
      ("修改基点" "动态修改图块插入点" "XDTB_BlockChgBasePnt" 100) 
      ("动态匹配" "动态块完全匹配" "XDTB_DYNMat") 
      ("块生外框" "生成UCS包围盒" "XDTB_Block2Box") 
      ("重命名块" "重新指定名称" "XDTB_BlockRename") 
      ("块内裁剪" "准确的块轮廓线裁剪边界" "XDTB_BlockTrim") 
      ("块内改色" "XDTB_BlockRefChgClr") 
      ("提取轮廓" "交互提取轮廓" "XDTB_BlockSingleBound") 
      ("提取外框" "交互提取外框" "XDTB_BlockSingleBox") 
      ("移动实体" "块内实体移动" "XDTB_MoveEntInBlk") 
      ("块添实体" "XDTB_BlockAppendEntity") 
      ("比例修复" "XDTB_BlockAdjust") 
      ("图块合并" "图块合并成匿名块" "XDTB_BlkRefUnion") 
      ("局部复制" "从XREF,INSERT实体内部抠出实体" "XDTB_CopyN") 
     ) 
     ("SUB3" 
      ("快速填充" "XDTB_FastHatch") 
      ("填充置底" "XDTB_Hatch->Bottom") 
      ("填充消重" "XDTB_HatchRemoveDup") 
      ("填充挖洞" "XDTB_Hacth") 
     ) 
     ("SUB4" ("标分布筋" "XDTB_DimFbgj")) 
     ("SUB5" 
      ("同字连线" "XDTB_FindString") 
      ("文本对齐" "XDTB_TXTAlign") 
      ("修改文字" "XDTB_TXTChange") 
      ("沿线写字" "XDTB_TextMkAtLine") 
     ) 
     ("SUB6" 
      ("图层归并" 
       "将所有实体设置到指定的图层，并进行图形清理，支持嵌套的图块，所有实体颜色随层。" 
       "XDTB_LayerMerge" 
      ) 
      ("图层全开" 
       "打开所有图层，包括关闭和冻结的" 
       "XDTB_LyrOnAll" 
      ) 
      ("选层保留" "关闭非选择图层" "XDTB_LAYERREV") 
      ("选层冻结" "支持块内图层" "XDTB_LyrFrozenByPick") 
      ("冻结隐藏" "冻结所有不可见层" "XDTB_LyrFrozenAllOff") 
      ("解冻所有" "解冻所有图层" "XDTB_LyrUnFrozenAll") 
     ) 
     ("SUB7" 
      ("面域合并" "XDTB_RegionUnion") 
      ("面域转线" "XDTB_Region2Curves") 
      ("面域差集" "XDTB_RegionSubtract") 
      ("面域求交" "XDTB_RegionIntersect") 
      "=" 
      ("修改颜色" "XDTB_EntityChgClr") 
      "=" 
      ("实体信息" 
       "动态鼠标显示实体信息开关命令，开、关交替命" 
       "XDTB_EntityInfo" 
      ) 
     ) 
     ("SUB8" 
      ("标三四通" "XDTB_PIPEHead1") 
     ) 
    ) ;_结束第一个 tAB 
    ;;开始第二个 TAB 
    ("TAB1" 
     ("MAIN" 
      ("标三四通" "XDTB_PIPEHead1" t) 
     ) 
    ) 
    ;;开始第三个 Tab 
    ;;直接菜单，不需要SUB部分，末尾加 T 
    ("TAB2" 
     ("MAIN" 
      ("图层归并" 
       "将所有实体设置到指定的图层，并进行图形清理，支持嵌套的图块，所有实体颜色随层。" 
       "XDTB_LayerMerge" 
       t 
      ) 
      ("图层全开" 
       "打开所有图层，包括关闭和冻结的" 
       "XDTB_LyrOnAll" 
       t 
      ) 
      ("选层保留" "关闭非选择图层" "XDTB_LAYERREV" t) 
      ("选层冻结" "支持块内图层" "XDTB_LyrFrozenByPick" t) 
      ("冻结隐藏" "冻结所有不可见层" "XDTB_LyrFrozenAllOff" t) 
      ("解冻所有" "解冻所有图层" "XDTB_LyrUnFrozenAll" t) 
     ) 
    ) 
   ) 
)

eachy · 发表于 2014-8-26 17:50:59

染指_红颜笑发表于 2014-8-26 08:33

没看明白你要做什么，不需要 Tab 标签，只需保留 ("TAB0")，你贴的是示例文件

染指_红颜笑 · 发表于 2014-8-26 18:08:12

eachy 发表于 2014-8-26 17:50
没看明白你要做什么，不需要 Tab 标签，只需保留 ("TAB0")，你贴的是示例文件

我只是希望能去掉tab可我在odcl编辑器上改了界面，然后注释了部分代码，结果报错。。

原来版主就考虑过这个情况，只需保留 ("TAB0")真的就可以达到目的，谢谢

eachy · 发表于 2014-8-26 18:18:01

染指_红颜笑发表于 2014-8-26 18:08
我只是希望能去掉tab可我在odcl编辑器上改了界面，然后注释了部分代码，结果报错。。

原来版主就考虑 ...

ODCL 不需要你动，需要改的只是添加图标

可自定义的都开放在 lisp 文件，包装的东西你不用关心

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

[求助] 请问去掉Opendcl标签

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

相关帖子

点评

点评

点评

点评