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

liuyang4740

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

fjfhgdwfn

发程序上来

liuyang4740

 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

fjfhgdwfn

Dim Offline As Variant 

For Each objsel In SsetObj
   offline = objsel.Offset(10)
      
      offline(0).Layer = "0"

   next

offline 是一个数组。

可以看offset的帮助。

liuyang4740

多谢楼上的，我按照楼上的改了还是没有更改土层啊？

fjfhgdwfn

  On Error Resume Next
先把这个去了。你肯定哪出错了。

我试了的。是可以的。

sailorcwx

Dim offline As AcadLine改成Dim offline As Variant

offline.Layer = "0"改成offline(0).Layer = "0"

liuyang4740

问题解决了，非常感谢楼上的！！！