出了什么问题？（副本att

CADkitt · 发表于 2022-7-6 10:20:54

如果你手工操作，一切都很好，但是如果我在一个脚本中同时运行它，它只会删除所有属性
奇怪的是，它删除了mspace模板中的属性，我只复制而不修改mspace中的属性。

编辑：当被选择激活时，catt和patt似乎不在脚本中工作。有人知道为什么吗？我没有用lisp，我对visuallisp也不是很熟悉。
编辑2：将catt和patt缝合在一起得到相同的结果。
[code]（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>>>这不是带有属性的块！>>未选择任何内容！>没有要粘贴的属性数据！