[求助]VBA获取所选对象的图层名

offloading · 发表于 2008-1-22 16:08:00

本帖最后由作者于 2008-1-22 16:11:15 编辑

我选择了一条线，想知道它的图层名，不知用VBA代码如何实现？

weihedao · 发表于 2008-1-22 18:21:00

Dim guanbi As AcadObject
Dim basePnt As Variant
Dim layObj As AcadLayer

  ThisDrawing.Utility.GetEntity guanbi, basePnt, "叫如何不爱你"

  Set layObj = ThisDrawing.Layers.Item(guanbi.Layer)

  MsgBox layObj.Name

sunny2008 · 发表于 2008-3-18 14:36:00

搜集资料！

crazylsp · 发表于 2012-7-15 20:24:30

这个是好资料哈。

njyulei · 发表于 2012-7-25 17:25:02

这个是好资料哈。

njyulei · 发表于 2012-7-26 08:46:18

学到了好多东西，谢谢大家！

cannywind · 发表于 2012-7-26 09:49:18

Dim returnObj As AcadObject
Dim basePnt As Variant
Thisdrawing.Utility.GetEntity returnObj, basePnt, "请选择"

然后returnObj.Layer就可以获取所选实体的图层名，是字符串格式的。

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