Myślę, że modyfikacja dokonana na poprzednim linku może odpowiadać Twoim potrzebom
"W tym przykładzie pokazano, jak uzyskać wartości wymiarów na rysunku.
'---------------------------------------------------------------------------
' Warunki wstępne:
' 1. Otwórz dokument rysunku.
' 2. Otwórz okno bezpośrednie.
'
' Warunki końcowe: Sprawdź okno bezpośrednie.
'---------------------------------------------------------------------------
Opcja jawna
Sub main()
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw jako SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swDispDim As SldWorks.DisplayDimension
Dim swDim As SldWorks.Dimension
Dim swAnn As SldWorks.Adnotacja
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim boolstatus As Boolean
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swDraw = swModel
'Debug.Print "Plik = " & swModel.GetPathName
Ustaw swView = swDraw.GetFirstView
Zrób Póki Nie SwView To Nic
Widok 'Debug.Print' = ' & swView.Name
Ustaw swDispDim = swView.GetFirstDisplayDimension5
Rób, póki nie swDispDim to nic
Ustaw swAnn = swDispDim.GetAnnotation
Ustaw swDim = swDispDim.GetDimension
Debug.Print " DimFullName = " & swDim.FullName
Debug.Print " Wartość = " & swDim.GetSystemValue2("")
Debug.Print " CalloutBelow = " & swDispDim.GetText(swDimensionTextCalloutBelow)
Ustaw swModelDocExt = swModel.Extension
boolstatus = swModel.Extension.SelectByID2(swDim.FullName, "DIMENSION", 0, 0, 0, False, 0, Nic, 0)
boolstatus = swModelDocExt.EditDimensionProperties(0, 0, 0, "", "", Prawda, 9, 2, Prawda, 1, "", "", Prawda, "", "Tekst do zastąpienia", "", Prawda, swThisConfiguration, "")
swModel.ClearSelection2 Prawda
Ustaw swDispDim = swDispDim.GetNext3
Pętla
Ustaw swView = swView.GetNextView
Pętla
Koniec subwoofera
Od Ciebie zależy, czy postawisz warunki, aby umieścić odpowiedni tekst