У меня есть пользователь, которому нужен легкий доступ к раскрывающемуся списку макросов, который легко и быстро импортирует общий шаблон таблицы и позволит разместить его там, где он нужен, одним щелчком мыши. В настоящее время код, который у меня есть для импорта общей таблицы, работает, но я недостаточно знаком с параметрами сплошных работ, чтобы знать, какой аргумент передать, чтобы разрешить вставку таблицы в то место, которое выбирает пользователь. Конкретная рассматриваемая строка Set swTable = swDrawing.InsertTableAnnotation2(True, 0, 0, swBOMConfigurationAnchor_TopLeft, MATABLE, 2, 1)
Полный код выглядит следующим образом;
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDrawing As SldWorks.DrawingDoc
Dim swTable As SldWorks.TableAnnotation
Const MATABLE As String = "C:\STANDARD Tables\sampleTable.sldtbt"
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If (swModel Is Nothing) Or (swModel.GetType <> swDocDRAWING) Then
swApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")
Exit Sub
End If
Set swDrawing = swModel
Set swTable = swDrawing.InsertTableAnnotation2(True, 0, 0, swBOMConfigurationAnchor_TopLeft, MATABLE, 2, 1)
If Not swTable Is Nothing Then
swTable.BorderLineWeight = 0
swTable.GridLineWeight = 0
End If
End Sub
Спасибо.
