---

Hallo,

wie kann ich ein Ansichtsfenster im Layout in den Modellbereich übertragen?
So das ich eine Polylinie oder Rechteck dann im Modellbereich habe.

-Danke-

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

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

---

zuerst das Ansichtsfenster als Polylinie (z.B. per Befehl: -um) erstellen; dann klappts auch mit dem Befehl: chspace

------------------
Grüße Karin

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

---

... guggst Du hier ...

------------------
lg, der Hausmeister
_______________________________________

46 + 1 = ein Lächeln

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

---

Zitat:

---

Original erstellt von alterHausmeister:
... guggst Du hier ...

---

danke alterHausmeister - geht leider net

Code:

---

Befehl: VP-OUTLINE
; Fehler: Fehlerhafte Zeichenfolge für ssget-Modus
Befehl:
Befehl: *Abbruch*
Befehl: *Abbruch*

---

@Karin
so geht es - nur eine 1-Klick-Lösung wäre auf Dauer komfortabler.

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

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

---

so funktioniert das LISP:

Code:

---

;;; vp-outline.lsp
;;;
;;; Creates a polyline in modelspace that
;;; has the outline of the selected viewport.
;;; Supports clipped viewports. polyline is supported
;;; ellipse, spline, region and circle not supported at this point
;;; If vp-outline is called when in mspace it detects
;;; the active viewport.
;;;
;;; c:vp-outline
;;;
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2008 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;; 2000-04-10
;;; 2003-11-19 Added support for drawing the outline in other ucs/view than world/current
;;;
;;; 2006-04-06 Added support for twisted views Tom Beauford
;;;
;;; Tested on AutoCAD 2000, 2000i, 2002, 2004, 2006, 2007, 2008, 2009
(vl-load-com)

(defun dxf (n ed) (cdr (assoc n ed)))

(defun ax:List->VariantArray (lst)
  (vlax-Make-Variant
    (vlax-SafeArray-Fill
      (vlax-Make-SafeArray
        vlax-vbDouble
        (cons 0 (- (length lst) 1))
      )
      lst
    )
  )
)

(defun c:vp-outline (/ ad ss ent pl plist xy n vpbl vpur msbl msur ven vpno ok)
  (setq ad (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (getvar "tilemode") 0)
    (progn
      (if (= (getvar "cvport") 1)
        (progn
          (if (setq ss (ssget "X" '((0 . "VIEWPORT"))))
            (progn
              (setq ent (ssname ss 0))
              (setq vpno (dxf 69 (entget ent)))
              (vla-Display (vlax-ename->vla-object ent) :vlax-true)
              (vla-put-mspace ad :vlax-true) ; equal (command "._mspace")
              ; this to ensure trans later is working on correct viewport
              (setvar "cvport" vpno)
;              (vla-put-mspace ad :vlax-false) ; equal (command "._pspace")
              (setq ok T)
            )
          )
        )
        (setq ent (vlax-vla-object->ename (vla-get-activepviewport ad))
              ok  T
        )
      )
      (if ok
        (progn
          (setq ven (vlax-ename->vla-object ent))
          (if (/= 1 (logand 1 (dxf 90 (entget ent)))) ; detect perspective
            (if (= (vla-get-clipped ven) :vlax-false)
              (progn                ; not clipped
                (vla-getboundingbox ven 'vpbl 'vpur)
                  (setq vpbl  (trans (vlax-safearray->list vpbl) 3 2)
                        msbl  (trans vpbl 2 1)
                        msbl  (trans msbl 1 0)
                        vpur  (trans (vlax-safearray->list vpur) 3 2)
                        msur  (trans vpur 2 1)
                        msur  (trans msur 1 0)
                        vpbr (list (car vpur) (cadr vpbl)0)
                        msbr  (trans vpbr 2 1)
                        msbr  (trans msbr 1 0)
                        vpul (list (car vpbl) (cadr vpur)0)
                        msul  (trans vpul 2 1)
                        msul  (trans msul 1 0)
                        plist (list (car msbl) (cadr msbl)
                                            (car msbr) (cadr msbr)
                                            (car msur) (cadr msur)
                                            (car msul) (cadr msul)
                                    )
                    )
              )
              (progn                ; clipped
                (setq pl    (entget (dxf 340 (entget ent)))
                      plist (vla-get-coordinates
                              (vlax-ename->vla-object (dxf -1 pl))
                            )
                      plist (vlax-safearray->list (vlax-variant-value plist))
                      n    0
                      pl    nil
                )
                (repeat (/ (length plist) 2)
                  (setq xy (trans (list (nth n plist) (nth (1+ n) plist)) 3 2)
                        xy  (trans xy 2 1)
                        xy  (trans xy 1 0)
                        pl (cons (car xy) pl)
                        pl (cons (cadr xy) pl)
                        n  (+ n 2)
                  )
                )
                (setq plist (reverse pl))
              )
            )
          )
          (setq plist (ax:List->VariantArray plist))
          (vla-Put-Closed
            (vla-AddLightWeightPolyline
              (vla-get-ModelSpace ad)
              plist
            )
            :vlax-True
          )
        )
      )
    )
  )
  (if ss(vla-put-mspace ad :vlax-false)) ; equal (command "._pspace"))
  (princ)
)

---

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

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

---

Hallo XEM,

wozu braucht man sowas?

Gruß Symantec

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

---

Hi,

@xem
nein, so geht's nicht. Im Header steht
  

Zitat:

---

...the outline of the selected viewport...

---

was bedeutet, dass das Tool ein ausgewähltes Viewport bearbeitet.

Du hast den Originalcode jetzt so geändert, dass mit (ssget "x" ...) alle Viewports im Auswahlsatz landen, aber nicht berücksichtigt, dass später nur das erste Objekt im Auswahlsatz bearbeitet wird (ssname ss 0). BTW: Kommentiere und/oder markiere Code-Änderung! Und um Urheberrechtsdiskussionen zu entgehen, genügt es, nur die modifizierten Codezeilen zu posten, da der Link zum Tool ja schon da war.

Wer mehr als ein Ansichtsfenster im Layout hat, ist mit dem Code also aufgeschmissen.

Dass der Originalcode nicht läuft, hat mal wieder mit der Lokalisierung von AutoCAD zu tun. Wie bei (command - Aufrufen, muss ssget-Methoden ein Unterstrich vorangestellt werden (wobei "X" die Ausnahme ist). Und bei Kombinationen von Methoden lustigerweise nur einmal.
Aus dem Original (ssget ":E:S" '((0 . "VIEWPORT"))) wird also (ssget "_:E:S" '((0 . "VIEWPORT"))) und schon läuft das Tool in allen Sprachversionen.

Gruß
CADchup

------------------
CADmaro.de

[Diese Nachricht wurde von CADchup am 07. Sep. 2011 editiert.]

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

---

Danke CADchup!

@symantec
um bei Planausschnitten im Modellbereich zu wissen wie groß das Ansichtsfenster im Layout ist. Damit Beschriftungen etc. auch mit drauf sind und man nicht immer ins Layout wechseln muß oder im Ansichtsfenster alles verschieben.

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

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

---

Hallo,
Bin gerade auf dieses Thema gestoßen. Gibt's es bereits ein Lisp welches alle AF in den Modellbereich überträgt? wäre sehr hilfreich.
Besten Dank

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

---

Hi,

ja. Gab es IMHO im AutoCAD Magazin 2011-8. Hieß acmPAFinsModell.lsp

Gruß
CADchup

------------------
CADmaro.de

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

---

ok, klingt ja schon mal nicht schlecht, danke.
noch die blöde Frage: wo bekomm ich das her? wir haben das Magazin leider nicht abonniert...
beste Grüße

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

---

Schreib die Redaktion einfach mal an. Möglicherweise stellen sie dir das Programm auch ohne Abo zur Verfügung.

http://www.autocad-magazin.de/kontakt

------------------
CADmaro.de

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

---

Besten Dank

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

---

Zitat:

---

Hallo,
Bin gerade auf dieses Thema gestoßen. Gibt's es bereits ein Lisp welches alle AF in den Modellbereich überträgt? wäre sehr hilfreich.
Besten Dank

---

Hier gibt es jetzt sowas:
http://www.lee-mac.com/vpoutline.html

Die Polylinie die erzeugt wird, wird auf dem aktuellen Layer eingefügt.
Wenn man also die Polylinie auf dem Layer z.B. A-FENSTER haben möchte erst den Layer erstellen und aktuell stellen.
_.-LAYER _Make A-FENSTER _Plot _No A-FENSTER

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

---

Hallo Manuel486

Super Tool. Hatte dies bisher mit Polylinie auf Ansichtsfenster und Bereich wechseln gelöst. Erspart einiges.

------------------
Ciao Günter
--------------------------------------------------------------------------------
"Wir haben keine Probleme zu lösen, sondern Aufgaben."

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

---

pafim.jpg

acmPAFinsModell.lsp läuft auch in 2021.
-----
Befehl: PAFIM
<A>lle Ansichtsfenster oder <W>ählen [Alle/Wählen]? <Alle>:
-----
Ich hatte es m.W. auf Anfrage vom AutoCAD Magazin erhalten.

>> Darf ich es weitergeben?

PS. Bis 2019 gabs Modell2Layout von Syscad. Ein tolles Tool für die Erstellung mehrerer ausgerichteter Ansichtsfenster incl. der "Rückprojektion" in den Modellbereich.

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Zitat:

---

Ich hatte es m.W. auf Anfrage vom AutoCAD Magazin erhalten.

>> Darf ich es weitergeben?

---

Wenn Dir das ACM dieses Recht nicht explizit eingeräumt hat: Nein.

Nichtmal cadmaro dürfte das, die Rechte liegen mit Übergabe des codes beim ACM. Deshalb wurde von CADchup oben auch auf die Redaktion verwiesen.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Danke für die Info.

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

---

Das geht auch mit dem AutoCAD Standardbefehl "berwechs" in beide Richtungen.

------------------
Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.

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

---

Hmm,
Rechteck im MBereich wird zu AFenster im Layout und AFenster im Layout wird im MBereich zu einem Rechteck?

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