求助：改变偏移直线的特性

liuyang4740 · 发表于 2008-6-5 10:17:00

求助高手：我用vba的.offset命令偏移形成了一条直线，现在想把偏移后生成的直线改变土层，该怎么实现呢？如Set offline = objsel.Offset(10)，其后用offline.layer="0"，为何没有实现土层改变呢？

fjfhgdwfn · 发表于 2008-6-5 11:44:00

发程序上来

liuyang4740 · 发表于 2008-6-5 13:07:00

Dim SsetObj As AcadSelectionSet
Dim SsetName As String
Dim objsel As AcadEntity
Dim y(1 To 3) As Double
Dim y_st(1 To 3) As String
Dim offline As AcadLine

SsetName = "au100"
On Error Resume Next
For i = 0 To ThisDrawing.SelectionSets.Count - 1
      Set SsetObj = ThisDrawing.SelectionSets.Item(i)
      If SsetObj.Name = "au100" Then SsetObj.Delete
Next i
      Set SsetObj = ThisDrawing.SelectionSets.Add(SsetName)
'让用户在屏幕上选择要加入选择集的图元
SsetObj.SelectOnScreen
   '遍历选择集合

   i = 1
For Each objsel In SsetObj
   Set offline = objsel.Offset(10)

   offline.Layer = "0"
next
end sub