[讨论]：Lisp中command的回车用什么？

eachy

问题来自关于一些图层操作的Lisp，比如图层关闭，当使用选择集时，好像以前的程序都是用遍历的方法，今天偶然用Layer命令，发现 Off Lock Freeze 选项都是支持选择集的

命令:
-LAYER
当前图层:  0
输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]: of

输入要关闭的图层名列表或 < 选择对象 >:

选择对象: 指定对角点: 找到 1 个

选择对象:  确实希望关闭图层“0”(当前图层)? <N> y 输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]:


但是这个选择集在lisp中怎么写？

(vl-cmdf ".layer" "off" "" (ssget) "")

提示： 无效的选项关键字。 off 后面的 "" 在这里解释为空字串了。

wkai

出个馊主意

2. (defun ptos (e)
   
3.     (setq e (mapcar 'rtos e))
   
4.     (setq e (strcat (car e) "," (cadr e) "," (caddr e)))
   
5.   )
   
6. (defun c:tt ()
   
7.   (setq e (entsel))
   
8.   (if e
   
9.     (setq e (ptos (cadr e)))
   
10.   )
    
11.   (sendkeys (strcat "-layer of {enter}" e "  y  "))
    
12. )

(defun ptos (e)<br />     (setq e (mapcar 'rtos e))<br />     (setq e (strcat (car e) "," (cadr e) "," (caddr e)))<br />   )<br /> (defun c:tt ()<br />   (setq e (entsel))<br />   (if e<br />     (setq e (ptos (cadr e)))<br />   )<br />   (sendkeys (strcat "-layer of {enter}" e "  y  "))<br /> )

liuyj

呵呵，wkai斑竹把这个sendkeys用得出神入化了，不如再完善一下，做个宏编辑器。

wkai

2. (Defun ZHF_ActiveX_Begin ()
   
3.   (Setq *Acadobject* (Vlax-Get-Acad-Object))
   
4.   (Setq *Acaddocument* (Vla-Get-Activedocument *Acadobject*))
   
5.   (Setq *Mspace* (Vla-Get-Modelspace *Acaddocument*))
   
6. )
   
7. (defun c:tt()
   
8.   (ZHF_ActiveX_Begin)
   
9. (command "-layer" "off")
   
10. (vla-sendcommand *Acaddocument* "\r")
    
11. )

(Defun ZHF_ActiveX_Begin ()<br />   (Setq *Acadobject* (Vlax-Get-Acad-Object))<br />   (Setq *Acaddocument* (Vla-Get-Activedocument *Acadobject*))<br />   (Setq *Mspace* (Vla-Get-Modelspace *Acaddocument*))<br /> )<br /> (defun c:tt()<br />   (ZHF_ActiveX_Begin)<br /> (command "-layer" "off")<br /> (vla-sendcommand *Acaddocument* "\r")<br /> )

aeo

The layer command needs a list of layers separated by commas to work on, for
instance...
(command "-layer" "off" "layer1,layer2" "")

没办法,command下的layer是没办法的.

saltxf

按" "中间空格。

梦断江南

再来一个：

1. 
   
2. (vla-sendcommand  (vla-get-activedocument(vlax-get-acad-object)) "-layer off \015")
   

复制代码

\015 换为 \n 也可以