Использую Компас 9 и VB6.
По примеру Step3D1 создал процедуру создания плоскости со смещением
Sub CreateExtrusion()
iKompasObject.ksMessage
Dim part As Object ' ksPart
Set part = iDocument3D.GetPart(pNew_Part)
If Not part Is Nothing Then
Dim entitySketch As Object ' ksEntity
Set entitySketch = part.NewEntity(o3d_sketch)
If Not entitySketch Is Nothing Then
Dim sketchDef As Object ' ksSketchDefinition
Set sketchDef = entitySketch.GetDefinition()
If Not sketchDef Is Nothing Then
Dim basePlane As Object ' ksEntity
Set basePlane = part.GetDefaultEntity(o3d_planeXOY)
sketchDef.SetPlane basePlane
iKompasObject.ksMessage "Установили базовую плоскость"
sketchDef.offset = 50
iKompasObject.ksMessage "Смещение"
sketchDef.direction = True
entitySketch.Create
iKompasObject.ksMessage
End If
End If
End If
End Sub
Процедура доходит до выдачи сообщения "Установили базовую плоскость" и все, дальше не идет. Подскажите, что не так?
PS Нашел ошибку
было Set entitySketch = part.NewEntity(o3d_sketch)
надо Set entitySketch = part.NewEntity(o3d_planeOffset)