Option Explicit
Sub CATMain()
Dim oSelection As Selection
Set oSelection = CATIA.ActiveDocument.Selection
Dim oRib As Rib
Set oRib = oSelection.Item(1).Value
Dim refCenterCurve As Reference
Set refCenterCurve = oRib.CenterCurveElement
Dim oHSF As HybridShapeFactory
Set oHSF = CATIA.ActiveDocument.Part.HybridShapeFactory
Dim crvCenter As HybridShape3DCurveOffset
Set crvCenter = oHSF.AddNew3DCurveOffset(refCenterCurve, oHSF.AddNewDirection(refCenterCurve), 0, 0, 0)
crvCenter.Compute
CATIA.ActiveDocument.Part.MainBody.InsertHybridShape crvCenter
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3