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

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

我选择了一条线，想知道它的图层名，不知用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获取所选对象的图层名

发表回复

精选推荐