社区 › VB › [求助]VBA获取所选对象的图层名

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

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

我选择了一条线，想知道它的图层名，不知用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:00

这个是好资料哈。

njyulei 发表于 2012-7-25 17:25:00

这个是好资料哈。

njyulei 发表于 2012-7-26 08:46:00

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

cannywind 发表于 2012-7-26 09:49:00

Dim returnObj As AcadObject
Dim basePnt As Variant
Thisdrawing.Utility.GetEntity returnObj, basePnt, "请选择"
然后returnObj.Layer就可以获取所选实体的图层名，是字符串格式的。

查看完整版本: [求助]VBA获取所选对象的图层名