Witam
Mam osobisty układ współrzędnych
Mam szwy w montażu
Mogę zmierzyć te punkty ręcznie, aby uzyskać współrzędne X/Y/Z
Opracowuję makro do automatyzacji tego zadania i przesyłam listę punktów wraz z ich współrzędnymi.
Mogę mierzyć punkty, ale robi to zgodnie z domyślnym układem współrzędnych, a nie z tym, którego chcę
Oto fragment mojego kodu, który odczytuje współrzędne w folderze o nazwie "połączenia":
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
Z góry dziękuję za pomoc
Cédric powiedział:
