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

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

本帖最后由 作者 于 2008-1-22 16:11:15 编辑 <br /><br /> <p>我选择了一条线，想知道它的图层名，不知用VBA代码如何实现？</p>

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

<p>搜集资料！</p>

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就可以获取所选实体的图层名，是字符串格式的。
页: [1]
查看完整版本: [求助]VBA获取所选对象的图层名