[求助]：怎样在自定义lisp程序中调用自定义程序？

tomsdwf

在lisp语言中，lisp标准命令可用command调用，如(command "line" ......)，但如果想调用自已已经编好的lisp程序，不知如何调用？还请高手指教。谢谢！

lsjjm

(defun user1 ()
  ...
  (user2 arg)
  ...
)
(defun user2 (arg)
  ...
  ...
)

tomsdwf

lsjjm，你好！谢谢指教，但我还是不大明白：），能不能举个例子呀？比如如何编个程序调用bonus中的cht命令修改字高，也就是输入命令名后，调用cht，选择文字后，调H，然后直接输入字高即可。 还有调入自定义函数时，是否需输入文件路径？还请再次指教，非常感谢！

e2002

2. 
   
3. (defun C:YourCommandName ( / )
   
4.    (FunctionName)
   
5. )
   

<br /> (defun C:YourCommandName ( / )<br />    (FunctionName)<br /> )<br />

对于调用已经是写成了C:开头的命令,例如你说的chtext.lsp中的命令为 C:chtext (/ ....)
那就是

2. 
   
3. (defun C:YourCommandName ( / )
   
4.    (C:chtext )
   
5. )
   

<br /> (defun C:YourCommandName ( / )<br />    (C:chtext )<br /> )<br />

tomsdwf

谢谢斑主指教！我还想问一下，象上例中的调用chtext,如何继续调用chtext的了命令呢？也就是说如何能象(command "text" "j" "bc" ...)那样，调用chtext的子命令"H"呢？
    code:
     (defun c:zigao()
          (c:cht)
           ........;;;怎么样调用cht的子命令"H"来修改字高呢？
       )
恳请您不吝赐教，谢谢！

lsjjm

手头上没有R14. 能否用其他命令修改字高?

tomsdwf

lsjjm 你好！我只是想知道如何调用自定义lisp命令的子命令，当然也可以举其他的例子了，还请你多加指教！谢谢！

e2002

这可能就不好办了,如果没有相应的函数定义的话

VL可以用VBA的SendCommand试试看行不行?

不过你既然是要实现特定的功能,为什么不自己写呢?而且实际上你的要求很简单实现.