---

Hallo Forum,

Wir haben für ACAD Mechanical2000 Lisp-Routinen geschrieben die uns unsere Zeichnungen entsprechend der Limiten ausdrucken,
das funktioniert, solange niemand mit dem Orbit die Zeichnung bewegt.
Anschliessend wird der Ausdruck dann um die halbe Breite nach rechts, und um die halbe Höhe nach oben verschoben. Irgendwie scheint ACAD den Wert für Limmax jetzt als Zentrum zu interpretieren. Ich kann aber keine Werte erkennen die sich geändert haben.
Kennt jemand dieses Problem ?
Oder besser : Kennt jemand eine Lösung dafür ?

Gruß Rigo

------------------
   

[Diese Nachricht wurde von Rigobert am 31. Juli 2003 editiert.]

[Diese Nachricht wurde von Rigobert am 31. Juli 2003 editiert.]

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

---

Plot_doktor.zip

Hallo Forum,

habŽs dann doch selber gefunden.
Scheint so, als ob die Target-Eigenschaft durch den Orbit-Befehl verändert wird. Die Systemvariable ist aber leider schreibgeschützt.
Deshalb anbei ein Programm welches den Wert wieder auf 0,0,0 setzt.
Vielleicht kannŽs ja mal wer gebrauchen...

Schönen Tag noch.....

Gruß Rigo

------------------

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

---

Plot_Doktor.zip

Hallo miteinander,

anscheinend funktioniert der Link nicht mehr,
da aber noch Bedarf besteht stell ich ihn mal neu rein.

Es soll ja noch Leute geben die sich manchmal mit älteren Zeichnungen rumschlagen müssen.

Frohes Schaffen noch ....

------------------

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

---

hier noch der VB Code:

Sub Main()
Dim ACAD As AcadApplication  ' Autocad Anwendung
Dim activedoc As AcadDocument
Dim viewportObj As AcadViewport
Dim newTarget(0 To 2) As Double
Set ACAD = GetObject(, "AutoCAD.Application")
Set activedoc = ACAD.ActiveDocument
Set viewportObj = activedoc.ActiveViewport
newTarget(0) = 0#: newTarget(1) = 0#: newTarget(2) = 0
viewportObj.Target = newTarget
activedoc.ActiveViewport = viewportObj
activedoc.SendCommand "_preview" & vbCr
 
End Sub

Gruß Andreas

------------------

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