求助这样一个程序？

Smile cop · 发表于 2013-12-8 12:18:32

ll_j 发表于 2013-12-8 12:08
看半天还是没看懂，这个要求和ACAD的copy命令有什么不同么？

如果我没有记错的话，单独的ACAD的copy命令是不会改变复制后图形的图层的啊，你哪里可以？奇怪了

ll_j · 发表于 2013-12-8 13:47:36

大概理解是这样，比如选择了一个源实体（不管图层），然后通过选择物体的方法确定目标层，然后在每一个目标层上复制一个源实体。
如果图层选多了，你不会觉得很累赘么？我的理解，图层不是这样用的。
就程序而言不是很难，将源实体原位复制到其它层，只要把图层组码变化一下再entmake即可，也不在乎多少，遍历即可，不过有什么实际意义就不好说了。

Smile cop · 发表于 2013-12-8 13:52:57

ll_j 发表于 2013-12-8 13:47
大概理解是这样，比如选择了一个源实体（不管图层），然后通过选择物体的方法确定目标层，然后在每一个目标 ...

如果图层选多了，你不会觉得很累赘么？我的理解，图层不是这样用的。
在实现这样结果的前提下，还有什么更好的方法和用法吗？

Smile cop · 发表于 2013-12-10 09:23:53

怎么没有回复了啊？

st788796 · 发表于 2013-12-10 09:31:09

rxing 发表于 2013-12-10 09:23
怎么没有回复了啊？

(defun c:tt (/ e lyr ss)
(while (and (setq e (car (entsel "\n指定目标图层实体: ")))
(setq lyr (cdr (assoc 8 (entget e))))
(setq ss (ssget))
)
(command ".copy" ss "" "0,0,0" "@")
(command ".chprop" ss "" "la" lyr "")
(command ".move" ss "")
(setvar "cmdecho" 1)
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
(setvar "cmdecho" 0)
)
(princ)
)

Smile cop · 发表于 2013-12-10 11:26:22

st788796 发表于 2013-12-10 09:31

非常感谢您的热情回复，可不可以改成可以多选图形，来单独的获取图层，复制到图层后再循环复制到图层那样，谢谢

st788796 · 发表于 2013-12-10 11:35:01

rxing 发表于 2013-12-10 11:26
非常感谢您的热情回复，可不可以改成可以多选图形，来单独的获取图层，复制到图层后再循环复制到图层那样 ...

你的表述让人很难理解

(defun c:tt (/ e lyr ss)
(while (setq e (car (entsel "\n指定目标图层实体: ")))
(setq lyr (cdr (assoc 8 (entget e))))
(while (setq ss (ssget))
(command ".copy" ss "" "0,0,0" "@")
(command ".chprop" ss "" "la" lyr "")
(command ".move" ss "")
(setvar "cmdecho" 1)
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
(setvar "cmdecho" 0)
)
)
(princ)
)

q3_2006 · 发表于 2013-12-10 13:23:20

(defun c:tt ( / i la s0 s1 ss sy)
(vl-load-com)
(vl-cmdf "undo" "be")
(redraw (setq sy (car (entsel "\n选择需要原位复制的对象："))) 3)
(setq ss (ssget (prompt "\n选择目的图层上的对象："))
i -1
)
(redraw sy 4)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq la (Vlax-Get (Vlax-Ename->Vla-Object s1) 'Layer ))
(entmake (entget sy))
(setq s0 (entlast))
(Vlax-Put-Property (Vlax-Ename->Vla-Object s0) 'Layer la )
)
(vl-cmdf "undo" "e")
)

大概是这个意思

Smile cop · 发表于 2013-12-10 13:28:30

st788796 发表于 2013-12-10 11:35
你的表述让人很难理解

我是说开始的(setq e (car (entsel "\n指定目标图层实体: "))这句，可不可以用（ssget)来代替，就是改成可以多选的方式

st788796 · 发表于 2013-12-10 13:37:03

rxing 发表于 2013-12-10 13:28
我是说开始的(setq e (car (entsel "\n指定目标图层实体: "))这句，可不可以用（ssget)来代替，就是改成 ...

多选后要是有多个图层实体怎么办

Smile cop · 发表于 2013-12-10 20:07:54

非常感谢st788796 q3_2006 两位的热情解答，谢谢，问题已经解决！

st788796 · 发表于 2013-12-10 21:10:41

q3_2006 发表于 2013-12-10 13:23
大概是这个意思

你这太绕了，用entmake就entget旧的，subst assoc 8替换后entmake

q3_2006 · 发表于 2013-12-11 07:11:05

st788796 发表于 2013-12-10 21:10
你这太绕了，用entmake就entget旧的，subst assoc 8替换后entmake

就是呀。。但原位复制并改层，我也想不到更好的方法了{:soso_e110:}

st788796 · 发表于 2013-12-11 08:32:06

q3_2006 发表于 2013-12-11 07:11
就是呀。。但原位复制并改层，我也想不到更好的方法了

方法1 用 copy 命令原地复制，chprop 修改原选择集至新图层
方法2 entmake 新图层实体
(setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(setq el (entget e)
el (subst (cons 8 lyr) (assoc 8 el) el);_lyr 为新图层
)
(setq nl (cons (entmakex el) nl));_把新实体构造一个表以便后续操作
)
方法3
(setq ss1 (xdrx_entity_transformedcopy ss))
(xdrx_entity_setlayer ss1 "Layer" newlayer)

账号		自动登录	找回密码
密码			立即注册

[求助] 求助这样一个程序？

点评

点评

点评

点评

点评

点评

点评

点评