[求助]：为什么不能用command 来defun?

sccat

我的Lisp程序有一行
(command "(defun c:j() (copy_text) ) ")

执行时显示:
命令: (command "(defun c:j() (copy_text) ) ")
(defun c:j() (copy_text) )  LISP 命令不可用。

失败！

但是如果在AutoCAD直接输入
命令: (defun c:j() (copy_text) ) C:J

却能成功！

为什么？

qjcpj

command是使用命令，而defun是定义命令。

lidejun_55

多吃一举，要是想定义函数也不用在这里定义，直接定义不就行了？你这样没有实际意义，在lisp里面调用command函数来定义lisp函数，这本来就是矛盾的

sccat

其实command 的原意是将后面的字符串在命令行输入的，但是不知为何对defun不支持。

我的原意是动态生成字符串来定义一个lisp函数，现在看来要先输出到一个Lisp文件，再导入。稍微麻烦一点。

这是直接定义做不到的。

雨箭风刀

呵呵，走弯路

sccat

哪里有直路?

lidejun_55

动态用字符生成的函数没有实际意义，也没搞懂楼主的真实目的，如果你想实现只有一个办法用脚步试下。

fsxm

动态用字符生成的函数 这个想法很好啊！我严重支持！
提供一个思路:
用write-line写一个tmp.lsp文件后加载再删了tmp.lsp

sccat

最初由 sccat 发布
[B]其实command 的原意是将后面的字符串在命令行输入的，但是不知为何对defun不支持。

我的原意是动态生成字符串来定义一个lisp函数，现在看来要先输出到一个Lisp文件，再导入。稍微麻烦一点。

这是直接定义做不?... [/B]

跟楼上想得一样.

cy956

把鞋子扣在头上然后问为什么找不到合适的尺码套得进脑袋？
还是先说清楚你想干嘛。

eachy

楼主没有搞清楚括号内的 Command 和 命令行显示的 Command(命令) 是不同的

sccat

最初由 eachy 发布
[B]楼主没有搞清楚括号内的 Command 和 命令行显示的 Command(命令) 是不同的 [/B]

斑竹来讲解一下.

雨箭风刀

(command  x ....)
x ＝ cad的标准命令（字符格式）

弯路，如上在程序中写一个文件也是可以的。
另外还可以如下。
。。。。烦不烦阿？干嘛舍近求远呢？？？？

2. 
   
3. ;;"(defun c:ccc() (c:cal))"
   
4. ;|(sendkeys str) = 向cad发送键盘指令---------by eachy
   
5. 字符串格式 "{F3}" "~" "(+a)" "(a 10)" "{0,0,0}" "{(}getpoint{)}"
   
6. |;
   
7. (defun sendkeys (keys)
   
8.   (vla-eval (vlax-get-acad-object) (strcat "Sendkeys " (vl-prin1-to-string keys)))
   
9.   (princ)
   
10. )
    
11. 
    
12. ;; 测试: 定义c:cc为c:cal.运行cc前需在命令行运行一次cal命令。
    
13. ;; 下面一行不能在vl编程环境运行，需要拷贝到cad命令行运行。或者存为lsp，加载。
    
14. (sendkeys "{(}defun c:cc{(}{)} {(}c:cal{)}{)} ")
    
15. ;; 对比一下
    
16. (defun c:cc()(c:cal))
    

<br /> ;;"(defun c:ccc() (c:cal))"<br /> ;|(sendkeys str) = 向cad发送键盘指令---------by eachy<br /> 字符串格式 "{F3}" "~" "(+a)" "(a 10)" "{0,0,0}" "{(}getpoint{)}"<br /> |;<br /> (defun sendkeys (keys)<br />   (vla-eval (vlax-get-acad-object) (strcat "Sendkeys " (vl-prin1-to-string keys)))<br />   (princ)<br /> )<br /> <br /> ;; 测试: 定义c:cc为c:cal.运行cc前需在命令行运行一次cal命令。<br /> ;; 下面一行不能在vl编程环境运行，需要拷贝到cad命令行运行。或者存为lsp，加载。<br /> (sendkeys "{(}defun c:cc{(}{)} {(}c:cal{)}{)} ")<br /> ;; 对比一下<br /> (defun c:cc()(c:cal))<br />

sccat

是不是VBA中的这个东西啊？

Sub Example_Eval()
    ' This example shows how to can use Eval to run a VBA code fragment
    ' without having to create a Module or procedure.

    Dim VBACode As String
   
    ' Create VBA code fragment
    VBACode = "MsgBox ""Simple code fragment"""
   
    ' Use Eval method to evaluate the small VBA script
    Eval (VBACode)
End Sub

厉害。

但好像有点问题

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. ;;"(defun c:ccc() (c:cal))"
   
6. ;|(sendkeys str) = 向cad发送键盘指令---------by eachy
   
7. 字符串格式 "{F3}" "~" "(+a)" "(a 10)" "{0,0,0}" "{(}getpoint{)}"
   
8. |;
   
9. 
   
10. (vl-load-com)
    
11. 
    
12. (defun sendkeys (keys)
    
13.   (vla-eval (vlax-get-acad-object) (strcat "Sendkeys " (vl-prin1-to-string keys)))
    
14.   (princ)
    
15. )
    
16. 
    
17. (defun c:cal()
    
18.   (print "c:cal")
    
19.   )
    
20. 
    
21. ;; 测试: 定义c:cc为c:cal.运行cc前需在命令行运行一次cal命令。
    
22. ;; 下面一行不能在vl编程环境运行，需要拷贝到cad命令行运行。或者存为lsp，加载。
    
23. (sendkeys "{(}defun c:cc{(}{)} {(}c:cal{)}{)} ")
    
24. ;;;;; 对比一下
    
25. ;;;(defun c:cc()(c:cal))
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> ;;"(defun c:ccc() (c:cal))"<br /> ;|(sendkeys str) = 向cad发送键盘指令---------by eachy<br /> 字符串格式 "{F3}" "~" "(+a)" "(a 10)" "{0,0,0}" "{(}getpoint{)}"<br /> |;<br /> <br /> (vl-load-com)<br /> <br /> (defun sendkeys (keys)<br />   (vla-eval (vlax-get-acad-object) (strcat "Sendkeys " (vl-prin1-to-string keys)))<br />   (princ)<br /> )<br /> <br /> (defun c:cal()<br />   (print "c:cal")<br />   )<br /> <br /> ;; 测试: 定义c:cc为c:cal.运行cc前需在命令行运行一次cal命令。<br /> ;; 下面一行不能在vl编程环境运行，需要拷贝到cad命令行运行。或者存为lsp，加载。<br /> (sendkeys "{(}defun c:cc{(}{)} {(}c:cal{)}{)} ")<br /> ;;;;; 对比一下<br /> ;;;(defun c:cc()(c:cal))<br />   [/FONT]<br />

在Visaul Lisp IDE 加载的时候出现：
; 错误: Automation 错误。 加载 VBA 时出现问题

还有一点不明白，就是为什么要加上Sendkeys字符串？

2. 
   
3.   [FONT=courier new]
   
4. (strcat "Sendkeys " (vl-prin1-to-string keys)))
   
5.   [/FONT]
   

<br />   [FONT=courier new]<br /> (strcat "Sendkeys " (vl-prin1-to-string keys)))<br />   [/FONT]<br />

fsxm

先谢过了.回去试试看行不行!