yuanji007 发表于 2013-3-8 17:20:18

高手求救！！求交点问题。急急急!!！！！

Dim TVP As AcadEntity
      Set TVP = IPCOL(1)

         IntPointsL = lineObj.IntersectWith(TVP, acExtendThisEntity)

程序出现“要求对象”

Public Function SelectAtPoint2()
   On Error Resume Next
    Dim A As AcadEntity
   dim IPCOL As AcadModelSpace

    If Not IsNull(ThisDrawing.SelectionSets.Item("SSet2")) Then
       Set SSet2 = ThisDrawing.SelectionSets.Item("SSet2")
         SSet2.Delete
    End If
    Set SSet2 = ThisDrawing.SelectionSets.Add("SSet")
      SSet2.Select acSelectionSetLast
      
      
      For Each A In SSet2
         IPCOL.Add A
      Next
End Function
请各位高手指教一下呀！！！谢谢
页: [1]
查看完整版本: 高手求救！！求交点问题。急急急!!！！！