[讨论]：还是调用其它函数问题！

0451doctor

我建立一个aa.lsp的程序
(defun c:aa()
   (command "erase" )
)
再建立一个bb.lsp的程序
(defun c:bb()
    (command "circle" (list 0,0)   5)
    (setq kk (ssget "L")
    (load "aa")
    (c:aa kk)
)
这肯定是不行的，但大家应该知道我是要干什么，就是想调用以前写的程序，并响应我给它的参数！
请问高手我该如何作！用什么方法！

lsjjm

错太多! 请看:

(defun aa (s)
(command "erase" s "")
)
(defun c:bb ()
(command "circle" (list 0 0) 5)
(setq kk (ssget "L"))
(aa kk)
)

0451doctor

你没看明白我的意思！(load "aa")  (c:aa kk)这么作肯定是不行了，我是想说如果调用c:xxx一类的命令，并给它加上参数！
就像（command "line" p1 p2 "")一样！

lsjjm

我没法明白你的意思, 说说你的具体要求(实际例子), 调用什么函数? 响应什么参数?

aeo

(defun c:aa()
(command "erase" )
)


(defun c:bb()
(command "circle" (list 0,0) 5)
(setq kk (ssget "L")
(load "aa")
(c:aa kk)
)
你在bb里的aa有参数，而你定义的没有.
应该
(defun c:aa(a)
(command "erase"  a "")
)

lisp不能定义不定参数的函数.[/COLOR]比如像vb的"Optional"
比如 max (max 1 2)  (max 1 3 2),但你用lisp写不出这样的函数的

要像command一样用，（command肯定不是lisp写的.）
要把你的东东用vlisp注册为命令.
然后(command "aa" ...)


还有(list 0,0)是不对的

Qlin

若一定想通过command来调用你的自定义命令，像Autocad的内部命令一样的话，可以使用vlisp的vlax-add-cmd命令：

(vlax-add-cmd global-name func-sym [local-name cmd-flags])

使用 vlax-add-cmd 可以将函数定义为 AutoCAD 命令，而无需在函数名中使用 c: 前缀。用它也可以定义透明 AutoLISP 命令，而对于 c: 函数，这是不可能的。
vlax-add-cmd 函数使某个 AutoLISP 函数在当前 AutoCAD 任务中作为 ObjectARX 类型的命令，在 AutoCAD 命令行提示中使用。vlax-add-cmd 函数提供了对 ObjectARX acedRegCmds 宏的访问，从而提供了一个到 ObjectARX 系统 AcEdCommandStack 对象的指针。

vlax-add-cmd 函数自动将命令指定到命令组。从文档名称空间发出命令时，vlax-add-cmd 将命令添加到组 doc-ID。doc-ID 是标识文档的十六进制值。从独立名称空间 VLX 发出命令时，vlax-add-cmd 将命令添加到组 VLC-Ddoc-ID:VLX-name。这里 VLX-name 是发出 vlax-add-cmd.的应用程序名。
注意 不能使用 vlax-add-cmd 显露创建反应器对象的函数，也不能用它来显露反应器的回调函数。

不过，若你想提高你代码的可重用性，还是通过自定义带形参的函数比较好，通过command来转好像圈子兜得大了些，运行效率也会降低。

zhang8755

可以这样改
(defun c:bb()
(command "circle" (list 0,0) 5)
(setq kk (ssget "L")
(load "aa")
(COMMAND kk)
)
还有其他的输入，可以在后面继续加(COMMAND ....)项