[请求]请问如何连续调用多个已加载的LSP。

Wildcat

我因未学过编程，表达不大清楚，见笑了。
举例说，AUTOCAD已加载AA、BB、CC三个LSP（这三个LSP的执行命令也分别为AA、BB、CC。
现我想写一个名为DD的LSP（执行命令也为DD)，内容为按序执行AA、BB、CC并如果其中一个执行失败可以自动跳过。
谢谢了。

XDSoft

在定义个LISP命令：

(defun c:xxx()
    (c:aaa)
    (c:bbb)
    (c:ccc)
)

Wildcat

但其中一个执行失败后，就会终止。

Wildcat

我想要的效果。
有N张图纸，图层定义的颜色一致（都是bylayer），图层名也一致，但图层的数目却可能不一，举例如下：
图1的图层：1、2、3  、4、5
图2的图层：2、4、5
图3的图层：1、3、4
。。。。
出现的图层名就只有从1－10
我最初的解决想法：
(defun c:aaa(/ ent)
  (ssget "x" '((8 . "3")))
  (command "change" "p" "" "p" "c" "1" "")
)
用十个这样的程序解决。因为不能以颜色区分（图层1原为绿色，我要变黄色，图层2原来绿色，我要变红色），当这种情况出现时，颜色区分就无法实现了。
最终我要把所有图元归入0层。
各位有好方法解决我这个问题吗？

cy956

是否理解为某层物体均转为另层物体？还是。。。

问题还挺复杂的，可能还涉及子图元...的图层归并，
不过论坛以前的帖子讨论过，你查查看。

梦断江南

用十个这样的程序解决。因为不能以颜色区分（图层1原为绿色，我要变黄色，图层2原来绿色，我要变红色），当这种情况出现时，颜色区分就无法实现了。

再表述一下，这断话有点不易理解。

Wildcat

因为如果能按颜色区分的话，问题就简单多了，但偏偏不可以，因为绿色的图层会存在两个或更多，但我要把这个绿色转为黄色和红色。
例如：
图层1绿色  我要变黄色
图层2绿色  我要变红色
图层3绿色  我要变蓝色
而且物体的颜色均为bylayer，幸好图纸内没有嵌套块。不然就更麻烦了。
所以只能用图层区分。

梦断江南

那你直接改图层的颜色不就行了？实体bylayer

Wildcat

但最终我一定要把所有图元归入0层。 图纸里最后只有0层。

cy956

?

都到0层？那这图以后怎么用？你不会是在建图库吧？

e2002

最初由 Wildcat 发布
[B]但最终我一定要把所有图元归入0层。 图纸里最后只有0层。 [/B]

那你选中所有对象,改为9层不就可以了吗?很难领会你的意思哦...

Wildcat

cy956，您猜对了，我的确在建立图库。因为我经常换工作的：），而且会常常面对不同公司不同的绘图员（唉，良莠不齐，各种情况都可能出现）绘制的图纸，（他们的图层名会出现各种名称和字符，简直防不胜防），而我的工作常常都建立在他们的图纸上，更惨的是，以后他们又要在我的图纸上修改，之前我想过各种方法都行不通，用外部引用操作上也很麻烦。最后还是把我需要的图块都改为0层，这样我的操作就简便多了。

Wildcat

简短地说，唔……
我有一堆图块。
图块的颜色是通过图层定义的（BYLAYER,，图层名为1-10）。
我的目的要把各图层的颜色重定义后，再转为0层，因为图块太多，我需要批处理。
日后我使用时，我可以把它们都定义都一个层里，在图纸绘制完毕后，我再通过过滤，把它们一次改颜色，这样我会比较方便，如果图纸是一手一脚我画的，就更方便了。（始终习惯了一个图层工作，只有在有必要时才使用其它图层做辅助，可能和我从事室内装饰设计专业有关吧：）。
谢谢各位了。

长清

最初由 XDSoft 发布
[B]在定义个LISP命令：

(defun c:xxx()
    (c:aaa)
    (c:bbb)
    (c:ccc)
) [/B]

这样行吗？

(defun c:xxx()
  （defun *error*( msg / )      
       (setq *error* nil)
    )
    (c:aaa)
  （defun *error*( msg / )      
       (setq *error* nil)
    )
    (c:bbb)
  （defun *error*( msg / )      
       (setq *error* nil)
    )
    (c:ccc)
    (setq *error* nil)
) [/B][/QUOTE]

Wildcat

用长清斑竹的方法行。实在太感谢您了。
多谢各位。
谢谢。