[求助]：(command "")与回车的效果是否完全一样？（zz）

zhouri

我想用autolisp将所有图层上的对象都lock起来，在autocad里面打入"-layer" "lo"后提示输入层名或者选择对象，我希望用选择对象的方式来完成，直接按回车就可以了，但是同样的过程，在autolisp里面这个回车和(command "")的效果却不一样，不知道如何用选择对象的方式来完成这个操作，望大侠指点一二，谢谢！

cqmygysdss

用
（command  "-layer"  "lo" PAUSE）

或者，先选择对象，再
（setq ss (ssget)）
（command  "-layer"  "lo" ss）

思路大抵如此，好多年没摸AutoCAD编程了（主攻3D去啦），仅供参考！

zhouri

最初由 cqmygysdss 发布
[B]用
（command  "-layer"  "lo" PAUSE）

或者，先选择对象，再
（setq ss (ssget)）
（command  "-layer"  "lo" ss）

思路大抵如此，好多年没摸AutoCAD编程了（主攻3D去啦），仅供参考！ [/B]

第一种方法我试过不行。
第二种方法不合要求。

huajuanli

回车键不是重复功能么？你在画图的时候用过一个命令用右键cad自带重复功能在选项里可以调吧！我给你提供层操作参数（command "layer" "s" l "")s为选择当前层l为当前层名""为 结束
还有在lisp里用   layer要加“-layer”如果想把层里所有实体变成选择集进行操作的话建议用vlisp操作函数具体应用是在lisp程序开头加载（vl-load-com）(vla-put-layer 集合名 层名)然后对  集合操作就可以了

zhouri

楼上回答的不是我想要的答案，请高手赐教。

YueFeng

可以用ET扩展工具的图层锁定命令。（laylck）

网络水手

(command "")与回车的效果是否完全一样？这个问题我也不太清楚，应该是不一样的。但你可以试试下面的程序！

;;命令名：laylock

(defun c:laylock(/ lay)
  (setq lay (cdr (assoc 8 (entget (car (entsel "请选择要加锁层的对象:"))))))
  (command "-layer" "lo" lay "")
  (princ)
  )
(prompt "命令名:laylock  点击对象加锁对象所在图层")

zhang8755

看来楼上的方案是目前唯一可行的了。

zhouri

最初由 YueFeng 发布
[B]可以用ET扩展工具的图层锁定命令。（laylck） [/B]

上述程序完全是举例的需要，我并非需要土层锁定的命令，我只是不明白如何能够实现如下：用lisp如何实现。
cad命令
－layer回车
lo回车
<选择对象>回车（要求能用lisp实现到这一步）
然后在cad图中选择对象

网络水手 的方法是可以的，但不是所需的。

但是还是没能解决如何用lisp实现选择默认的选项。如一楼说讲的那样。

oyxx_1023

是不是ENTSEL不行?需要多选 ?
如果是的话可以SSGET,然后遍历实体,得到每个实体的层,关闭之.
(DEFUN C:TEST()
(setvar "cmdecho" 0)
(SETQ SS (SSGET))
(SETQ N 0)
(REPEAT (SSLENGTH SS)
(SETQ ENTDATA (ENTGET (SSNAME SS N)))
(SETQ ENTLAY (CDR (ASSOC 8 ENTDATA)))
(command ".layer" "lo" entlay "")
(setq n (1+ n)))
(princ)
)