Переделанный макрос для определения и занесения в свойства формата листа. Спасибо Kir95 за помощь ссылками на нужные моменты.   Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDraw As SldWorks.DrawingDoc Dim swView As SldWorks.View Dim swSheet As SldWorks.Sheet Dim swRefModel As SldWorks.ModelDoc2 Dim swCustProp As CustomPropertyManager Dim swConfig As SldWorks.Configuration Dim viewConfigName As String Dim swSelMgr As SldWorks.SelectionMgr Dim vS
    • Нравится
    3