---

Hallo

ich würde in Lisp den druckbaren Bereich einer Seite (also die gestrichelte Linie) in einer Variablen benötigen - mit (getvar "limmin") und (getvar "limmax") krieg ich nur die Eckpunkte der angezeigten Seite, würde aber die Eckpunkte der gestrichelten Linie benötigen.
Weiß jemand Rat??

danke

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

---

Die besagten Linien gibts doch nicht.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Hi,

ich denke, das bekommst Du mit
(vla-GetPaperMargins(vla-get-activelayout(vla-get-activedocument (vlax-get-acad-object)))'lu 'ro)
in die Variablen lu und ro.

Gruß
CADchup

------------------
www.cadditions.de

[Diese Nachricht wurde von CADchup am 10. Mrz. 2005 editiert.]

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

---

Hi,
über ActiveX läßt sich das relativ einfach realisieren...
Du benötigst ein paar Methoden und Eigenschaften des aktiven Layouts
und kannst Dir daraus den "druckbaren Bereich" rechnen...
Wichtig sind hier die Methoden:
getPaperSize -> Gibt die Blattgröße zurück
getPaperMargins -> Gibt die Randabstände zurück

und die Eigenschaften:
'PLOTORIGIN -> Gibt den Plotursprung zurück
'PlotRotation -> Gibt die Blattdrehung zurück

Je nachdem wie das Blatt nun gedreht ist und der Plotursprung liegt kann man nun genau die Layout-Koordinaten des Blattes und des druckbaren Bereichs rechnen.

Die Blattränder werden IMMER für die Normallage zurückgegeben, unabhängig von der Plotrotation...
Und zwar jeweils als zwei Verschiebevektoren:
UntenLinks->Rechtswert,Hochwert vom Blattrand zum Rand des druckbaren Bereichs
ObenRechts->Rechtswert,Hochwert vom Rand des druckbaren Bereichs zum Blattrand
Für ein DesignJet500 wäre das z.B.:
'((3.75708 15.3564) (4.60374 5.02707))

Unbedingt bei der Blattrandberechnung bzgl. der PlotRotation beachten:
Die Drehung erfolgt gegen den Uhrzeigersinn und der Punkt UntenLinks wandert!
0=ac0degrees=HochFormat
1=ac90degrees=Querformat
2=ac180degrees=Hochformat auf dem Kopf
3=ac270degrees=Querformat auf dem Kopf

Das heißt dann für die Berechnung beim
Punkt UL nach einer Drehung um 90°:
Der Rechtswert von UntenLinks wird zum Hochwert UntenLinks
und der Hochwert ObenRechts wird zum Rechtswert UntenLink

(analog dazu der andere Punkt und entsprechend bei weiterer Drehung...)

Ein Hinweis aus eigener leidvoller Erfahrung.
Übersehe auf gar keinen Fall die Funktion "vla-RefreshPlotDeviceInfo"
Ohne die geht gar nix. Ist aber in der Hilfe auch erwähnt, bitte unbedingt lesen...

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 10. Mrz. 2005 editiert.]

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

---

für alle nicht-Active-x-er: mittels
(vlax-safearray->list lu)
kann man das lu bzw. ru in ne lisp-liste umwandeln

danke für die umfangreichen tipps... hat mir sehr geholfen

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

---

Zum 6,5 jährigen Jubiläum des letzten Beitrags:

Gibt es zur Lösung der Frage inzwischen andere Methoden (was ich aufgrund der Stabilität von Lisp nicht vermute) oder ist alles wie hier empfohlen?

Grüße und schönes Wochenende

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

was willst du denn noch ? Marc hat doch alles beschrieben.

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Der Grund meiner Frage war, dass sich in der Zwischenzeit zwar kaum was bei Lisp, aber doch einiges bei Autocad (neue Versionen) geändert hat.

Wenn jetzt einer sagt "Seit Version XY klappt das nicht mehr, verwende lieber das da ..." - dann ist mir und den anderen Lesern hier geholfen. Und ebenso wenn einer sagt: "Klappt unverändert auch heute noch." Darauf läuft deine Antwort anscheinend hinaus, nicht wahr?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Klappt unverändert auch heute noch.

------------------
Ciao,
Marc
   

[Diese Nachricht wurde von marc.scherer am 11. Nov. 2011 editiert.]

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

---

Zitat:

---

Original erstellt von marc.scherer:
Klappt unverändert auch heute noch.

---

Danke, alles klar.

Und schön, wieder von dir zu hören - du scheinst leider ein etwas seltener Gast geworden zu sein.

Schönes Wochenende an alle

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Zitat:

---

Original erstellt von Peter2:

...du scheinst leider ein etwas seltener Gast geworden zu sein...

---

Ja, leider zu sehr mit internen Dingen beschäftigt. Leider nur extrem wenig Kapazität für cad.de.
Und das bereits seit (grusel) Jahren.

------------------
Ciao,
Marc

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