---

fuehrung.jpg

Hallo.

Ich habe Probleme mit der Führungslinie. Wenn ich folgenden Code schreibe, dann ergibt sich eine Führungslinie wie in der Grafik angezeigt.

Code:

---

            KOORDINATE_X = (RADIUS + 100) / 1.41
            KOORDINATE_Y = (RADIUS + 100) / 1.41
       
            'POSITION MTEXT
            INSERTATION_POINT(0) = 0 - KOORDINATE_X - 1000 + BasisPunkt(0)
            INSERTATION_POINT(1) = KOORDINATE_Y + 200 + BasisPunkt(1)
            INSERTATION_POINT(2) = 0
           
            'SPITZE PFEIL
            points(0) = 0 - KOORDINATE_X + BasisPunkt(0)
            points(1) = KOORDINATE_Y + BasisPunkt(1)
            points(2) = 0
           
            points(3) = 0 - KOORDINATE_X - 100 + BasisPunkt(0)
            points(4) = KOORDINATE_Y + 100 + BasisPunkt(1)
            points(5) = 0
           
        Set MTEXT = ThisDrawing.ModelSpace.AddMText(INSERTATION_POINT, 850, "")
            MTEXT.Layer = 6
            MTEXT.height = 3.5 * 20
            MTEXT.AttachmentPoint = acAttachmentPointBottomRight
        Set annotationObject = MTEXT
        Set LEADER = ThisDrawing.ModelSpace.AddLeader(points, annotationObject, acLineWithArrow)
            LEADER.ScaleFactor = 20
            MTEXT.textString = BEZ_NOT

---

Zur Info: Basispunkt beim Ausführen des Makros ist das Zentrum der Kreise.

Interessant: manchaml macht er die Führungslinie korrekt und erzeugt eine waagerechte Linie und manchmal erzeugt er mir diesen Murks. Manchmal macht er auch nur ein kurzes Stück der Fühungslinie (also bis zu 1050 weiter nicht.

ich habe wohlgemerkt mehrere Führungslinien im Makro eingebaut die deren Koordinaten leichter zu errechnen sind. Aber auch hier hab ich nur ganz selten den Erfolg, dass ALLE Führungslinien waagerecht angezeigt werden.

Was mache ich da falsch? Kann mir jemand helfen?

[Diese Nachricht wurde von The VIP am 11. Nov. 2004 editiert.]

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

---

hat keiner einen Rat?
wie sehen Führungslinien bei euch aus?
sind die sauber?

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

---

Ich hab folgendes ausprobiert, hat ohne Probleme funktioniert.

Code:

---

Sub Example_AddLeader()
    ' This example creates a leader in model space.
    ' The leader is not attached to any annotation object
    ' in this example.
 
    Dim leaderObj As AcadLeader
    Dim points(0 To 5) As Double
    Dim leaderType As Integer
    Dim annotationObject As AcadObject
   
    points(0) = 0: points(1) = 0: points(2) = 0
    points(3) = 4: points(4) = 4: points(5) = 0
    leaderType = acLineWithArrow
    'Set annotationObject = Nothing
    Dim MText As AcadMText
    Set MText = ThisDrawing.ModelSpace.AddMText(Point3D(6, 6), 850, "Test")
    MText.Height = 3.5 * 20
    MText.AttachmentPoint = acAttachmentPointBottomRight
    Set annotationObject = MText
    ' Create the leader object in model space
    Set leaderObj = ThisDrawing.ModelSpace.AddLeader(points, annotationObject, leaderType)
    ZoomAll
   
End Sub

---

------------------
Roland

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