Свойства (длина и ширина граничной рамки) сварного элемента записываются в свойства детали: Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim config As SldWorks.Configuration Dim swFeat As SldWorks.Feature Dim swCustPropMgr As SldWorks.CustomPropertyManager Dim strValue(3) As String Dim swBodyFolder As SldWorks.BodyFolder Dim WasResolved As Boolea
    • Нравится
    3