输出在文本中 请各位专家帮我看看 我是才学 谢谢了

hgd618

'曲线求交，把交点输出在文本中
Sub curveintersectionandoutput()
Dim v2 As AcadEntity
Dim ss1 As AcadSelectionSet

On Error GoTo ss

  ThisDrawing.Utility.GetEntity v2, ppp, "select an ent"
  Set ss1 = ThisDrawing.SelectionSets.Add("ssss")
  ss1.SelectOnScreen
  
  np = 0
  
  Open "C:\Users\Antony\Desktop\test.txt" For Output As #1    ' 打开输出文件。
  
  For Each ent In ss1
   Ipa = ent.IntersectWith(v2, acExtendNone) '求交点
   
   cc = (UBound(Ipa) + 1) / 3
   If cc >= 1 Then
    Dim pt(0 To 2) As Double
    pt(0) = Ipa(0)
    pt(1) = Ipa(1)
    pt(2) = ent.LinetypeScale
Print #1, pt(1); " " ' 将文本数据写入文件。
    np = np + 1
    Set point = ThisDrawing.ModelSpace.AddPoint(pt)

   End If
  Next
  
  Close #1
  
ss:
ss1.Delete
If Err.Number Then MsgBox Err.Description
End Sub

hgd618

请问函数intersectwith函数的返回值是什么 谢谢前辈

iLisp

看看手册中的 Sample
Sub Example_IntersectWith()
    ' This example creates a line and circle and finds the points at
    ' which they intersect.
   
    ' Create the line
    Dim lineObj As AcadLine
    Dim startPt(0 To 2) As Double
    Dim endPt(0 To 2) As Double
    startPt(0) = 1: startPt(1) = 1: startPt(2) = 0
    endPt(0) = 5: endPt(1) = 5: endPt(2) = 0
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)
        
    ' Create the circle
    Dim circleObj As AcadCircle
    Dim centerPt(0 To 2) As Double
    Dim radius As Double
    centerPt(0) = 3: centerPt(1) = 3: centerPt(2) = 0
    radius = 1
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius)
    ZoomAll
      
    ' Find the intersection points between the line and the circle
    Dim intPoints As Variant
    intPoints = lineObj.IntersectWith(circleObj, acExtendNone)
   
    ' Print all the intersection points
    Dim I As Integer, j As Integer, k As Integer
    Dim str As String
    If VarType(intPoints) <> vbEmpty Then
        For I = LBound(intPoints) To UBound(intPoints)
            str = "Intersection Point[" & k & "] is: " & intPoints(j) & "," & intPoints(j + 1) & "," & intPoints(j + 2)
            MsgBox str, , "IntersectWith Example"
            str = ""
            I = I + 2
            j = j + 3
            k = k + 1
        Next
    End If
End Sub