Solidworks API propertymanager

[Анатолий722 0]

День добрый.

Не могу отредактировать параметры сварного шва 

Я так понимаю что не работает из за адреса на англ. язык.

 Debug.Print "Weld Bead1 settings: "
 Debug.Print "   Weld bead size: " & swCosmeticWeldBeadFeatureData.BeadSize * 39.37 & " in" 

Как отредактировать чтобы это все работало? Или я вообще нашел что-то левое?
Может кто-нибудь что-то посоветовать?
 

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swFeatureManager As SldWorks.FeatureManager
Dim swCosmeticWeldBeadFeatureData As SldWorks.CosmeticWeldBeadFeatureData
Dim swWeldFolder As SldWorks.CosmeticWeldBeadFolder
Dim swSelectionMgr As SldWorks.SelectionMgr
Dim swFeature As SldWorks.Feature
Dim edges As Variant
Dim status As Boolean
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    
    status = swModelDocExt.SelectByID2("Сварной шов1", "COSMETIC_WELD", 0, 0, 0, False, 0, Nothing, 0)
    Set swSelectionMgr = swModel.SelectionManager
    Set swFeature = swSelectionMgr.GetSelectedObject6(1, 0)
    Set swCosmeticWeldBeadFeatureData = swFeature.GetDefinition
    swCosmeticWeldBeadFeatureData.AccessSelections swModel, Nothing
    Debug.Print "Weld Bead1 settings: "
    Debug.Print "   Weld bead size: " & swCosmeticWeldBeadFeatureData.BeadSize * 39.37 & " in"
    Debug.Print "   Tangent propagation? " & swCosmeticWeldBeadFeatureData.TangentPropagation
    Debug.Print "   Weld sides as defined in swCosmeticWeldBeadSide_e (1 = swCosmeticWeldBeadSide_selection): " & swCosmeticWeldBeadFeatureData.Side
    Debug.Print "   From/to length properties enabled? " & swCosmeticWeldBeadFeatureData.FromToLength

    status = swFeature.ModifyDefinition(swCosmeticWeldBeadFeatureData, swModel, Nothing)
End Sub

 

[Sturmann 30]

Вам нужно поискать методы библиотеках которые содержат radius  в названии . Ну или велком в справку. Уверен там вся документация есть.