工具条制作

姜还是老王的辣

由于楼主是做腔体滤波器行业，前期需要大量的CAD处理，之后3D建模
下面是参考别人的程序然后自己做出的CAD工具条，方便使用
给大家分享，顺便求教，若有同行的话可以交流一下，分享子程序源码
;////////////////////////////////////////////////////////////////////////////////////////////
defun create_toolbar (/ file lst x)
  (setvar "cmdecho" 0)
  (vl-load-com)
  (if (not (menugroup "WHTOOLBAR"))  
      (setq file (open "WHTOOLBAR.mnu"  "W"))
      (foreach x '("***MENUGROUP=WHTOOLBAR\n\n***TOOLBARS\n**WHTOOLBAR"
  "ID_ZCT001   [_Toolbar(\"WH异形工具条\", _Floating, _Hide, 10, 340, 1)]"
  "ID_ZCT011   [_Button(\"圆心连线快捷键yx\", \"RCDATA_16_DIMRAD\", \"RCDATA_16_DIMRAD\")]^C^Cyx"
  "ID_ZCT012   [_Button(\"圆边连线yb\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cyb"
  "ID_ZCT013   [_Button(\"两圆间单条筋db\", \"RCDATA_16_OSNNEA\", \"RCDATA_16_OSNNEA\")]^C^Cdb"
  "ID_ZCT014   [_Button(\"两圆间双筋sb\", \"RCDATA_16_OSNPAR\", \"RCDATA_16_OSNPAR\")]^C^Csb"
  "ID_ZCT013   [_Button(\"三角圆单边异形dv\", \"RCDATA_16_POLYGO\", \"RCDATA_16_POLYGO\")]^C^Cdv"
  "ID_ZCT013   [_Button(\"三角圆双边异形sv\", \"RCDATA_16_SURWED\", \"RCDATA_16_SURWED\")]^C^Csv"
  "ID_ZCT013   [_Button(\"单边异形带螺钉鼓包dh\", \"RCDATA_16_POLYGO\", \"RCDATA_16_POLYGO\")]^C^Cdh"
  "ID_ZCT013   [_Button(\"单边双边鼓包倒角sg\", \"RCDATA_16_MATERIALS_ON\", \"RCDATA_16_MATERIALS_ON\")]^C^Csg"
  "ID_ZCT012   [_Button(\"耦合螺杆tx\", \"RCDATA_16_INTERS\", \"RCDATA_16_INTERS\")]^C^Ctx"
  "ID_ZCT014   [_Button(\"连续倒R0圆角f2\", \"RCDATA_16_SCALE\", \"RCDATA_16_SCALE\")]^C^Cf2"
  "ID_ZCT014   [_Button(\"连续倒R3.2圆角f3\", \"RCDATA_16_CHAMFE\", \"RCDATA_16_CHAMFE\")]^C^Cf3"               
  "ID_ZCT013   [_Button(\"连续倒R4.2圆角f4\", \"RCDATA_16_FILLET\", \"RCDATA_16_FILLET\")]^C^Cf4"
  "ID_ZCT013   [_Button(\"直径5.5圆c5\", \"RCDATA_16_CIRDIA\", \"RCDATA_16_CIRDIA\")]^C^Cc5"
  "ID_ZCT013   [_Button(\"直径7圆c1\", \"RCDATA_16_CIRDIA\", \"RCDATA_16_CIRDIA\")]^C^Cc1"
  "ID_ZCT013   [_Button(\"删除全局标注文字de\", \"RCDATA_16_TXTSTYLE\", \"RCDATA_16_TXTSTYLE\")]^C^Cde"
  "ID_ZCT013   [_Button(\"检查线是否断开\", \"RCDATA_16_OSNMID\", \"RCDATA_16_OSNMID\")]^C^Cyx_chl"
  "ID_ZCT013   [_Button(\"删重复\", \"RCDATA_16_ERASE\", \"RCDATA_16_ERASE\")]^C^Cyx_scf"
  "ID_ZCT013   [_Button(\"WHtoolbar V2.2 如有BUG及建议，请反馈到375034301@qq.com,by wanghui\", \"RCDATA_16_MATERIALS_ON\", \"RCDATA_16_MATERIALS_ON\")]^C^C0"

)
(princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件
      )
      (close file)         ; 关闭mnu文件
      (command "menuload" "WHTOOLBAR.mnu") ; 加载temptoolbar工具栏
    )
  )
  (command "TOOLBAR" "WH异形工具条" "S") ; 显示工具栏
  (princ)
)
(create_toolbar)  
;////////////////////////////////////////////以下可以写每个lisp 子程序
;/////////////////////////////////////////////////////////////////////////////////////////////////////
(defun c:f2();连续倒圆角
(vl-catch-all-apply
'(lambda ()
     (command "fillet" "t" "t""")
   (command "fillet" "r" 0 )
   (prompt "倒圆角r=0")
    (while T
      (if (zerop (getvar 'CMDACTIVE))

        (command "fillet"  )
       (command "\\")

      )
    )
  )
)
(princ)
)


想问一下，这个工具栏加载好后，每次从桌面打开CAD   再打开文件夹下CAD文件没有问题，但是如果直接打开文件夹下CAD图，会在文件夹下创建.mnu三个菜单文件，怎么菜单文件创建路径

另外，求一个 最简单的  沿  曲线等距阵列的lisp

Gu_xl

参见[【Gu_xl】] VisualLisp动态添加自定义工具条

paulpipi