- Код: Выделить всё
Set objPspPartCntr = objPspPhysicalPrd.Connectors.Item(PointConnector, "CATIAPspPartConnector")
- Код: Выделить всё
Public Sub GetPtfrConnector(Product1 As Product, PointConnector As Long, PtX As Double, PtY As Double, PtZ As Double)
If Err.Number <> 0 Then Exit Sub
Dim objPspPhysicalPrd 'As PspPhsyicalProduct
Set objPspPhysicalPrd = objPspWorkbench.GetInterface("CATIAPspPhysicalProduct", Product1)
Dim objPspPartCntr As PspPartConnector
Set objPspPartCntr = objPspPhysicalPrd.Connectors.Item(PointConnector, "CATIAPspPartConnector")
If (Not (objPspPartCntr Is Nothing)) Then
Dim objLDbData As PspListOfDoubles
Set objLDbData = objPspPartCntr.GetPosition(productDocument1.Product)
PtX = objLDbData.Item(1)
PtY = objLDbData.Item(2)
PtZ = objLDbData.Item(3)
Else
Err.Raise 1
End If
End Sub
Это решаемо? На 32 такой проблемы нет...
