Hallo
Ich habe ein persönliches Koordinatensystem
Ich habe Stiche in der Montage
Ich kann diese Punkte manuell messen, um die X/Y/Z-Koordinaten zu erhalten
Ich entwickle ein Makro, um diese Aufgabe zu automatisieren und sende mir die Liste der Punkte und deren Koordinaten.
Ich kann die Punkte messen, aber es tut es nach dem Standardkoordinatensystem und nicht mit dem, das ich möchte
Hier ist der Ausschnitt meines Codes, der die Koordinaten in einem Ordner namens "connections" liest:
If (typeName = "FtrFolder" And swFeature.Name = "Connexions") Then
Debug.Print swFeature.Name
Debug.Print " Current coordinate system = " & swModel.GetUserPreferenceStringValue(swFileSaveAsCoordinateSystem)
Set swFeatFolder = swFeature.GetSpecificFeature2
Features = swFeatFolder.GetFeatures
Debug.Print " Number of Features: " & swFeatFolder.GetFeatureCount
For i = 0 To (swFeatFolder.GetFeatureCount - 1)
Set swFtrFolder = Features(i)
Debug.Print " Name of feature: " & swFtrFolder.Name
Debug.Print " Type of feature: " & swFtrFolder.GetTypeName2
Set swRefPt = swFtrFolder.GetSpecificFeature2
Set swRefPtData = swFtrFolder.GetDefinition
Set swMathPt = swRefPt.GetRefPoint
'Debug.Print "File = " & swModel.GetPathName
'Debug.Print " " & swFeat.Name
Debug.Print " Pt = (" & swMathPt.ArrayData(0) * 1000# & ", " & swMathPt.ArrayData(1) * 1000# & ", " & swMathPt.ArrayData(2) * 1000# & ") mm"
Debug.Print " AlongCurveOption = " & swRefPtData.AlongCurveOption
Debug.Print " Distance = " & swRefPtData.Distance * 1000# & " mm"
Debug.Print " Type = " & swRefPtData.Type
Next i
End If
Vielen Dank im Voraus für Ihre Hilfe
Cédric
