Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Objekte bestimmter Ansichtsfenster ausblenden

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Objekte bestimmter Ansichtsfenster ausblenden (2233 / mal gelesen)
slash2002
Mitglied


Sehen Sie sich das Profil von slash2002 an!   Senden Sie eine Private Message an slash2002  Schreiben Sie einen Gästebucheintrag für slash2002

Beiträge: 3
Registriert: 29.11.2017

AutoCAD 2018

erstellt am: 29. Nov. 2017 14:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

ist es möglich, in Ansichtsfenstern mit einem bestimmten Layer -z.B. AFintern- die Objekte auszublenden?
Ich hatte an ein Makro gedacht, mit dem über sauswahl alle Ansichtsfenster mit Layer AFintern markiert werden und anschließend mit -afenster AUS der Inhalt ausgebledent wird. sauswahl öffnet jedoch immer das Dialogfenster und ist so nicht brauchbar.

Vielen Dank im Vorraus.

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

Vino
Mitglied



Sehen Sie sich das Profil von Vino an!   Senden Sie eine Private Message an Vino  Schreiben Sie einen Gästebucheintrag für Vino

Beiträge: 207
Registriert: 24.05.2005

Windows 10
BricsCAD V22

erstellt am: 29. Nov. 2017 15:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für slash2002 10 Unities + Antwort hilfreich

Code:
(defun c:afaus (/ objlist n)
  (setq objlist (ssget "X" '((0 . "VIEWPORT") (8 . "AFintern"))))
  (setq n 0)
  (repeat (sslength objlist)
    (vla-put-viewporton (vlax-ename->vla-object (ssname objlist n)) :vlax-false)
    (setq n (1+ n))
  )
)

Gruß
Stefan

[Diese Nachricht wurde von Vino am 29. Nov. 2017 editiert.]

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 29. Nov. 2017 15:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für slash2002 10 Unities + Antwort hilfreich

Code:
(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_vplayer" "frieren" (strcat "*" layt "*") "alle" ""))

blödsinn....

Man kann auch den Befehl 'Filter' verwenden. Ich verwende meist 'ausgewähltes Objekt hinzufügen' und lösche die Eigenschaften die ich nicht brauche raus. Mit 'alle' selektiert er dann auch in anderen Layouts.

Oder das Lisp, Filter nach Objekt+Layer durch Auswahl.

Code:
(defun c:sel_L-O(/ OBJ AWS)
  (if(setq OBJ(car(entsel)))
    (progn     
      (setq AWS(ssget "_x" (vl-remove-if-not '(lambda(x)(member (car X) '( 0 8)))  (entget OBJ))))
      (sssetfirst AWS AWS)
    )
  )
)


------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 29. Nov. 2017 editiert.]

[Diese Nachricht wurde von Bernd P am 29. Nov. 2017 editiert.]

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

slash2002
Mitglied


Sehen Sie sich das Profil von slash2002 an!   Senden Sie eine Private Message an slash2002  Schreiben Sie einen Gästebucheintrag für slash2002

Beiträge: 3
Registriert: 29.11.2017

AutoCAD 2018

erstellt am: 29. Nov. 2017 16:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank euch beiden.
@Vino: wenn ich vlax-false durch vlax-true austausche, schalte ich die Objekte wieder ein, richtig?
@Bernd P: Verstehe ich das richt, dass das Script Objekte auf dem gewählten Layer nur markiert und ich dann den gewünschten Befehle auswähle?

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

Vino
Mitglied



Sehen Sie sich das Profil von Vino an!   Senden Sie eine Private Message an Vino  Schreiben Sie einen Gästebucheintrag für Vino

Beiträge: 207
Registriert: 24.05.2005

Windows 10
BricsCAD V22

erstellt am: 29. Nov. 2017 16:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für slash2002 10 Unities + Antwort hilfreich

Hallo Slash,

ja, sollte so sein. ;-)
Wo man den Layernamen anpasst, sollte in dem kurzen Lisp denke ich auch zu finden sein.

Gruß
Stefan

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 30. Nov. 2017 09:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für slash2002 10 Unities + Antwort hilfreich

ja das macht es mit beliebigen Objekten und Layer.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz