lisp中怎样调用自己编写的程序

jackieshaw

调用cad内部命令是用command

调用自己前面写的程序呢？

应该可以把？

cnks

(defun c:tt()
  (princ "hello")
  )
(defun c:tt1()
  (c:tt))

caoyin

如果是没有参数的、有屏幕拾取动作 c: 开头的函数好像不能像command在其他程序中调用

jackieshaw

lidejun_55发表于2008-11-26 10:38:00(defun c:tt()  (princ \"hello\")  )(defun c:tt1()  (c:tt))

需要写在同一个文件中吗？

就是说我cad已经加载了tt这个程序了

我的另一个程序tt1要调用tt这个程序

(defun c:tt()
  (princ "hello")
  )

这几行还必须写在后面这个程序里面吗

cnks

caoyin发表于2008-11-26 10:57:00如果是没有参数的、有屏幕拾取动作 c: 开头的函数好像不能像command在其他程序中调用

不知道你说的是不是这样的：

(defun c:tt()
  (setq ss (ssget))
  )
(defun c:tt1()
  (c:tt)
  (princ "hello")
  )

cnks

jackieshaw发表于2008-11-26 11:14:00需要写在同一个文件中吗？就是说我cad已经加载了tt这个程序了我的另一个程序tt1要调用tt这个程序(defun c:tt()  (princ \"hello\")  )这几行还必须写在后面这个程序里面吗

不需要，你可以自己试验一下，多动手

jackieshaw

lidejun_55发表于2008-11-26 10:38:00(defun c:tt()  (princ \"hello\")  )(defun c:tt1()  (c:tt))

我前面那个程序是有参数的，请问怎么写？

我前面调用的程序是xp

敲完xp 之后还要输入"all" 回车 回车 "i" 再回车

请问是这样吗？

(defun c:xpp()
((c:xp) "all" "" "i" ""))

我执行xpp好像还是不对啊

运行的效果还是和xp一样的

麻烦解答一下

cnks

c:开头的函数默认为注册成command类型，可以被命令行直接调用

你的c:开头函数如果有参数就不是这样调用的，应该是这样：

(c:xp "all" "" "i" "")

carrot1983

用子函数啊

(defun xp (a b c)

(princ a)

(princ b)

(princ c)

)

(xp "a" "b" "c")

caoyin

回lidejun_55：

(defun c:tt (/ a) (setq a(car(entsel)))(entdel a))

我的意思是不能像cad自带命令一样被其他程序引用

注册为命令的lisp程序好像也容易出错