给自己写的LISP函数变成透明命令的方法

Lispboy

我们知道在一个LISP写的函数或者命令执行时候，是不允许透明执行另外的LISP写的函数的，这是因为LISP不允许重入的原因。
但是，我们可以通过VLAX方法，把自己定义的LISP函数加入到ACAD的命令列表中，这样这个LISP函数就可以在COMMAND或者VL-CMDF调用，也可以变成透明执行的命令。

例子：

[pcode=lisp,true]
(defun c:t1()
    (princ "\nHellow,I Here!!")
    (ssget)
   (princ)
)
(defun c:t2()
    (princ "\nThis is only a test!!")
    (princ)
)
(Vlax-Add-Cmd "tt" 'c:t2 "tt" ACRX_CMD_TRANSPARENT)
[/pcode]

这样，在执行LISP函数c:t1的时候，就可以透明的使用 ‘tt (执行LISP函数c:t2) 命令了。

zyhandw

楼主威武，向您学习了！

Everything

呵呵··好办法

sicky111

这么好的帖，居然没人顶。

phoevana

lz,那在使用cad本身命令时能使用lisp函数写成的命令吗

Lispboy

phoevana 发表于 2013-6-5 16:32
lz,那在使用cad本身命令时能使用lisp函数写成的命令吗

LISP都可以重入了，CAD自己的命令更没问题了。

liuyun242

好像t1跟t2没关系的，只是t2跟tt有关

2. (defun c:t1()
   
3.     (princ "\nHellow,I Here!!")
   
4.     (ssget)
   
5.    (princ)
   
6.    (Vlax-Add-Cmd "tt" 'c:t2 "tt" ACRX_CMD_TRANSPARENT)
   
7.   (command "tt")
   
8. )
   
9. (defun c:t2()
   
10.     (princ "\nThis is only a test!!")
    
11.     (princ)
    
12. )
    
13. 
    

(defun c:t1()<br />     (princ "\nHellow,I Here!!")<br />     (ssget)<br />    (princ)<br />    (Vlax-Add-Cmd "tt" 'c:t2 "tt" ACRX_CMD_TRANSPARENT)<br />   (command "tt")<br /> )<br /> (defun c:t2()<br />     (princ "\nThis is only a test!!")<br />     (princ)<br /> )<br /> <br />

Lispboy

liuyun242 发表于 2013-6-5 18:42
好像t1跟t2没关系的，只是t2跟tt有关

是啊，因为LISP的函数(c:t2)注册后的命令名是 tt ，执行tt就是执行 t2的内容了，只不过tt注册到内部命令堆栈里面了，可以透明使用。

也可以直接用 (command "tt")执行。原来的(c:t2)是不能在command 里面执行的。

phoevana

Lispboy 发表于 2013-6-5 16:49
LISP都可以重入了，CAD自己的命令更没问题了。

试了一下，果真可以，lz威武，这么好的东西值得拥有，呵呵

GFspringwillow

试了一下，命令倒是加入CAD命令集了，但是不能透明使用！我用的是CAD2006　SP1

njshf

好像不太好使,难道用错了

q3_2006

很有用，但不太容易懂，要多试一下！

evayleung

又能学到东西了。虽然还没完全懂怎么，但至少能有一个方向学怎么透明命令，以前总是想调用命令，但总不成功。谢谢。

清风明月10

谢谢楼主的分享！收藏备用。

cre8o

Lispboy 发表于 2013-6-5 18:53
是啊，因为LISP的函数(c:t2)注册后的命令名是 tt ，执行tt就是执行 t2的内容了，只不过tt注册到内部命令 ...

{:soso_e179:}