lisp创建自定义工具栏

趣意人生

好东西！谢谢楼主了！

ajunseo

;;; ================================================================
;;; 功能：自动为.isp命令创建一个命令的按钮子函数
;;; 使用: 在.isp文件最后最下方写入一句 (createtoolbar name sym bmp )
;;;       其中:name为命令中文名称,sym为执行的命令,bmp为图标,最好采用
;;;       系统图标,自定义图标需拷贝到支持目录,为*.bmp格式.
;;; 样例createtoolbar "轴测图直线" "zline" "rcdata_16_osnend")
;;;      (createtoolbar "轴测图直线" "zline" "zline.bmp")
;;; 作者：langjs                                   日期:2012年4月1日
;;; ================================================================
(defun createtoolbar (name sym bmp / file x)
  (setvar "cmdecho" 0)
  (vl-load-com)
  (if (menugroup "TEMPTOOLBAR") (command "menuunload" "TEMPTOOLBAR"))
  (alert "\n程序将自动创建\"临时工具栏\"，请稍后")
  (setq file (open "TEMPTOOLBAR.mnu" "W"))
  (foreach x (list "***MENUGROUP=TEMPTOOLBAR\n\n***TOOLBARS\n**TEMPTOOLBAR"
     "ID_TEMP001   [_Toolbar(\"临时工具栏\", _Floating, _Hide, 10, 340, 1)]"
    (strcat "ID_TEMP011   [_Button(\"" name "\", \"" bmp "\", \"" bmp "\")]^C^C" sym)
      )
    (princ (strcat x "\n") file)
  )
  (close file)
  (command "menuload" "TEMPTOOLBAR.mnu")
  (command "TOOLBAR" "临时工具栏" "S")
  (princ)
)
(createtoolbar "轴测图直线" "zline" "RCDATA_16_OSNEND"  )
;(createtoolbar "红色" "tt" "co1.bmp"  )

不能创建多个按钮，有方法吗？

表骑马实开车

感谢楼主分享

广易精通

langjs 发表于 2012-4-16 21:47
(defun getlsppath (/ lsppath)        ; 读取运行程序路径并加到cad支持路径_by:wzh，如果运行的是vlx， ...

楼主你好，生成的cui，mnu文件怎么放到自己指定的位置而不在文档里面，谢谢

atone

这种进阶级 的研究好