---

Hallo,
ich möchte gern zwischen 3D-Drahtmodel und Gouraud-Schattierung toggeln.
Nun weiß ich inzwischen, dass der DXF-Gruppencode 281 für Viewports
für Draht =1 und für Gouraud-Schattiert = 4 ist.
Wie  kann ich mit LISP diesen Status abfragen und ändern ?

MfG

Paul

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

---

Hallo Paul,

was meinst Du mit "toggeln"? Wenn Du nur "umschalten" möchtest, leg` Dir doch das ganze auf einen Schalter.

Falls Du es innerhalb einer Routine brauchst, helfen die Lisp-Befehle "entget", "car", "assoc" und "entsel" sicherlich weiter... Nur so auf die Schnelle :-(
Gruß Frederik

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

---

Mit toggeln meine ich ein Button für beide Anzeigearten.
Was meinst du mit auf einen Schalter legen (kenne mich leider nicht gut aus).

MfG

Paul

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

---

OK, mal sehen, ob ich Dir kurz helfen kann - ist eigentlich ein ACAD-Thema, also ein wenig fehl am Platz in diesem Forum, aber gut, Du wolltest ja auf Lisp losgehen:-)

Also: In ACAD rechte Maustaste in den grauen Bereich - Anpassen. Es sollte ein Menü auftauchen. Scrollen, bis Du "Benutzerdefiniert" lesen kannst. Dann mit linker MT eine "benutzerdefinierte Schaltfläche" gedrückt in einem Werkzeugkasten ablegen (am besten vorher einen eigenen erstellen, geht auch unter "Anpassen").

Wieder mit der rechten MT auf Deine neue Schaltfläche -  Eigenschaften öffnet ein weiteres Fenster. Dort kannst Du den auszuführenden Befehl als Text hinterlegen. Füge da mal

Code:

---

^C^C_.shademode;_2;

---

ein...

Am besten, Du läßt Dir den Toolbar "Schattieren" anzeigen.

Nun hast Du eine einfache und eine kompliziertere Lösung: Bau Dir selbst 2 Schalter für jede Art (wenig sinnvoll, da bereits im Toolbar vorhanden!) oder Du bastelst Dir eine Abfrage, welcher Modus gerade aktiv ist und schaltest dann auf den anderen um. Etwas eleganter - aber aufwändiger und mehr Wissen erforderlich.

Falls Du allerdings mit dem Werkzeugkaste "Schattieren" bereits zufrieden bist, habe ich mich umsonst bemüht:-( Also mach mal, und laß hören. Viel Glück!
Frederik

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

---

Hallo Frederik,

wie du scon schreibst, etwas mehr Wissen erforderlich da der Ansichtsmodus keine Variable ist, die man einfach abfragen kann.
Der Status des Ansichtsfensters lässt sich nur über den DXF-Gruppencode auslesen. Aber wie?

MfG Paul

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

---

Hallo Paul,
wenn Du Dir zwei Buttons erstellst, kannst Du Dir folgende Macros hinterlegen:

Schattieren:
$M=$(if,$(and,$(eq,$(getvar,tilemode),0),$(eq,$(getvar,cvport),1)),^C^C_shademode,^C^C_shademode _f)

Drahtmodell:
$M=$(if,$(and,$(eq,$(getvar,tilemode),0),$(eq,$(getvar,cvport),1)),^C^C_shademode,^C^C_shademode _2)

Vielleicht ist das ja schon die Lösung die Du brauchst, sonst mußt Du damit noch ein bißchen rumprobieren.

------------------
viele Grüße

Jörn

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

---

Jo,

Joerns Vorschlag ist gut!
Nochmals zur eingangs gestellten Frage - Status abfragen:

Code:

---

(cdr (assoc 281 (entget (car (entsel)))))

---

liefert Dir die aktuellen Einstellungen, also eine Zahl. Das Umstellen via Lisp auf die Schnelle übersteigt leider meine bescheidenen Kenntnisse:-(
[Edit: Einfach mal in ACAD in die Befehlszeile eingeben, Ansichtsfenster wählen. Edit]
Frederik

[Diese Nachricht wurde von Paulchen am 11. Sep. 2006 editiert.]

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

---

Viewports lassen sich nicht "entmoden" und ActiveX stellt auch keine Property hinsichtlich shademode, somit bleibt eh bloß das "command".

Und den aktuellen Modus im Modellbereich auslesen ???

@PBPaul: Gewöhn dich an die 2 Knöpfe

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo nochmal,

@Cadmium: Gut zu wissen, wieder was gelernt! Da hätte ich als Anfänger lange rumtüfteln können :-) Hat es einen bestimmten Grund, daß sich die Sache nur über "command" lösen läßt - oder ist das die Eigenwilligkeit von Autodesk?
Frederik

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

---

steht in der Lisp-Hilfe zu entmode und zu entmake .. zum Grund ... frag die Programmierer.. wahrscheinlich zeichnungsdatenbankmäßig zu viel zu beachten, so daß die entmake-Funktion an ihre Grenzen stieß und ne Weiter/Neuentwicklung wollte man sich sparen..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke für die Antworten,
geht also doch nicht.
Vieleicht wäre eine dynamische TOOLBOX die Lösung.
Bei jedem Klick auf dem Button wird dieser ersetzt.
Hab mal in VBA nachgesehen aber keine Möglichkeit gefunden
ein Button in eine vorhandene Toolbox über VBA zu setzen (nur neu
angelegte).
Ich glaube ich gewöhne mich lieber doch an 2 BUTTONS.

MfG
Paul

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

---

Zitat:

---

Original erstellt von PBPaul:
Hallo,
ich möchte gern zwischen 3D-Drahtmodel und Gouraud-Schattierung toggeln.
Nun weiß ich inzwischen, dass der DXF-Gruppencode 281 für Viewports
für Draht =1 und für Gouraud-Schattiert = 4 ist.
Wie  kann ich mit LISP diesen Status abfragen und ändern ?
MfG Paul

---

Sicher wäre es sinnvoll gewesen, deinen Beitrag zum gleichen Thema hier zu verlinken, http://ww3.cad.de/foren/ubb/Forum54/HTML/014762.shtml
und http://ww3.cad.de/foren/ubb/Forum259/HTML/001002.shtml

damit du keine doppelten oder unzutreffenden Antworten bekommst.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Uuups! Öfter mal was Neues: Ein "Triple-Posting" - Premiere? Sehr aufmerksam, Udo!

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