[编程申请]：两个在不同图层上的实体,然后互换到对方的图层里

zh_6531394 · 发表于 2004-12-5 13:24:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

*-*a 请编一个程序,
选择两个在不同图层上的实体,然后互换到对方的图层里

自由的鱼 · 发表于 2004-12-5 17:58:26

Sub tt()
Dim sset As AcadSelectionSet
Dim tmp As String
Set sset = ThisDrawing.SelectionSets.Add("ttt")

sset.SelectOnScreen
tmp = sset.Item(0).Layer
sset.Item(0).Layer = sset.Item(1).Layer
sset.Item(1).Layer = tmp
sset.Delete
End Sub

lsjjm · 发表于 2004-12-6 03:21:18

VLISP：
[php]
(defun c:test ()
  (vl-load-com)
  (setq e1 (car (entsel "\nSelect First Entity: ")))
  (setq lay1 (cdr (assoc 8 (entget e1))))
  (setq e2 (car (entsel "\nSelect Second Entity: ")))
  (setq lay2 (cdr (assoc 8 (entget e2))))
  (vla-put-layer (vlax-ename->vla-object e1) lay2)
  (vla-put-layer (vlax-ename->vla-object e2) lay1)
)
[/php]

zh_6531394 · 发表于 2004-12-6 11:27:11

这么快,太感谢了
但有个缺点,选择不能拉窗口,只能选择一个忘改进

lsjjm · 发表于 2004-12-6 15:30:38

最初由 zh_6531394 发布
[B]这么快,太感谢了但有个缺点,选择不能拉窗口,只能选择一个忘改进 [/B]

你一楼里说的是"两个" 也, 并没有说要框选.
其实论坛里的程序只能给你一种思路或方法. 你可以学习, 借鉴, 而不要照搬. 否则你永远成不了高手.

zh_6531394 · 发表于 2004-12-7 09:20:28

请楼上的帮忙,我是菜鸟,以后一定好好学习,

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

[编程申请]：两个在不同图层上的实体,然后互换到对方的图层里

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块