проблема с макросами

[Talina 0]

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim FeatureData As Object

Dim Feature As Object

Dim Component As Object

Sub main()



Set swApp = Application.SldWorks



Set Part = swApp.ActiveDoc

Part.ClearSelection2 True

Part.CreateCircle 0, 0, 0, 0.02243070422535, -0.0169214084507, 0

Part.ClearSelection2 True

Part.CreateCircle 0, 0, 0, 0.0129861971831, -0.01337971830986, 0

Part.ActiveView().ZoomByFactor 1.01

Part.ActiveView().ZoomByFactor 1.01

Part.ClearSelection2 True

Part.InsertSketch2 True

boolstatus = Part.Extension.SelectByID2("Дуга2@Эскиз1", "EXTSKETCHSEGMENT", -0.001943030284829, 0.002285745679694, 0, True, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("Дуга1@Эскиз1", "EXTSKETCHSEGMENT", -0.002593892442302, 0.003044950245533, 0, True, 0, Nothing, 0)

Part.ShowNamedView2 "*Триметрия", 8

Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("Эскиз1", "SKETCH", 0, 0, 0, False, 4, Nothing, 0)

Part.SelectionManager.EnableContourSelection = 1

boolstatus = Part.Extension.SelectByID2("Эскиз1", "SKETCHCONTOUR", 0, 0, 0, True, 4, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("Эскиз1", "SKETCHCONTOUR", 0, 0, 0, True, 4, Nothing, 0)

Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False

Part.SelectionManager.EnableContourSelection = 0



boolstatus = Part.Extension.SelectByID2("", "FACE", 0, 0.003494960490627, -7.513467563172E-04, True, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("Точка1@Исходная точка", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)

Part.CreatePlaneAtSurface3 0, False, False, False, 0.7853981633975, True





boolstatus = Part.Extension.SelectByID2("Плоскость1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)

Part.InsertSketch2 True

Part.ClearSelection2 True

Part.CreateLine2(-0.003, 0.01343714498129, 0, -0.003, -0.01256147671741, 0).ConstructionGeometry = True

Part.SetPickMode

Part.ClearSelection2 True

Part.CreateLine2(0.01269945861493, 0, 0, -0.02006488627437, 0, 0).ConstructionGeometry = True

Part.SetPickMode

Part.ClearSelection2 True

Part.InsertSketch2 True

boolstatus = Part.Extension.SelectByID2("Точка1@Исходная точка", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)

End Sub

Ошибка на строке:

Part.CreateLine2(-0.003, 0.01343714498129, 0, -0.003, -0.01256147671741, 0).ConstructionGeometry = True

В чем может быть проблема? Макрос был создан системой автоматически.

[Shvg 68]

Проверь, есть ли такое имя плоскости ("Плоскость1"), которую выбираешь в строке

boolstatus = Part.Extension.SelectByID2("Плоскость1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)

А так макрос у меня проходит.

[Talina 0]

да, проблема в плоскости... в макросе почему-то не сгенерировано ее создание, плоскость создавала через справочную геометрию.

Такое ощущение, что sw игнорирует это событие. И в код макроса ни чего не вставляет.

Как создать плоскость программным путем?

[Shvg 68]

Как создать плоскость программным путем?

Ну например:

retval = ModelDoc2.CreatePlaneAtOffset3 ( val, flipDir, autoSize )

Только, как я понял, в макросе был выбор именно "Плоскость1"

[Talina 0]

Именно так она и называлась. В этой ф-ции можно вставить название плоскости?

Что значат параметры этой ф-ции?

[Shvg 68]

В этой ф-ции можно вставить название плоскости?

В этой нет. Можно потом изменить имя.

[Talina 0]

Спасибо большое за помощь! Плоскость все-таки записалась в макрос..