---

Bin hier nicht richtig fündig geworden. Und zwar kann ich mit drsicht immer auf die aktuelle Draufsicht vom BKS stellen, dabei wird aber immer zoom extent angewendet - ich möchte gern den aktuellen Zoomausschnitt beibehalten. Gibt es da einen Trick?

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

---

Hallo,

geht meiner Meinung nach nur über benannte Ansichten.
Die kannst du per lisp aufrufen oder alternativ über MuFu-Leiste Ansicht oder alt über die Symbolleiste Ansicht.

mfg Roman

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

---

hier[URL=ww3.cad.de/foren/ubb/For[URL=um54/HTML/012098.shtml#000003][/URL]

bin hier fündig geworden - Danke Marc

[Diese Nachricht wurde von cadplayer am 09. Aug. 2011 editiert.]

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

---

Nur zu meinem Verständnis würde mich interessieren, wie der Code arbeitet

Code:

---

(defun c: planb ()                     ; Eingabe planb ergibt T
  (xplan T)
  (princ)
  )
(defun c: planw ()                     ; Eingabe planw ergibt nil
  (xplan nil)
  (princ)
  )

;;; Xplan ruft den AutoCAD Befehl
;;; "_.plan" für BKS oder WKS auf
;;; Übergabeparameter T = BKS, nil = WKS
(defun XPLAN (FLAG /)                    
  (setq VCTR  (getvar "viewctr")
VSIZE (getvar "viewsize")
) ;_ end setq
  (if FLAG                                
    (command "_.plan" "_c")               ; wenn das Argument FLAG T ist führe (command "_.plan" "_c") aus
    (command "_.plan" "_w")               ; wenn das Argument FLAG nil ist führe (command "_.plan" "_w") aus
  ) ;_ end if
  (command "_.zoom" "_c" VCTR VSIZE)      ; zoom Ausschnitt
  (princ "\nOK, erledigt...")
) ;_ end defun

---

[Diese Nachricht wurde von cadplayer am 09. Aug. 2011 editiert.]

[Diese Nachricht wurde von cadplayer am 09. Aug. 2011 editiert.]

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

---

Hi cadplayer!

Bin gerade über deinen Beitrag gestolpert.

Hast du noch fragen zum Code oder ist inzwischen alles klar?

------------------
Gruß, Stephan
www.stbartl.at

"Alles sollte so einfach wie möglich gemacht werden, aber nicht einfacher." - Albert Einstein

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

---

Hallo

Ich hatte das selbe anliegen und konnte mir mit viel hilfe dieses hier bauen:

(defun c:afd (/ en drehb dreh)
 

  (setq en (car (entsel "\nObjekt wählen: ")))
  (princ en)
  (setq drehb (cdr (assoc 50 (entget en))))
  (princ drehb)
  (setq dreh (- 360 (* drehb (/ 180 pi))))
  (princ dreh)
  (command "_.dview" en "" "_twist" dreh "")

)

gruss robin

------------------
...glaubst das ist luft die du gerade atmest? in diesem raum...

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

---

Hej AutoCAD-Community,
ich hole hier diesen älteren Beitrag noch mal noch oben.  Gibt es hierzu eventuell Neuigkeiten mit den aktuelleren Versionen? Dieses Problem fällt mir irgendwie immer wieder auf die Füße …
LG Tom

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