用lisp调用-layer命令如何退出？

hardthinking

    本人lisp水平基本仅限于command命令一个，但已经给我绘图工作带来了许多方便，但现在用command也用出了问题，请教各位大侠
    这是我编的一个直接建筑条件图变结构图的小程序，说白了就是把没用的图层冻结掉。
;;; -------------------------------------------------------------------------
;;;消灭建筑
;;命令XMJZ
(DEFUN C:XMJZ ()
(command "-layer" "f" "A-DOOR-IDEN" "f" "A-DOOR-FIRE-IDEN" "F" "A-PKNG-TSRP" "F" "A-flor-strs" "F" "A-ANNO-TEXT" "F" "a-anno-dims" "F" "A-PKNG-TURN" "f" "Q去建筑" "F" "A-AXIDIM" "f" "a-A符标" "f" "A-ASIS" "F" "填充")
)

   我的问题是：
     1、这个命令执行完以后，还是在-layer的透明命令中，我必须再按个回车才能回到命令行中。如何让他直接回到命令行中？
           PS：对于这个命令，多按个回车其实也没什么，可有时候我想和别的命令组合的时候，会给我带来一些麻烦。因为它不退出-layer命令，无法顺利执行下面的command。
     2、因为我需要冻结的图层过多， 一个这个命令不够写，再多程序就不认了。我需要再补写个XMJZ1，XMHZ2.....能否一个命令搞定呢？

Free-Lancer

可以这样

1. (DEFUN C:XMJZ ()
   
2.   (setvar "cmdecho" 0)
   
3.   (command
   
4.     "-layer"
   
5.     "f"
   
6.     "A-DOOR-IDEN,A-DOOR-FIRE-IDEN,A-PKNG-TSRP,A-flor-strs,A-ANNO-TEXT,a-anno-dims,A-PKNG-TURN,Q去建筑,A-AXIDIM,a-A符标,A-ASIS,填充"
   
7.     ""
   
8.   )
   
9.   (princ)
   
10. )

(DEFUN C:XMJZ ()<br />   (setvar "cmdecho" 0)<br />   (command<br />     "-layer"<br />     "f"<br />     "A-DOOR-IDEN,A-DOOR-FIRE-IDEN,A-PKNG-TSRP,A-flor-strs,A-ANNO-TEXT,a-anno-dims,A-PKNG-TURN,Q去建筑,A-AXIDIM,a-A符标,A-ASIS,填充"<br />     ""<br />   )<br />   (princ)<br /> )

ll_j

后面再加一对引号（相当于回车）就可以退出了。
(DEFUN C:XMJZ ()
(command "-layer" "f" "A-DOOR-IDEN" "f" "A-DOOR-FIRE-IDEN" "F" "A-PKNG-TSRP" "F" "A-flor-strs" "F" "A-ANNO-TEXT" "F" "a-anno-dims" "F" "A-PKNG-TURN" "f" "Q去建筑" "F" "A-AXIDIM" "f" "a-A符标" "f" "A-ASIS" "F" "填充" "")
)

另一个问题也就不成问题了。

Lisphk

如果你需要再按两个回车退出，那么就在程序代码最后 加两个 "" ""

一个"" 代表一个回车

hardthinking

Free-Lancer 发表于 2013-8-7 18:12
可以这样

您这个写法好，果断修改之...

hardthinking

ll_j 发表于 2013-8-7 18:10
后面再加一对引号（相当于回车）就可以退出了。
(DEFUN C:XMJZ ()
(command "-layer" "f" "A-DOOR-IDEN"  ...

奇怪，我是知道加“”相当于回车的，原来编的时候加过，可怎么试也不行，这次再改居然行了，难道是“光环”效应？

newer

hardthinking 发表于 2013-8-7 19:22
奇怪，我是知道加“”相当于回车的，原来编的时候加过，可怎么试也不行，这次再改居然行了，难道是“光环 ...

你是不是把全角的引号给输上去了。

hardthinking

newer 发表于 2013-8-7 19:32
你是不是把全角的引号给输上去了。

应该不是，全角半角那么明显我应该分不错，，其实我编好多命令都遇到过这个问题。正常的在CAD里一步一步走，没问题。可做成lisp的就不行了。用cad自带的“动作录像器”也不行，就是死活不认回车，，现在忘记是哪些命令了，等到时候实际遇到了再请教吧！

hardthinking

请看我做的这个协调图层的命令，为什么这个加双引号不能退出命令呢？
;;协调图层
(DEFUN C:XT ()
(command "-LAYER" "e" "*" "")
(prompt "图层已协调")
)

Underway

(command "-LAYER" "e" "*" "")
==>
(command "-LAYER" "e" "*" "" "")

Lisphk

hardthinking 发表于 2013-8-8 15:25
请看我做的这个协调图层的命令，为什么这个加双引号不能退出命令呢？
;;协调图层
(DEFUN C:XT ()

记住一点就行了，在CAD下面LAYER命令里面，交互输入什么，在函数里面就加什么，输入一次回车，就加一个个 “”对应。

hardthinking

真的不行啊，我做了我的操作视频，请大侠们看一下，如果小看不清楚，直接单击这个图片，就可以放大。放大后，再按右上角的最大化按钮效果更佳。

ll_j

hardthinking 发表于 2013-8-8 16:40
真的不行啊，我做了我的操作视频，请大侠们看一下，如果小看不清楚，直接单击这个图片，就可以放大。放大后 ...

仔细看命令提示：“图形中没有未协调图层”
出现此提示，再输入“*”，则函数已经出错，命令没有退出，但command函数已经退出了，所以再回车已经没用了。
因为command函数正常返回值都是nil，所以不太好作为判别条件，所以要解决这个问题，大概就要跟踪出错函数，看看函数出错信息，再决定这样处理。这方面牢固版主更强一些，希望他能出手解决，不过，你最好还是先说清楚你这样做的目的，大家看看是不是还有更灵活的办法。

hardthinking

ll_j 发表于 2013-8-8 18:09
仔细看命令提示：“图形中没有未协调图层”
出现此提示，再输入“*”，则函数已经出错，命令没有退出， ...

哦，原来是退出了command命令了，，了解了，，其实我的目的就是当图纸出现未协调图层的时候，弄一个让他马上协调图层的快捷命令，不用再进图层管理器 框选 协调。我这个命令 在有未协调图层的时候是有效的。 没有未协调图层的时候就出现问题，我觉得它不该出问题，就问了下，，，谢谢哈，，现在明白为什么了

张和平

额。。。。。。。。。