mnu的制作问题

peraperson

最近在学习lisp 写了一些lips后我希望用菜单形式显示在cad界面中，网上搜不到相关的入门教程，万能的明经 哪个大神能点拨下
比如我写了一个快捷键为bb的bb.lsp, 放在D:/lsp下 我想制作一个bb.mnu，用一个bb.bmp的图标出现在cad界面中，一点击这个图标就处罚bb.lsp 请问需要怎么做呢

peraperson

请问mnu具体应该怎么写？如何实现图标的加入？

自贡黄明儒

找一个来改改吧

sicky111

随便下载一个工具箱，看看人家的mnu是怎么改的。

fl202

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92999

，

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92774

;;; 自动创建"动态轴测图"工具栏子程序
(defun create_toolbar (/ file lst x)
  (setvar "cmdecho" 0)
  (vl-load-com)
  (if (not (menugroup "TEMPTOOLBAR"))  ; 判断cad是否加载temptoolbar工具栏
    (progn          ; 如果没加载，则自动执行下面程序
      (alert "\n程序自动创建\"动态轴测图\"工具栏，请稍后")
      (setq file (open "TEMPTOOLBAR.mnu" "W")) ; 在cad搜索目录创建一个菜单mnu文件,写状态打开
      (foreach x '("***MENUGROUP=TEMPTOOLBAR\n\n***TOOLBARS\n**TEMPTOOLBAR" ; 下面定义工具栏内容，最好采用cad自带图标
  "ID_ZCT001   [_Toolbar(\"动态轴测图\", _Floating, _Hide, 10, 340, 1)]"
  "ID_ZCT011   [_Button(\"轴测图直线\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Czline"
  "ID_ZCT012   [_Button(\"轴测图标注\", \"RCDATA_16_DIMOBL\", \"RCDATA_16_DIMOBL\")]^C^Czdim"
  "ID_ZCT013   [_Button(\"轴测图文字\", \"RCDATA_16_TEXEDI\", \"RCDATA_16_TEXEDI\")]^C^Cztext"
  "ID_ZCT014   [_Button(\"轴测图更改\", \"RCDATA_16_DIMOVE\", \"RCDATA_16_DIMOVE\")]^C^Czch"
)
(princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件
      )
      (close file)         ; 关闭mnu文件
      (command "menuload" "TEMPTOOLBAR.mnu") ; 加载temptoolbar工具栏
    )
  )
  (command "TOOLBAR" "动态轴测图" "S") ; 显示工具栏
  (princ)
)

spp_wall

我也正想学习！有没教程？