---

Wie kann ich am schnellsten eine Radiale Bemaassung
mittels VBA an einem Bogen anbringen?

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

---

Schau mal in der AutoCad-Entwicklerhilfe
  ?
  |__Entwicklerhilfe
            |____Inhalt
                    |___ActiveX and VBAReference
                            |___Code Examples

da findest Du unter AddDim....  diverse Beispiele...z.B.:

Sub Example_AddDimRadial()
    ' This example creates a radial dimension in model space.
   
    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
   
    ' Define the dimension
    center(0) = 0#: center(1) = 0#: center(2) = 0#
    chordPoint(0) = 5#: chordPoint(1) = 5#: chordPoint(2) = 0#
    leaderLen = 5
   
    ' Create the radial dimension in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
    ZoomAll
End Sub

------------------

Bernd

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