有些函数还没接触，我是这么处理的
(setq ss1 (ssadd))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(command "._copy" ent "" pt1 pt2)
(ssadd (entlast) ss1)
(setq i (1+ i))
);end_repeat
xxyyzzlg 发表于 2024-8-20 23:29
有些函数还没接触，我是这么处理的
(setq ss1 (ssadd))
(setq i 0)
谢谢！我之前也是这种方法、不过这种方法有个问题、就是会造成原来关联的图形取消关联
xiaocainiao 发表于 2024-8-21 08:42
谢谢！我之前也是这种方法、不过这种方法有个问题、就是会造成原来关联的图形取消关联
好的，没注意到这点
还有一种方法
重定义copy命令
复制对象ss先移动再反向复制
这样ss还是原来的ss :D-
masterlong 发表于 2024-8-21 11:50
还有一种方法
重定义copy命令
复制对象ss先移动再反向复制
这个就有点看不懂了
(setq b (vla-copy a))
b就是复制后的对象,不用进行其它处理
lijiao 发表于 2024-8-21 13:44
b就是复制后的对象,不用进行其它处理
这个只能是单独的对象、选择集不行吧、如果配合循环、貌似会丢失图形的关联性
什么关联性?没有听说过,好像很高大上
lijiao 发表于 2024-8-21 14:44
什么关联性?没有听说过,好像很高大上
比如尺寸和物体，或者字段和物体。
比如一个圆和半径的字段，一起复制的话，新的字段会自动关联新的圆，单独分开复制，关联的还是旧的圆。保持关联相当于需要DeepClone
本帖最后由 你有种再说一遍 于 2024-8-21 14:54 编辑
xiaocainiao 发表于 2024-8-21 13:46
这个只能是单独的对象、选择集不行吧、如果配合循环、貌似会丢失图形的关联性
命令一起复制的就行了....然后一路entnext
不过还是c#我都写完了,连lisp也写了
https://www.cnblogs.com/JJBox/p/10713005.html#_label1