只做了一个简单的小菜单,分享下~~~

gdslqs

这个我喜欢

Throne

菜鸟想知道怎么加载。我电脑已经安装opendcl。

77077

峰峰兒 发表于 2014-8-16 07:51
菜單如何使用 ????????

问：菜單如何使用 ????????
答：加载进CAD去用。调用命令tt

问：怎么加入自己的命令呢？？？
答：打开lsp文件，修改这段

2. (setq lst '(
   
3.         (("直线" . "LINE")("PL线" . "pline")("弧" . "ARC")("园" . "circle")("椭圆" . "ellipse")("多行文字" . "mtext")("单行文字" . "TEXT"))
   
4.         (("菜单2-1" . "")("菜单2-2" . "")("菜单2-3" . "")("菜单2-4" . "")("菜单2-5" . "")("菜单2-6" . "")("菜单2-7" . ""))
   
5.         (("菜单3-1" . "")("菜单3-2" . "")("菜单3-3" . "")("菜单3-4" . "")("菜单3-5" . "")("菜单3-6" . "")("菜单3-7" . ""))
   
6.         (("菜单4-1" . "")("菜单4-2" . "")("菜单4-3" . "")("菜单4-4" . "")("菜单4-5" . "")("菜单4-6" . "")("菜单4-7" . ""))
   
7.         (("菜单5-1" . "")("菜单5-2" . "")("菜单5-3" . "")("菜单5-4" . "")("菜单5-5" . "")("菜单5-6" . "")("菜单5-7" . ""))
   
8.         (("菜单6-1" . "")("菜单6-2" . "")("菜单6-3" . "")("菜单6-4" . "")("菜单6-5" . "")("菜单6-6" . "")("菜单6-7" . ""))
   
9.         (("菜单7-1" . "")("菜单7-2" . "")("菜单7-3" . "")("菜单7-4" . "")("菜单7-5" . "")("菜单7-6" . "")("菜单7-7" . ""))
   
10.         (("菜单8-1" . "")("菜单8-2" . "")("菜单8-3" . "")("菜单8-4" . "")("菜单8-5" . "")("菜单8-6" . "")("菜单8-7" . ""))
    
11.         ))

(setq lst '(<br />         (("直线" . "LINE")("PL线" . "pline")("弧" . "ARC")("园" . "circle")("椭圆" . "ellipse")("多行文字" . "mtext")("单行文字" . "TEXT"))<br />         (("菜单2-1" . "")("菜单2-2" . "")("菜单2-3" . "")("菜单2-4" . "")("菜单2-5" . "")("菜单2-6" . "")("菜单2-7" . ""))<br />         (("菜单3-1" . "")("菜单3-2" . "")("菜单3-3" . "")("菜单3-4" . "")("菜单3-5" . "")("菜单3-6" . "")("菜单3-7" . ""))<br />         (("菜单4-1" . "")("菜单4-2" . "")("菜单4-3" . "")("菜单4-4" . "")("菜单4-5" . "")("菜单4-6" . "")("菜单4-7" . ""))<br />         (("菜单5-1" . "")("菜单5-2" . "")("菜单5-3" . "")("菜单5-4" . "")("菜单5-5" . "")("菜单5-6" . "")("菜单5-7" . ""))<br />         (("菜单6-1" . "")("菜单6-2" . "")("菜单6-3" . "")("菜单6-4" . "")("菜单6-5" . "")("菜单6-6" . "")("菜单6-7" . ""))<br />         (("菜单7-1" . "")("菜单7-2" . "")("菜单7-3" . "")("菜单7-4" . "")("菜单7-5" . "")("菜单7-6" . "")("菜单7-7" . ""))<br />         (("菜单8-1" . "")("菜单8-2" . "")("菜单8-3" . "")("菜单8-4" . "")("菜单8-5" . "")("菜单8-6" . "")("菜单8-7" . ""))<br />         ))

上面是个例子，如果是要链接到你的插件命令，修改defun c:MENU_MenuForm_ListBox1_OnSelChanged为

2. (defun c:MENU_MenuForm_ListBox1_OnSelChanged (ItemIndexOrCount Value / sel todo)
   
3.   (setq Sel (nth (dcl_ListBox_GetCurSel MENU_MenuForm_ListBox1) lst1)
   
4.               todo  (strcat (cdr sel) " ")
   
5.   )
   
6.   (dcl_sendstring todo)
   
7. )

(defun c:MENU_MenuForm_ListBox1_OnSelChanged (ItemIndexOrCount Value / sel todo)<br />   (setq Sel (nth (dcl_ListBox_GetCurSel MENU_MenuForm_ListBox1) lst1)<br />               todo  (strcat (cdr sel) " ")<br />   )<br />   (dcl_sendstring todo)<br /> )

趣意人生

做个记号，学习下！

yanshengjiang

朋友你好 还玩明经吗？  你这个面板是我渴望多年的东西，非常感谢你。

rocking2008

yanshengjiang 发表于 2021-11-28 00:06
朋友你好 还玩明经吗？  你这个面板是我渴望多年的东西，非常感谢你。

试了下，按楼主的方法加入命令，好像不行。有没有改好后可以运行的发一个。感谢。

ajunseo

77077 发表于 2014-10-21 01:44
问：菜單如何使用 ????????
答：加载进CAD去用。调用命令tt

加好，好像不行呢，这样修改后运行不起来！