[求助]：急！请各位帮帮忙 谢谢！

bolixin

abc.lsp代码如下：
(defun asd (a b)
  (+ a b)
)

请问怎样在abc.lsp中实现在CAD的“窗口”及“帮助”菜单之间插入一菜单“相加”以调用asd?
菜单文件的代码是怎样的?

请各位指教，谢谢！

狂刀

你打开cad的帮助，用“菜单”搜索，收获会比你在论坛问得得多

xyp1964

[php]菜单
[a+b]^C^C^P(if(not c:asd)(load"asd"));asd
[/php]

2. [FONT=courier new]
   
3. (defun c:asd ()
   
4.   (setq        a (UREAL 1 "" "\na= " a)
   
5.         b (UREAL 1 "" "\nb= " b)
   
6.         c (+ a b)
   
7.   )
   
8.   (princ "\na+b=")
   
9.   c
   
10. )[/FONT]

[FONT=courier new]<br /> (defun c:asd ()<br />   (setq        a (UREAL 1 "" "\na= " a)<br />         b (UREAL 1 "" "\nb= " b)<br />         c (+ a b)<br />   )<br />   (princ "\na+b=")<br />   c<br /> )[/FONT]