---

Hallo,

ich möchte auf einer Zeichnung einen einfachen Text mit einem Makro einfügen der den Pfad und den Dateinamen enthält. Das habe ich auch hinbekommen. Jetzt möchte ich nur noch dass der Text rechtsbündig ausgerichtet ist. Dazu kann ich leider nichts finden. Weiß jemand von euch wie das geht?
Vielen Dank.

Sub main()

Dim swApp As Object
Dim swModel As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim TextFormat As SldWorks.TextFormat
Dim Note As Object
Dim Annotation As Object

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
         
    swModel.ActivateSheet ("Blatt1")
     
    Set Note = swModel.InsertNote("<FONT color=0x000000ff> <FONT size=3>$PRP:""SW-Ordnername"" $PRP:""SW-Dateiname"".slddrw")
    If Not Note Is Nothing Then
      Note.Angle = 0
      boolstatus = Note.SetBalloon(0, 0)
      Set Annotation = Note.GetAnnotation()
      If Not Annotation Is Nothing Then
          longstatus = Annotation.SetLeader2(False, 1, True, False, False, False)
          boolstatus = Annotation.SetPosition(0.1, 0.1, 0)
          boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
      End If
    End If
   
    swModel.ClearSelection2 True
    swModel.WindowRedraw
           
End Sub

Gruß
Stephan

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

---

ich habe diesen text direkt in den blattformaten hinterlegt

du könntest diesen text dort einbringen und dann einfach das blattformat neu laden

lg martin

------------------
Bin jetzt auch unter Skype erreichbar  , einfach nach Martin Doppler in Wien suchen.

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

---

Hallo,

das bringt mir leider nichts, weil ich den Text später wieder löschen muss.

Der Hintergrund ist, dass wir Zeichnunen für einen Kunden erstellen und die Infos im Schriftfeld aus der Datenbank bei unserem Kunden kommen. Das heißt bei uns steht einfach gar nichts drin.
Ich hätte nun gerne eine einfache Möglichkeit den Dateinamen schnell und einfach auf die Zeichnung zu bringen und dann wenn alles fertig ist muss ich ihn eben wieder löschen.

Eine andere Möglichkeit wäre natürlich nur beim Ausdrucken den Dateinamen mit aufs Blatt zu drucken, aber dafür habe ich keine Idee.

Gruß
Stephan

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

---

Hallo Stephan

versuchsmal mit

"Note.SetTextJustification swTextJustificationRight"

nach der Zeile "Note.Angle = 0"

------------------
Grüße
Heinz

[Diese Nachricht wurde von nahe am 11. Nov. 2010 editiert.]

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

---

Hallo Heinz,

ja so geht es.

Zitat:

---

Original erstellt von nahe:
versuchsmal mit
"Note.SetTextJustification swTextJustificationRight"

nach der Zeile "Note.Angle = 0"

---

Vielen Dank.

Stephan

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

---

wobei ich sagen muss, ich schreibe jetzt schon bei der x. firma immer den file name zusätzlich rechts unten, unter dem schriftkopf

warum, weil es immer wieder vorkommt, das jemand vergisst den zeichnungstext zu ändern

den pfad konnte man immer über den dateinamen ableiten, aber da muss das nummernsystem auch passen (was nicht jedes mal so war)

lg martin

------------------
Bin jetzt auch unter Skype erreichbar  , einfach nach Martin Doppler in Wien suchen.

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