---

Hi Ho.. Und gleich noch einer.. ;-)

Hat sich jemand schon einmal mit dem Thema „Austausch von Zeichnungsrahmen“ beschäftigt?
(AIS 9)
Ich möchte über Knopfdruck alle vorhandenen Sheets von z.B. A3 auf A2 wechseln (Border, Schriftkopf, Plot-/ Papierbereich).

Mir fehlt zur Zeit leider der erste Ansatz...

Vielen DANK jetzt schon mal und ein schönes WE...

Andreas

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

---

Hallo Andreas,

einen Teil davon findest Du hier .

Jetzt mußt Du vorher nur noch das aktuelle Zeichenblatt anpassen.

------------------
Gruß Lothar

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

---

Hi Lothar....

Erst einmal vielen Dank... Das was ich möchte ist einen vorhandenen Rahmen einfügen / austauschen....

Wenn ich bei einer IDW in den Browser schaue gibt es ein "Verzeichnis" ARBEITSBLATTFORMATE..

Ein doppelklick darauf und ich habe den kompletten Rahmen aufgerufen...

Wie komme ich an diese Formate per Code ran ??? (Denke das der Rest dann nur noch etwas Fleißarbeit ist.. ;-))

*weiter grübel wie das wohl geht*.. ;-)

Gruß

Andreas

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

---

Hallo Andreas,

schau mal da rein, zeichnet einfach 'ne Linie in einen bestehenden Rahmen:

Private Sub editBorder()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument
 
  For i = 1 To oDoc.BorderDefinitions.Count
    Debug.Print oDoc.BorderDefinitions(i).Name
  Next i
 
 
  ' Rahmen 1 editieren
  Dim oSketch As DrawingSketch
  Call oDoc.BorderDefinitions(2).Edit(oSketch)
 
  Dim oPt1 As Point2d
  Set oPt1 = oApp.TransientGeometry.CreatePoint2d(0, 0)

  Dim oPt2 As Point2d
  Set oPt2 = oApp.TransientGeometry.CreatePoint2d(10, 10)

  Dim oLine As SketchLine
  Set oLine = oSketch.SketchLines.AddByTwoPoints(oPt1, oPt2)

  Call oDoc.BorderDefinitions(2).ExitEdit(True)
 
End Sub

Fuer dieses Beispiel brauchst Du einen 2. Rahmen in Deiner Zeichnung - die 'Default Border' kann nicht editiert werden.

Gruesse,

Paul
www.morecam.ch/cad.htm

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

---

Ich denke so gehts ;-)

Public Sub EditSheet()
    ' Get the active document, assuming it's a drawing.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
   
    ' Get the active sheet.
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
   
    ' Change the sheet size, using a predefined size.
' Hier gibt es noch mehr - stehen in der API9
    oSheet.Size = kA4DrawingSheetSize
   
    If oSheet.Size = kA4DrawingSheetSize Then
      oSheet.Orientation = kPortraitPageOrientation
    Else
      oSheet.Orientation = kLandscapePageOrientation
    End If
   
    ' Delete the default border and place a new one.
    oSheet.Border.Delete
    Call oSheet.AddBorder(oDrawDoc.BorderDefinitions.Item("Eigener Rahmenname"))
   
    ' Delete the default title block and place a new one.
    oSheet.TitleBlock.Delete
    Call oSheet.AddTitleBlock(oDrawDoc.TitleBlockDefinitions.Item("Eigener Schriftfeldname"))
   
    Call ThisApplication.CommandManager.StartCommand(kZoomAllCommand)
   
End Sub

------------------
Tata
Rainer

Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt!

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