peraperson 发表于 2013-10-23 12:11:53

mnu的制作问题

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

peraperson 发表于 2013-10-23 12:13:03

本帖最后由 peraperson 于 2013-10-23 12:20 编辑

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

自贡黄明儒 发表于 2013-10-23 12:32:18

找一个来改改吧

sicky111 发表于 2013-10-23 12:46:03

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

fl202 发表于 2013-10-24 17:53:42

本帖最后由 fl202 于 2013-10-24 17:55 编辑

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   "
"ID_ZCT011   ^C^Czline"
"ID_ZCT012   ^C^Czdim"
"ID_ZCT013   ^C^Cztext"
"ID_ZCT014   ^C^Czch"
)
(princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件
      )
      (close file)         ; 关闭mnu文件
      (command "menuload" "TEMPTOOLBAR.mnu") ; 加载temptoolbar工具栏
    )
)
(command "TOOLBAR" "动态轴测图" "S") ; 显示工具栏
(princ)
)

spp_wall 发表于 2013-10-24 21:25:21

我也正想学习！有没教程？
页: [1]
查看完整版本: mnu的制作问题