| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Limiten einstellen mittels VBA (1115 mal gelesen)
|
GüSo Mitglied Elektrotechniker
Beiträge: 138 Registriert: 22.01.2009 Windows 7 Professional SP1, AutoCAD 2011, Office 2013 Windows 10, Office2019
|
erstellt am: 12. Okt. 2014 16:33 <-- editieren / zitieren --> Unities abgeben:
Hallo allerseits! Ich habe wiedermal ein kleines Problemchen. Wie kann ich mittel VBA-Code in einer Zeichnung im Modelbereich die Limiten einstellen? Das Ganze steht vor dem Hintergrund des automatischen Druckens mehrerer A4-Seiten, die sich in ein und demselben AutoCAD-Dokument befinden. ... ... Dim Zeichnung as AcadDocument Dim Grenzen as Variant ... ... Mit der folgenden Zeile erhalte ich am Ende in der Variable Grenzen die Koordinaten des eingestellten Bereiches. Grenzen = Zeichnung.limits Wie kann ich nun aber die Limiten in die Zeichnung schreiben? Hierüber bin ich heute abgebrochen. Ich dächte, daß ich das schon früher mal gemacht habe. Aber ich findes es nicht. Black out. Kann mir da jemand einen Tipp geben? Gruß Günter
------------------ MfG Günter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil Inventor AIP 4-11, 2008 -2022 Win 10
|
erstellt am: 12. Okt. 2014 18:04 <-- editieren / zitieren --> Unities abgeben: Nur für GüSo
Geholfen hätte sicher erst mal das hier: Ansonsten: Code: Dim LimPts(3) As Double LimPts = ThisDrawing.Limits LimPts(0) = 0 : LimPts(1) = 0 LimPts(2) = 210 : LimPts(3) = 297 ThisDrawing.Limits = LimPts
------------------ Mit freundlichem Gruß
Udo Hübner www.CAD-Huebner.de [Diese Nachricht wurde von CAD-Huebner am 12. Okt. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
GüSo Mitglied Elektrotechniker
Beiträge: 138 Registriert: 22.01.2009 Windows 7 Professional SP1, AutoCAD 2011, Office 2013 Windows 10, Office2019
|
erstellt am: 13. Okt. 2014 17:30 <-- editieren / zitieren --> Unities abgeben:
Hallo Udo, danke für Deine schnelle Antwort. Die war in beiderlei Hinsicht gut. Auf die Idee zu einem Befehl zu googeln wäre ich nicht gekommen. Aber manchmal ist man eben wie vernagelt. Der springende Punkt ist der, daß ich die Eckpunktkoordinaten in 2 Variablen übergeben wollte und nicht in einerm Feld mit 4 Elementen. Danke Günter ------------------ MfG Günter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|