出了什么问题？（副本att
如果你手工操作，一切都很好，但是如果我在一个脚本中同时运行它，它只会删除所有属性奇怪的是，它删除了mspace模板中的属性，我只复制而不修改mspace中的属性。
编辑：当被选择激活时，catt和patt似乎不在脚本中工作。有人知道为什么吗？我没有用lisp，我对visuallisp也不是很熟悉。
编辑2：将catt和patt缝合在一起得到相同的结果。
（defun c:test8（/blks）（命令“mspace”）（sssetfirst nil（ssget“_x”'（（0。“INSERT”）（2。“Template”）））；（c:catt）（cattt）（setq blks（ssget“_x”'（（0。“INSERT”）（2。“Template”）））（命令“zoom”“o“blks”）；（命令“erase”blks“”）（命令“pspace”）（sssetfirst nil（ssget“_x”'（（0。“INSERT”）（2。“Template”））；（c:patt）（pattt）（命令“zoom”“all”）；我没有做这个部分！！！（defun cattt（/sSet）；（changeTags）（vl load com）（princ“\n>”）（if（setq sSet（ssget“：S””（（0。“INSERT”）（66.1））（progn（setq cBl（vlax ename->vla object（ssname sSet 0）））（vl bb set“atLst（cons（vla get Name cBl）（mapcar）（lambda（x）（vla get TextString x））（vlax safearray->list（vlax variant value（vla GetAttributes cBl）；））））（princ“\n>”）；end progn（princ）“\n>>>这不是带有属性的块！>>未选择任何内容！>没有要粘贴的属性数据！ 你是如何“在脚本中同时[运行]它的”。。。你是说一个。SCR文件？
或者你只是说你试着运行一个命令（即c:TEST8），它一次完成所有步骤？ 我只想用cmd一次运行它，但我需要检查它是否运行良好，所以使用scr不起作用。
这将是一个更大的lisp文件的一部分。 感谢您的澄清。。。（对我来说）你最初的描述有点混乱。 我已经更新了语法
我认为选择集出了问题，也许我应该在catt an patt中更改它们。
页:
[1]