---

Unbenannt.png

Hallo,

weiß zufällig jemand wie man die 2te Bemaßung in einer Skizze via VBA lesen/schreiben kann? Habe ich auf dem angehängten Screenshot rot markiert.

Das Maß, etc. geht, aber der Text?

Andreas.

Sub Test()
  Dim swApp As SldWorks.SldWorks
  'Dim swModel As SldWorks.PartDoc
  Dim swFeat As SldWorks.Feature
  Dim swDispDim As SldWorks.DisplayDimension
  Dim swDim As SldWorks.Dimension
  Dim i As Long

  Set swApp = Application.SldWorks
  Set swModel = swApp.ActiveDoc
  Set swFeat = swModel.GetActiveSketch2
 
  Set swDispDim = swFeat.GetFirstDisplayDimension
  Do While Not swDispDim Is Nothing
    Set swDim = swDispDim.GetDimension
    Debug.Print swDim.FullName, swDim.Value
    For i = 0 To 8
      Debug.Print i, swDispDim.GetText(i)
    Next
    'swDispDim.SetText x, "Whatever"
    Set swDispDim = swFeat.GetNextDisplayDimension(swDispDim)
  Loop
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas

Was du suchst sind die IDisplayDimension::GetLower Text Method () und die IDisplayDimension::SetLower Text Method ().

Ein Beispiel findest du hier -> Get Chamfer Display Dimension Example (VBA)

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas, 

ich danke Dir vielmals.

Andreas.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP