有把一个图层的所有图元复制到另一个图层的简便方法吗？谢谢！

wuxjld · 发表于 2004-11-12 19:58:00

alin · 发表于 2004-11-12 20:18:00

(command "chprop" (ssget "x" '((8 . "图层1"))) "" "layer" "图层2" "")

wuxjld · 发表于 2004-11-12 21:56:00

谢谢您的答复，问题是复制而不是修改其图层属性！

alin · 发表于 2004-11-13 05:57:00

(command "copy" (ssget "x" '((8 . "图层1"))) "" '(0 0 0) '(0 0 0))
(command "chprop" (ssget "p") "" "layer" "图层2" "")

wuxjld · 发表于 2004-11-13 12:13:00

谢谢！另外请教个问题，如何获取“图层2"所有图元的中心点?

alin · 发表于 2004-11-13 12:25:00

(if (setq ss (ssget "x" '((0 . "CIRCLE") (8 . "图层2"))))
(progn
(setq idx -1)
(repeat (sslength ss)
(setq centers
(cons
(cdr
(assoc 10 (entget (ssname ss (setq idx (1+ idx)))))
)
centers
)
)
)
)
)

wuxjld · 发表于 2004-11-13 19:56:00

谢谢！我的问题是获取"图层2"所有图元的中心点，结果只有一个点坐标，即图层所有对象的中心点，而不是获取每个图元的中心点！

lockmyeye · 发表于 2004-11-14 23:27:00

1、冻结除“图层2”外的所有层。

2、(COMMAND "ZOOM" "E")

3、(GETVAR "VIEWCTR")

alin · 发表于 2004-11-14 23:54:00

wuxjld发表于2004-11-13 19:56:00谢谢！我的问题是获取\"图层2\"所有图元的中心点，结果只有一个点坐标，即图层所有对象的中心点，而不是获取每个图元的中心点！

Sorry看错了，我以为你说图层2上所有园的中心点。呵呵

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