| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Ansichtsfenster in Modellbereich übertragen (7912 mal gelesen)
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 06. Sep. 2011 16:06 <-- editieren / zitieren --> Unities abgeben:
|
Cadzia Ehrenmitglied V.I.P. h.c. CAD/Grafik-Dienstleister
Beiträge: 2917 Registriert: 02.07.2004
|
erstellt am: 06. Sep. 2011 16:11 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
alterHausmeister Mitglied Hausmeister
Beiträge: 470 Registriert: 02.02.2009 Hardwareprobleme: keine Softwareprobleme: P3D-2023/2025
|
erstellt am: 06. Sep. 2011 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 06. Sep. 2011 16:34 <-- editieren / zitieren --> Unities abgeben:
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 |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 06. Sep. 2011 16:46 <-- editieren / zitieren --> Unities abgeben:
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 |
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002 AutoCAD AutoCAD Map 3D AutoCAD Civil 3D InfraWorks Urbano Navisworks
|
erstellt am: 07. Sep. 2011 09:35 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 07. Sep. 2011 09:39 <-- editieren / zitieren --> Unities abgeben: Nur für xem
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 |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 07. Sep. 2011 09:52 <-- editieren / zitieren --> Unities abgeben:
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 |
Stone90 Mitglied
Beiträge: 16 Registriert: 07.08.2008
|
erstellt am: 19. Feb. 2014 09:08 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 19. Feb. 2014 13:30 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
Stone90 Mitglied
Beiträge: 16 Registriert: 07.08.2008
|
erstellt am: 19. Feb. 2014 15:59 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 19. Feb. 2014 16:09 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
Stone90 Mitglied
Beiträge: 16 Registriert: 07.08.2008
|
erstellt am: 19. Feb. 2014 16:25 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
Manuel486 Mitglied Technischer Zeichner Elektro
Beiträge: 212 Registriert: 31.01.2020 Windows 11 Pro 64-Bit - Corsair 7000D Airflow - Asus ROG Maximus Z790 Hero - Intel Core i9-13900KS - Teamgroup T-Force 2x48GB DDR5 RAM @ 5600 MHz - Crucial T700 SSD 2TB M2 - Gainward NVIDIA GeForce RTX 4090 24GB - Corsair HX1000i - Corsair K55 RGB - Corsair Dark Core Pro - Corsair Void Elite Wireless - Corsair ST100 RGB - Elgato Stream Deck 15 Tasten - AutoCAD MEP 2023 - Revit 2021.1.9 + 2022.1.6 + 2023.1.4 + 2024.2.1 + 2025.0.2
|
erstellt am: 29. Sep. 2020 14:48 <-- editieren / zitieren --> Unities abgeben: Nur für xem
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 |
GWH Mitglied
Beiträge: 552 Registriert: 08.06.2001
|
erstellt am: 30. Sep. 2020 08:10 <-- editieren / zitieren --> Unities abgeben: Nur für xem
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 |
Siegfried Rief Mitglied Lehrer, Architekt
Beiträge: 270 Registriert: 16.11.2011 ACAD 2024, imos iX2017 im Novellnetz Fachschule für Holztechnik Stuttgart
|
erstellt am: 30. Sep. 2020 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für xem
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 |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 Kinder, kauft Kämme! Es kommen lausige Zeiten.
|
erstellt am: 30. Sep. 2020 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für xem
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 |
Siegfried Rief Mitglied Lehrer, Architekt
Beiträge: 270 Registriert: 16.11.2011 ACAD 2024, imos iX2017 im Novellnetz Fachschule für Holztechnik Stuttgart
|
erstellt am: 01. Okt. 2020 09:34 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
C4DP4P57 Mitglied Technischer Zeichner
Beiträge: 153 Registriert: 06.05.2009 Win 10 Windows 10 Enterprise 64Bit Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 32 GB RAM NVIDIA Quadro P1000 AutoCAD 2019.1.2 64Bit
|
erstellt am: 22. Okt. 2020 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
Siegfried Rief Mitglied Lehrer, Architekt
Beiträge: 270 Registriert: 16.11.2011 ACAD 2024, imos iX2017 im Novellnetz Fachschule für Holztechnik Stuttgart
|
erstellt am: 22. Okt. 2020 19:25 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|