Ich denke, dass die am vorherigen Link vorgenommene Änderung Ihren Bedürfnissen entsprechen könnte
"Dieses Beispiel zeigt, wie man die Werte der Bemaßungen in einer Zeichnung erhält.
'---------------------------------------------------------------------------
(') Voraussetzungen:
' 1. Öffnen Sie ein Zeichnungsdokument.
' 2. Öffnen Sie das Direktfenster.
'
' Postconditions: Überprüfen Sie das Direktfenster.
'---------------------------------------------------------------------------
Option Explizit
Sub main()
Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swDispDim As SldWorks.DisplayDimension
Dim swDim As SldWorks.Dimension
Dim swAnn As SldWorks.Annotation
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim boolstatus als boolescher Wert
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Festlegen von swDraw = swModel
'Debug.Print "Datei = " & swModel.GetPathName
Legen Sie swView = swDraw.GetFirstView fest
Do While Not swView ist nichts
'Debug.Print' Ansicht = ' & swView.Name
Legen Sie swDispDim = swView.GetFirstDisplayDimension5 fest
Do While Not swDispDim ist nichts
Set swAnn = swDispDim.GetAnnotation
Festlegen von swDim = swDispDim.GetDimension
Debug.Print " DimFullName = " & swDim.FullName
Debug.Print " Wert = " & swDim.GetSystemValue2("")
Debug.Print " CalloutBelow = " & swDispDim.GetText(swDimensionTextCalloutBelow)
Legen Sie swModelDocExt = swModel.Extension fest
boolstatus = swModel.Extension.SelectByID2(swDim.FullName, "DIMENSION", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = swModelDocExt.EditDimensionProperties(0, 0, 0, "", "", True, 9, 2, True, 1, 1, "", "", True, "", "Zu ersetzender Text", "", True, swThisConfiguration, "")
swModel.ClearSelection2 Wahr
Set swDispDim = swDispDim.GetNext3
Schleife
Legen Sie swView = swView.GetNextView fest
Schleife
Ende Sub
Es liegt an Ihnen, Bedingungen zu setzen, um den entsprechenden Text zu setzen