定制自己的非模式菜单（四）-多段线工具集

Lispboy

以 “多段线工具集” 为例

=================================
1、非模式菜单
2、位置在屏幕右上角
3、20秒自动消失，可以修改下面代码的 20000 ，改为你自己希望的时间
4、鼠标移动到菜单，再移出，继续增加20秒
5、菜单显示时候，会自动关闭已经打开的其他非模式OPENDCL对话框

函数：(XD::ODCL:MENU mode setup items)
说下参数：

mode    1:非模式 2：模式

setup ----- 设置选项
" 多段线工具集 " 240 360 3 100 26 10 20000


" 多段线工具集 " --- 显示在对话框上面的文字
240 ---- 菜单宽
360 ---- 菜单高（如果按钮多，以实际的按钮总高决定）
2    ---- 二列按钮
100 ---- 单个按钮宽
26   ---- 单个按钮高
10   ---- 按钮文字高

items ----- 表，三个字符串组成，
             "button" 表示按钮，
             "增PL顶点" 按钮显示的命令名，
             "_XDTB_PLineAddPnt" 执行的命令函数名


(defun c:xdtb_menu_plineedit ()
  (XD::ODCL:MENU
    1
    '(" 多段线工具集 " 240 360 2 70 24 8 20000)
    '(
      ("button" "增PL顶点" "_XDTB_PLineAddPnt")
      ("button" "删PL顶点" "_XDTB_PLineRemovePnt")
      ("button" "重设起点" "_xdtb_plresetvtx")
      ("button" "顶点消重" "_XDTB_PLineCompress")
      ("button" "顶点抽稀" "_XDTB_POLYCX")
      ("button" "自交检查" "_XDTB_PLChkSelfInt")
      ("button" "多线倒角" "_XDTB_PLineFillet")
      ("button" "批修半径" "_XDTB_ModRadius")
      ("button" "PL线搭桥" "_XDTB_PolylineTrim")
      ("button" "PL线Taper" "_XDTB_PLTaper")
      ("button" "PL线分块" "_XDTB_PlineBrk")
      ("button" "列表统计" "_XDTB_PLSegList")
      ("button" "沿线列表" "_XDTB_COORDSLIST1")
      ("button" "沿线坐标" "_XDTB_COORDSAtPLine")
      ("button" "距离编号" "_XDTB_POLYSUMDIS")
      ("button" "线长统计" "_XDTB_TJPLINE")
      ("button" "线长分组" "_XDTB_TJXIANC")
      ("button" "矩形统计" "_XDTB_TJRec")
      ("button" "标四边形" "_XDTB_DIMRectang")
      ("button" "生POLY线" "_XDTB_TEXTPOLY")
      ("button" "写PL文件" "_XDTB_PLINE_LISTFILE")
     )
  )
  (princ)
)

renyonghua2014

我的为什么老出现在菜单的右边，如果CAD全屏显示，本工具菜单就看不到了，（就像被CAD推到屏外边了）

newer

renyonghua2014 发表于 2018-12-2 03:24
我的为什么老出现在菜单的右边，如果CAD全屏显示，本工具菜单就看不到了，（就像被CAD推到屏外边了）

在你有任何问题前，都先确保你的API，或者工具箱，或者晓东通用LISP函数库是最新的。

evayleung

谢谢分享、、、、、、、、、、、、、、

cfc123456

CAD全屏显示，本工具菜单就看不到了.

杜流浪人

经典  只是缺少了XD::ODCL:MENU函数   

newer

cfc123456 发表于 2018-12-2 09:20
CAD全屏显示，本工具菜单就看不到了.

确保 晓东通用LISP函数库是最新的

newer

杜流浪人 发表于 2018-12-2 11:29
经典  只是缺少了XD::ODCL:MENU函数

加载 晓东通用LSP函数库

kiwiairui

感谢分享啊                     

yuren008

不错的，谢谢楼主分享。

coverne

谢谢楼主分享。

owl1999

这个工具条不错哦

00放飞梦想00

请问大神分享源码可以吗？

fengdedaan

哈哈，终于装好了，使用很爽

hsmamw

不错的组合。谢谢分享。。