Доброго времени суток всем!
Подскажите, пожалуйста, как вставить Curve Smooth в выбранный сет?
CATIA.ActiveDocument.Selection.Item(1).Value.AppendHybridShape <объект HybridShapeCurveSmooth>
Language="VBSCRIPT"
Sub CATMain()
Msgbox "Select geometrical "
Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status
Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry
Set Document = CATIA.ActiveDocument
Set Part = Document.Part
Set Selection = Document.Selection
Set HybridShapeFactory = Part.HybridShapeFactory
InputObjectType(0)="HybridBody"
Status=Selection.SelectElement3(InputObjectType,"Select geometrical",true,CATMultiSelTriggWhenSelPerf,false)
if (Status = "Cancel") then Exit Sub
set hybridbody1 = Selection.Item(1).Value
' получаем HybridShapeFactory
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = Document.Part.HybridShapeFactory
' добавление курвсмуса
Dim hybridShapeCurveSmooth1 As HybridShapeCurveSmooth
Set reference1 = hybridShapeFactory1.AddNewCurve
Set hybridShapeCurveSmooth1 = hybridShapeFactory1.AddNewCurveSmooth(reference1)
hybridbody1.AppendHybridShape hybridShapeCurveSmooth1
End Sub
heze писал(а):точно, спасибо. Получается:
Set reference1 = hybridShapeFactory1.AddNewCurveDatum
но опять же сам метод AddNewCurveDatum нуждается в референсе, верно? можно этот референс задать "пустым" или нужно запрашивать, например, пользовательский выбор?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4