[求助]：如何创建这样一个宏?(大虾请进)

sunyaer

时常拿到别人的图纸, 遇上有价值的地方便想利用原图制作成块.而制作块一般最好在0层制作, 因而就有了创建这样一个宏的思路.这个宏的功能:

把0层设成当前层,执行Copy命令, 通过鼠标选择把需要的实体复制到0层,执行块创建命令, 把复制的实体删除, 然后结束.

另外, 如只实现"把0层设成当前层,执行Copy命令, 通过鼠标选择把需要的实体复制到0层, 然后结束.", 又如何写?

我刚接触lisp,不太熟悉, 用(command "clayer" "0"),(command "copy" pause), (command "chprop")等弄来弄去搞不定, 请大虾出来帮忙,谢谢!!!

柔柔

1。这好像不应该称“宏”，要编一个程序，所以应该发到相应版块去。
2。“弄来弄去搞不定”是因为你考虑得太简单了。本来不在0层的对象，假如颜色线型是bylayer，也即是随所在图层的设置，如果不处理，到了0 层不是全变了吗？还有，假如图形已经人为缩放过呢？这么处理不又存在问题。比如，你要把别人的图框用这个办法保存下来，他的图框被放大过，作为你的标准图块就必须要缩回去，否则以后自己也搞不清楚。
3。“把0层设成当前层,执行Copy命令, 通过鼠标选择把需要的实体复制到0层,”直接修改对象数据列表不就行了，何必这么绕圈子。
4。(command "copy" pause)中的pause只能代替一次步骤，这句话也就只能选择一个对象，这肯定不是你所希望的。
5。图块尽量做在0层，但不是一定非做在0层不可，有时还特意不放在0层。反正，做图块是非常有讲究的，考虑的问题绝对不是仅仅图层而已。

sunyaer

我也感觉考虑得简单了点.
希望柔柔把"做图块是非常有讲究的，考虑的问题绝对不是仅仅图层而已." 做详细阐述.

希望大家把这个程序编出来.柔柔有影响力, Please follow up and call for other big guys to join and help. Get this job done!!! Thanks a lot!!!