---

Guten Morgen

Ich suche eine Möglichkeit mit Hilfe eines kleines Makros Textbausteine auf die Zeichnung zu bringen.
Es handelt sich um verschiedene Sprüche ("fehlende Maße dem 3D Model entnehmen" usw.), die ich per Button in einem Formular anklicke. Die Texte stehen dann knapp über dem Schriftfeld.

Da ich in der Makroerstellung noch unerfahren bin, habe ich mir das Setzen eines Bezugshinweises aufgezeichnet. Diesen Code dann auf CommandButton1 gelegt. Alles kopiert und modifizert und die Positionen eingestellt. Jetzt habe ich 6 Begriffe, die ich per Mausklick gleich an eine bestimmte absolute Pos. bekomme.

Jetzt mein Problem: Wie kann ich das Format des Blattes auslesen?

Ich möchte eine IF funktion einbauen, welche sagt:

Wenn A4 setze Text an 0.06,0.095,0
Wenn A3 setze Text an 0.1,0.095,0
usw.

Dies würde ich in jedem CommandButton zwischenschreiben.

Vielleicht gibts auch bessere Lösungen für das Problem.

THX for Help

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

---

Sub main()

    Dim swApp                  As Object
    Dim swModel                As Object
    Dim swDraw                  As Object
    Dim swSelMgr                As Object
    Dim swView                  As Object
    Dim bRet                    As Boolean

'### Linien Endpunkte
Dim x1, y1, x2, y2 As Double

Dim vSheetSize As Variant
Dim SheetSize As Double
Dim SheetWidth As Double
Dim SheetHeight As Double
Dim SchfeldHeight, SchfeldWidth As Double
Dim XPoint, YPoint As Double

Dim name, text(1 To 12), beschreibung(1 To 12) As String
Dim anzahl, i, z, r As Integer

anzahl = 0

'### Größe des Schriftfeldes
SchfeldHeight = 0.06
SchfeldWidth = 0.19

Set swApp = Application.SldWorks
swApp.Visible = True

'### Hole Actives Dokument
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
   
   
If (swModel.GetType <> swDocDRAWING) Then
   
    swApp.SendMsgToUser ("Nur bei Zeichnungen anwendbar ...")
    Exit Sub

End If

'### Einlesen der Sheetgröße

Set swDraw = swModel
Set Sheet = swDraw.GetCurrentSheet

vSheetSize = Sheet.GetProperties
SheetSize = vSheetSize(0)
SheetWidth = vSheetSize(5)
SheetHeight = vSheetSize(6)

'### Erzeugung von Linien !!

swDraw.SetAddToDB (True)

'### Berechnung des Startpunktes
XPoint = SheetWidth - SchfeldWidth
YPoint = SchfeldHeight

------------------
Dirk

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

---

Zitat:

---

Original erstellt von Walter Sobchak:
...Vielleicht gibts auch bessere Lösungen für das Problem....

---

Ob für dich besser, das kann ich nicht sagen! Aber hast du schon die Möglichkeit in Betracht gezogen, mit Favoriten zu arbeiten? Du erstellst einmal den Text (oder das Zeichen) und speicherst es dir dann als Favorit (Stil) ab. Beim nächsten mal brauchst du nur den benötigten Stil aus den Favoriten zu ziehen und schon hast du den kompletten Text, so kompliziert er auch sein möge, auf deiner Zeichnung. Du brauchst in dann nur noch auszurichten, wo du ihn hinhaben willst. Geht schneller, als wenn du ständig deine Makros umschreiben willst.

Aber zugegeben: Die Sache per Makro zu erschlagen ist natürlich sehr elegant!

------------------
Viele Grüße, THSEFA 

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

---

Hallo,

ist zwar nur ein Griff ins Blaue aber was ist wenn man beide Arbeiten verbindet.
Also erst die Favoriten erstellen und dann per Macro darauf zugreifen.
Ob und wie das geht, überlasse ich mal den Spezialisten hier! 

Gruß
Andreas

------------------
  Ich nutze alte Boardsuche | Google | Netiquette | Wie stellt man Fragen richtig? | Systeminfo

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