---

Hallo zusammen,
ich hoffe sehr ihr könnt mir weiter helfen, da ich im gesamten Netz nichts hilfreiches gefunden hab.

Durch das Erstellen dynamischer Blöcke konnten wir schon viele Fehler vermeiden und noch mehr Zeit einsparen, da wir nicht mehr jedes einzelne Bauteil strecken müssen aber auch da hatten wir das Problem mit den Ansichtsfenster schon weswegen ich befürchte, dass es gar keine Lösung gibt.javascript:InsertSMI 

Zum Problem:
Wir haben im Modellbereich viele sehr unterschiedlich große Bauteile und zu fast jedem Bauteil gibt es ein Layout mit mehreren Anschichtsfenstern, die Auschnitte des jeweiligen Bauteils zeigen.
Wenn wir nun die Bauteile ändern müssen alle Layouts kontrolliert werden und in einigen Ansichtsfenstern muss über Befehl "-pan" der Modelbereich verschoben werden.

Gibt es irgendeine Möglichkeit, die Ansichtstfenster in Abhängigkeit der Blöcken oder von Linien zu bringen? 

Liebe Grüße einer verzweifelten

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

---

Hallo,

wir behelfen uns damit, im Layout das Ansichtsfenster ins Modell zu übertragen (Rechteck vorausgesetzt).

Erzeugt eine Polylinie vom Ansichtsfenster im Modellbereich

Code:

---

(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)

(command "_-layer" "se" "Ansichtsfenster" "")

  (setq ad (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (getvar "tilemode") 0)
    (progn
      (if (= (getvar "cvport") 1)
        (progn
          (if (setq ss (ssget "_:E:S" '((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"))

(command "_-layer" "se" "0" "")

  (princ)
)

---

und dann bei Verschiebungen (kein Zoom!) mit dem Code den neuen Bereich schneller im Ansichtsfenster zu fangen.

Zoom das Ansichtsfenster auf das Rechteck.

Code:

---

(defun c:af (/ a b o ss)
  (vl-load-com)
  (if (setq ss (ssget "_+.:E:S" '((0 . "LWPOLYLINE")(-4 . "&=")(70 . 1))))
    (progn
      (setq o (vlax-ename->vla-object (ssname ss 0))
    a (vlax-curve-getpointatparam o 1)
    b (vlax-curve-getpointatparam o 3)
    )
            (vl-cmdf "_.zoom" (trans a 0 1) (trans b 0 1))
    )
  )
  (princ)
)

---

------------------
Error in Layer 8

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

---

Hallo,

alternativ gibt es im AutoCAD App-Store ein Tool "Model2Layout".

Hiermit können Referenzen von Ansichtsfenstern aus dem Papierbereich in den Modellbereich übertragen werden und auf Knopfdruck aktualisiert werden.

https://apps.autodesk.com/ACD/de/Detail/Index?id=2381809151466454998&appLang=de&os=Win32_64

Bei Fragen - bitte fragen.

------------------
Mit freundlichen Grüßen

Wolfgang Gruber
www.syscad.info

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

---

Vielen Dank

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