---

Hi Leute

das letzte mal habt ihr mir ja gut weiter helfen können. Habe aber jetzt ein neues anliegen oder Wunsch. Kann mir oder hat schon mal jemand erzeugt?
Ich hab mich schon ein paar Tage damit befasst aber ich kapiere es nicht. Scripte usw. einfache scripte kann ich aber das wäre schön

Problem:
Hätte gerne einen Button mit dem man Layer ein oder ausschalten kann.

also test Laxer ein oder test Layer aus

Ich denke das kann man nur mit einem Script und in der Hilfe mit einer IF Funktion lösen.

Kann ich aber nichts mit anfangen zumindestens jetzt noch nicht.

Und zweite Wunsch auf meiner kleinen Liste

Über einen Button layer auswählen und ausschalten

Info
ACAD LT

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

---

Hallo,
wie wärs mit dem Befehl _layer?
Da müsste in Deiner Werkzeugkiste bestimmt noch ein passender Button für rumliegen.

Gruß Ingo

------------------
Theorie ist,wenn man alles weiß und nichts funktioniert.
Praxis ist,wenn alles funktioniert und keiner weiß warum.
Bei mir wird Theorie und Praxis vereint: Nichts funktioniert und keiner weiß warum!   

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

---

wenn du den LT-Extender hast, hilft dir vielleicht das weiter...

------------------
  - 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

---

Sowas wurde auch schon gefragt (was denn auch noch nicht eigentlich ?   )

--> Layer toggeln

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hi danke für die schnelle Antwort

ich hab mal versucht meine Werte einzugeben, aber irgendwie funktioniert es nicht so wie ich es gerne hätte.
Der Layer tet wird beim ersten Klick gefroren, sollte aber beim 2 klick wieder getaut werden. so das ich nur einen Button brauche um einen Layer ein und auszuschalten, kann mir jemand helfen wo hier mein Fehler ist

^C^C$M=$(if,$(eq,$(getvar,"clayer"),"tet"),_-layer;_thaw;tet;;;,_-layer;_freeze;tet;;

Merci

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

---

Na das dies nicht klappt erkenne ich auch auf den 1.Blick
Schaue dir doch einfach nochmal GENAU das von mir verlinkte Beispiel an !
Da ist es ja praktisch 1:1 vorgegeben

PS: DIESEL und auch die Dieselfunktion "IF" ist super in der Acadhilfe dokumentiert.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

du kannst IMHO den Layerzustand nur per Prog-Zugriff feststellen!

(defun SINGLE-LAY-ON-OFF(LAYER)
  (if(and(=(type LAYER)'STR)
(setq LAYER(tblobjname "LAYER" LAYER))
(setq LAYER(entget LAYER))
    )   
    (entmod
      (subst (cons 62 (* -1(cdr(assoc 62 LAYER))))(assoc 62 LAYER)LAYER)
    ) 
  )
)
und auf deinen Button dann
^C^C(SINGLE-LAY-ON-OFF "TEST")
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 28. Mrz. 2007 editiert.]

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

---

Naja wenn ich das in der Hilfe verstanden hätte, wäre ich ja nicht hier. siehe oben

Übrigens ich habe ACAD LT (siehe oben), ich glaub das da kein Lisp geht oder habe ich jedenfalls schon oft gelesen.

Falls es doch eine Lösung gibt, wäre ich ganz froh darum wenn jemand der sich auskennt es lösen könnte.

Gruß

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

---

Zitat:

---

Original erstellt von -sauer:
Übrigens ich habe ACAD LT (siehe oben), ich glaub das da kein Lisp geht oder habe ich jedenfalls schon oft gelesen.

---

Deshalb hab ich ja auch auf den lt-Extender verwiesen

------------------
  - 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

---

Hier ein eher passendes Beispiel zum Toggle - mein 1. Beispiel war etwas "zu einfach" aufgebaut dafür: http://ww3.cad.de/foren/ubb/Forum54/HTML/014762.shtml#000000 

Für deine Layer Geschichte sieht das dann in etwa so aus:

$M=$(if,$(eq,$(getvar,USERR1),0),USERR1;1;_.-LAYER;_f;TET;,USERR1;0;_.-LAYER;_th;TET; )

EDIT: habe wegen der Smiliebildung im Forum mal geändert,
jetzt kann man das Makro so kopieren und muß nur die Leerstelle
vor der Letzten Klammer entfernen..

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Super vielen Dank hat geklappt.

Ich will ja nicht unverschämt sein, aber habt ihr Profis auch eine Lösung, für den Wunsch Nr.2, aus der 1. Anfrage hab mit

Gruß

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

---

Wie wäre es damit?

^C^C^P_ai_molc;\_setenv;layeroff;$M=$(getvar,clayer);_u;;_expert;1;"_-layer;_off;$M=$(getenv,layeroff)";;_expert;0;

expert schalte ich auf 1 damit die Rückfrage "soll der aktuelle Layer wirklich ausgeschaltet werden" unterdrückt wird.

------------------
Auch für LT gibt es Lösungen

[Diese Nachricht wurde von ryfCAD am 28. Mrz. 2007 editiert.]

[Diese Nachricht wurde von ryfCAD am 28. Mrz. 2007 editiert.]

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

---

ich hätte jetzt nach der ACAD-LT Version gefragt, denn das ist ab Acad2007(+LT) standardmäßig enthalten im WK_LayerII 

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Stimmt, ab 2007 ist die Funktion integriert

------------------
Auch für LT gibt es Lösungen

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

---

Hallo ryfCAD

ich würde es gerne ausprobieren....

Ich habe Dein script in meinem Button eingebaut, abe sobald ich drauf klicke sagt er ai_molc unbekannter Befehl, was mach ich falsch??

^C^C^P_ai_molc;\_setenv;layeroff;$M=$(getvar,clayer);_u;;_expert;1;"_-layer;_off;$M=$(getenv,layeroff)";;_expert;0;

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

---

dann müßte dein "normaler" Button "Eigenschaften anpassen" (der Pinsel) aber auch nicht funktionieren ... ???

(wenn es so ist, dann ist das erstmal ein eigenes Thema und wurde
Forum AutoCAD-LT oder auch im Forum "Rund um AutoCAD" bereits behandelt !)

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

ai_molc ist eine Lisp-Routine, der üblicherweise in der acad.mnl definiert wurde .. d.h. wieder schlechte Karten mit LT

------------------
  - 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

---

Guten Morgen

also auf LT geht es hab mich nur vertippt.
Hab aber jetzt das Problem wenn ich den Befehl von ryfCAD beim Kollegen einbaue funktionert er nicht. Kein Tippfehler da wir die gleichen Werkzeugpaletten benutzen. Man kann es vielleicht so bezeichnen, wir nutzen hier unseren eigenen Firmenstandart und alle greifen auf die gleichen Paletten zu. Blöcke usw. und bis jetzt hat es auch ganz gut geklappt mit Befehlen auf LT läuft, läuft auch auf Voll nur jetzt...?? Info wir haben ACAD LT/Voll sowie ADT2006
Wieso weshalb??? geht das jetzt auf der voll - version nicht??

^C^C^P_ai_molc;\_setenv;layeroff;$M=$(getvar,clayer);_u;;_expert;1;"_-layer;_off;$M=$(getenv,layeroff)";;_expert;0;

Gruß

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

---

weil es "setenv" in der Vollversion nicht gibt ?
Das erkennst du aber auch im Textfenster(F2) WO das Script aussteigt..

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Und eine Lösung die auf beiden LT/Voll funktioniert??

Gruß

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

---

Also ich schaue mir dein Makro jetzt nicht genau an, aber wenn es
nur um einen Speicherort für Informationen geht: Die User... Variablen gibt es in beiden Versionen.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Schade das Du mir nicht weiterhelfen kannst, weil einfache scripte bekomme ich noch hin, aber diese Geschichten mit Programmierung und USER ist mir zu hoch, kann ich nicht. Versteh ich nicht wie das funktionieren soll im Handbuch.

Gruß

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

---

Nein, es ist nicht so das ich nicht helfen könnte, aber ich habe keine Lust ständig Fertiglösungen zu posten.
Mit Fertiglösungen sind die Leute noch weniger daran interessiert die Sache auch zu verstehen und fragen somit
beim nächsten Mal wieder wie das gemacht wird (zB weil der Layer jetzt nicht mehr "Haus" sondern "Stuhl" heißt   
Ich gebe überdurchschnittlich viel und gerne Hilfestellungen und Problemlösungen hier im Forum, aber deswegen
fühle ich mich nicht berufen den CAD-Support von anderen Firmen zu stellen   
-

USER... Schau dir in der Acadhilfe die Auflistung der Systemvariablen an die mit "U" anfangen !
darunter sind dann die verschiedenen User-Variablen. Einfach mal in die Befehlszeile eingetippt
(wie du es sicher auch von anderen Systemvariablen her kennst, zB "Filedia") und du kannst den
Wert ändern.

DIESEL (die Dollar"$"-Geschichte) ist gut dokumentiert in der Hilfe ,
auch das Thema MAKRO, hier besonders "Makro Sonderzeichen" stehen schön
aufgelistet in der Hilfe.

GETVAR ist eine DIESELfunktion die natürlich auch dokumentiert ist, mit dieser kannst du VariablenWerte abfragen.

Zudem gibt es hier im Forum sehr sehr vile Beispielmakros, nur mußt du halt auch mal in der Hilfe
nachschlagen und über die Befehlszeile oder einem Test-Makro nachsehen was da genau geschieht.

ru
(PS: evtl. sollte man klein anfangen, dann vorarbeiten und dann erst "Sachen" einsetzen -
so ist einem wenigstens bekannt was man da macht. Mein 1.Makro war ein Befehl und eine folgende Option, mehr nicht      !

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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