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

cnks

(defun c:tt (/ a) (setq a(car(entsel)))(entdel a))
(defun c:tt1()
  (c:tt)
  (princ "hello")
  )

命令: tt1

选择对象: hello"hello"

没有出现什么错误，你指的是什么错误？

caoyin

老兄理解错了,我重新举个例子：

;;定义一个和命令 ERASE 功能一样的程序
(defun c:tt (/ ss i)
  (setq ss (ssget))
  (repeat (setq i (sslength ss))
    (entdel (ssname ss (setq i (1- i))))
  )
  (princ)
)

;;调用command
(defun c:tt1 (/ a)
  (setq a (ssget))
  (command "_.ERASE" a "")
)

;;调用c:tt
(defun c:tt1 (/ a)
  (setq a (ssget))
  (c:tt a "");;我的意思是不能像command一样使用
)

将c:开头的函数注册为command，有时候会出错，不知为什么？

jackieshaw

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

我的输入这段之后出现这样的错误提示：

Command: xpp
; error: too many arguments

请问怎么回事

狂刀lxx

caoyin发表于2008-11-26 13:54:00老兄理解错了,我重新举个例子：;;定义一个和命令 ERASE 功能一样的程序(defun c:tt (/ ss i)  (setq ss (ssget))  (repeat (setq i (sslength ss))    (entdel (ssna

;;定义一个和命令 ERASE 功能一样的程序
(defun tt (/  i)
  (setq ss (ssget))
  (repeat (setq i (sslength ss))
    (entdel (ssname ss (setq i (1- i))))
  )
  (princ)
)
(vlax-add-cmd "tt" 'tt) ;;!!!!!!!!
;;调用command
(defun c:tt1 (/ a)
  (setq a (ssget))
  (command "_.ERASE" a "")
)

;;调用c:tt
(defun c:tt2 (/ a)
  (setq a (ssget))
  (command "tt" a  "");;我的意思是不能像command一样使用
  (princ)
)

cnks

这样当然不能用了