如何程序调用程序?

onej

打个比方: 这是一个简单的LISP程序,我打包成sam.fas
(defun c:sam()
(setq n(getreal "n=?"))
(setq m(getreal "m=?"))
(princ (+ m n))
) 如何在另一个程序里调用?并且程序自己给SAM.FAS填值?

秋枫

先用vlax-add-cmd 增加Sam为AutoCAD命令，然后用Command函数调用。举例：

2. (vlax-add-cmd "SUM" 'c:sum)
3. (defun c:test()
4.    (command "sum" 2 3)
5.    (princ)
6. )

(vlax-add-cmd "SUM" 'c:sum) (defun c:test()    (command "sum" 2 3)    (princ) )

qjcpj

烦问秋枫，(vlax-add-cmd "SUM" 'c:sum)句中第一个"SUM"是否表示文件名？

秋枫

这个函数的参数比较复杂，最多可以有4个参数，你何不自己去查一下帮助文件？


我只能简单的说一下：


第一个“SUM”表示向AutoCAD注册一个新的真正的可以用Command函数调用的命令“SUM”。与文件名无关。要加载文件还是用Load函数。

onej

已经实现了,谢谢秋枫!