求vba 代码如何更改所在图层

fwrghr · 发表于 2017-9-25 22:16:33

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

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

×

Sub Ch4_OffsetPolyline()
' 创建多段线
Dim plineObj As AcadLWPolyline
Dim points(0 To 11) As Double
points(0) = 1: points(1) = 1
points(2) = 1: points(3) = 2
points(4) = 2: points(5) = 2
points(6) = 3: points(7) = 2
points(8) = 4: points(9) = 4
points(10) = 4: points(11) = 1
Set plineObj = ThisDrawing.ModelSpace. _
AddLightWeightPolyline(points)
plineObj.Closed = True
ZoomAll

' 偏移多段线

offsetObj = plineObj.Offset(0.25)
For Each obj In offsetObj

obj.color = acGreen
Next
ZoomAll
End Sub

这个obj 如何更改所在图层

ashuai · 发表于 2018-11-28 09:11:08

obj.layer="xxx"

mikewolf2k · 发表于 2018-11-28 13:08:48

这么老了。。。

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

[求助] 求vba 代码 如何更改所在图层

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

[求助] 求vba 代码如何更改所在图层