Проблема с макрасом для создания чертежа из модели

[iita_spb 0]

Здравствуйте.
Пытались сделать макрос, чтобы нажать кнопку на панели и создавался чертёж с видом спереди(для этого просто использовали заранее сделанный шаблон, который лежит в папке templates) и проставлялись размеры(это сделали просто за счёт авто-нанесение размером).
Проблема в том, что макрос не вытаскивает вид на чертёж.
Может кто-то мог бы подсказать в чём проблема?
 

 

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

' New Document
Dim swSheetWidth As Double
swSheetWidth = 0.21
Dim swSheetHeight As Double
swSheetHeight = 0.297
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2017\templates\тест.drwdot", 12, swSheetWidth, swSheetHeight)
Dim swDrawing As DrawingDoc
Set swDrawing = Part
Set swDrawing = Part
Dim swSheet As sheet
Set swSheet = swDrawing.GetCurrentSheet()
swSheet.SetProperties2 12, 12, 1, 1, False, swSheetWidth, swSheetHeight, True
swSheet.SetTemplateName "C:\Users\Компьютер\Desktop\osco\SOLID\ПДМ ШАБЛОН\Шаблоны\Форматки\А4.slddrt"
swSheet.ReloadTemplate True
boolstatus = Part.GenerateViewPaletteViews("C:\Users\User\Desktop\Проверить наличие\футеровка для макроса.SLDPRT")
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByRay(-0.01, 0.03, 0.003, 0, 0, -1, 1.19074682080925E-03, 1, True, 2, 0)
boolstatus = Part.Extension.SelectByRay(-9.99999999999999E-03, -0.03, 0.003, 0, 0, -1, 1.19074682080925E-03, 1, True, 4, 0)
longstatus = Part.AutoDimension(1, 1, -1, 1, 1)
Part.ClearSelection2 True
End Sub
 

[Kelny 1,109]

3 часа назад, iita_spb сказал:

Пытались сделать макрос, чтобы нажать кнопку на панели и создавался чертёж с видом спереди(для этого просто использовали заранее сделанный шаблон, который лежит в папке templates)

Помнится для этого макрос не нужен, а можно использовать стандартные инструменты ПРЕДВАРИТЕЛЬНО ОПРЕДЕЛЁННЫЕ ВИДЫ, а так же ПЛАНИРОВЩИК ЗАДАЧ:

https://help.solidworks.com/2010/russian/solidworks/swtaskscheduler/legacyhelp/sw_task_scheduler/topics/hidd_task_drw_creation.htm

 

https://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/drawings/predefined_views.htm

 

https://help.solidworks.com/2010/russian/solidworks/swtaskscheduler/legacyhelp/sw_task_scheduler/topics/solidworks_task_scheduler_overview.htm

 

3 часа назад, iita_spb сказал:

Может кто-то мог бы подсказать в чём проблема?

Вероятно макрос просто записан, а записывается в макрос не всё, что бы разобраться обратитесь к справке, например:

https://help.solidworks.com/2010/english/api/sldworksapi/Insert_Model_Annotations_Example_VB.htm