---

Sub Main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swCustPropMgr As SldWorks.CustomPropertyManager
    Dim massValue As String
    Dim resolvedValue As String
    Dim newMassText As String

    ' 1. Получаем текущую модель
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        MsgBox "Откройте документ SolidWorks."
        Exit Sub
    End If
    
    ' 2. Получаем менеджер свойств через Extension
    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
    
    If swCustPropMgr Is Nothing Then
        MsgBox "Не удалось получить доступ к свойствам."
        Exit Sub
    End If
    
    ' 3. Читаем свойство массы
    swCustPropMgr.Get2 "Масса", massValue, resolvedValue
    
    If resolvedValue = "" Then
        MsgBox "Свойство SW-Mass не найдено или пусто."
        Exit Sub
    End If
    
    ' 4. Заменяем точку на запятую
    newMassText = Replace(resolvedValue, ".", ",")
    
    ' 5. Записываем результат в новое свойство
    swCustPropMgr.Add3 "Масса", 30, newMassText, 1
    
    MsgBox "Готово! Масса обновлена, теперь она равна: " & newMassText & " кг"
    
    ' 6. Обновляем модель
    swModel.ForceRebuild3 False
End Sub