| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Autodesk AutoCAD P&ID - Online, ein Seminar am 02.06.2025
|
Autor
|
Thema: Formatänderung Zeichnungsblatt (1232 / mal gelesen)
|
felixspitzer Mitglied
Beiträge: 8 Registriert: 11.01.2021
|
erstellt am: 26. Jan. 2021 14:43 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen! Gibt es eine Möglichkeit, die Richtung, in welche sich das Zeichnungsblatt bei einer Formatänderung vergrößert, zu bestimmen? Sprich, wo ist festgelegt, in welche Richtung das Blatt größer wird?
Konkret möchte ich damit erreichen, dass der Schriftkopf und die darauf gepinnten Anmerkungen ihre Position beibehalten. Der Schriftkopf sollte quasi mit der rechten unteren Ecke im Ursprung liegen. Siehe angehängtes Bild. Ich freue mich auf eure Anregungen!
Gruß Felix Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
himmelblau Mitglied
Beiträge: 532 Registriert: 11.11.2004
|
erstellt am: 26. Jan. 2021 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für felixspitzer
Der fixpunkt vom blatt is immer die Ecke unten links - das blatt wird also immer rechts oben gößer/kleiner- das kann man auch nich ändern. Wo das schriftfeld an den rahmen andockt wird in der blattdefinition festgelegt - default ausgehend von der maximalen ausdehnung von rahmen und schriftfeld - über einfüge- und verbindungspunkte kann das angepasst werden. Das schriftfeld läuft dann mit dem rahmen mit. Anmerkungen so an den rahmen andocken, dasse mitlaufen geht nich. ------------------ himmelblau
[Diese Nachricht wurde von himmelblau am 26. Jan. 2021 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
felixspitzer Mitglied
Beiträge: 8 Registriert: 11.01.2021
|
erstellt am: 28. Jan. 2021 15:09 <-- editieren / zitieren --> Unities abgeben:
Wie du sagst: "Anmerkungen so an den Rahmen andocken, dass sie mitlaufen, geht nicht." Darum wäre es zielführend, wenn der Schriftkopf mit den angedockten Anmerkungen an seiner Position verbleibt und sich das Blatt in die anderen Richtungen hin vergrößert. Mal abwarten, vielleicht kennt jemand eine Möglichkeit. LG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 721 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 28. Jan. 2021 16:20 <-- editieren / zitieren --> Unities abgeben: Nur für felixspitzer
Auch ich kenne da keine Möglichkeit. mE ist das so festgelegt und unveränderbar: Blattursprung ist links unten. Denkbar wäre vielleicht, mit Programmierung da was zu machen. Ein Programm, dass die Änderung der Blattgröße vornimmt. Dabei wird klar, um welches Maß die Elemente verschoben werden müssen. Das Programm könnte dann alle (oder auch nur bestimmte) Elemente um dieses Maß verschieben. Wenn das Problem so dringend ist, dass sich der Aufwand dafür lohnt... ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2630 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 29. Jan. 2021 16:45 <-- editieren / zitieren --> Unities abgeben: Nur für felixspitzer
Hallo Sind die Anmerkungen immer gleich bzw. gibt es nur wenige Varianten? Eine Möglichkleit wäre jeweils ein Schriftfeld mit den Anmerkungen drin erzeugen. Dann wandern die auch immer mit. Alternativ könnte man es mit einem kleinen Makro zumindest vereinfachen. VBA und iLogic kennen kein passendes Event, das ein automatisches Auslösen des Makros ermöglicht. Da wäre dann ein Addin das passende Mittel. Hier mal zum Probieren als VBA-Makro. Code:
Public Sub RePosSymbol()Dim sSymbolName As String sSymbolName = "test" '<-----------------------------------------ANPASSEN!!! Dim oApp As Inventor.Application Set oApp = ThisApplication Dim oDrawDoc As DrawingDocument Set oDrawDoc = oApp.ActiveDocument Dim oSheet As Sheet Set oSheet = oDrawDoc.ActiveSheet Dim oTitleBlock As TitleBlock Set oTitleBlock = oSheet.TitleBlock Dim oTPos As Point2d Set oTPos = oTitleBlock.RangeBox.MaxPoint Dim oSketchedSymbol As SketchedSymbol For Each oSketchedSymbol In oSheet.SketchedSymbols If oSketchedSymbol.Name = sSymbolName Then oSketchedSymbol.Position = oTPos End If Next End Sub
------------------ MfG Ralf
RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
felixspitzer Mitglied
Beiträge: 8 Registriert: 11.01.2021
|
erstellt am: 05. Feb. 2021 06:43 <-- editieren / zitieren --> Unities abgeben:
Es gibt doch einige Varianten. Stimmt, das vernünftigste wäre, das Schriftfeld so anzupassen, dass zumindest die am häufigsten verwendeten Anmerkungen bereits im Schriftfeld enthalten sind. Vielen Dank für deinen Code Ich werde es mal damit versuchen!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |