---

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

---

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

---

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