wxp20032003 发表于 2010-4-26 17:30:00

谁能帮我改改

我不会用intersectwith这个函数
谁知道的给我改改下面的代码
Dim db As Database = HostApplicationServices.WorkingDatabase
      Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
      '对话
      Dim values As TypedValue() = New TypedValue() {New TypedValue(DxfCode.Start, "POLYLINE")}
      Dim sfilter As New SelectionFilter(values)
      '选择多段线
      Dim optsel As New PromptSelectionOptions
      optsel.MessageForAdding = " 请选择多段线"
      Dim relsel As PromptSelectionResult = ed.GetSelection(optsel, sfilter)
      Dim sest As SelectionSet = relsel.Value
      Dim line1ids As ObjectId() = sest.GetObjectIds
      '选择图层多段线
      Dim ft As TypedValue() = New TypedValue() {New TypedValue(DxfCode.Start, "POLYLINE"), New TypedValue(DxfCode.LayerName, "DGX")}
      Dim sr As PromptSelectionResult = ed.SelectAll(New SelectionFilter(ft))
      Dim ssest As SelectionSet = relsel.Value
      Dim line2ids As ObjectId() = ssest.GetObjectIds
      Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim pointlist As List(Of Point3dCollection)
            For Each _polyline As Polyline In sest
                For Each _polyline2 As Polyline In ssest
                  If _polyline.IntersectWith(_polyline2) = True Then
                        pointlist.Add(_polyline.IntersectWith(_polyline2))
                  End If
                Next
            Next
      End Using

iostream7 发表于 2010-4-29 16:28:00

PolyLine有IntersectWith 方法吗?
页: [1]
查看完整版本: 谁能帮我改改