---

hallo.
ist es möglich, sich im modellbereich alle "benannte ansichten" anzeigen zu lassen, also nicht einzeln, sondern z.b. nach "zoom grenzen" das ich sehe, wo jede benannte ansicht liegt.

mfg
anthu

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

---

ja, das ist machbar ... folgendes Lisp bietet dafür ein Grundgerüst:

(defun c:RECTANG-VIEW(/ ITEM M H W)
  (setvar "ctab" "model")
  (vlax-for ITEM(vla-get-viewports(vla-get-activedocument(vlax-get-acad-object)))
    (if (/=(strcase(vla-get-name ITEM))"*ACTIVE")
      (progn
        (setq M (vlax-safearray->list(vlax-variant-value(vla-get-center ITEM))))
        (setq H (vla-get-height ITEM))
        (setq W (vla-get-width ITEM))     
        (vl-cmdf "_.rectang"
                (list (-(car M)(/ W 2.0)) (-(cadr M)(/ H 2.0)) 0.0)
                (list (+(car M)(/ W 2.0)) (+(cadr M)(/ H 2.0)) 0.0)
        )       
      )       
    )
  )
)

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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