---

hallo zusammen,

hab hier mal ein super Tool, weiß aber nicht mehr von wem das war...
...im AutoCAD 2006 funktioniert es leider nicht mehr.  Es sollte die Farbe aller Elemente auf vonlayer umstellen.
kann mal einer drüberfliegen, weil ich mit meinen Kenntnissen da nicht weit komm...

gruß

Code:

---

(defun c:colorByLayer (/ ss i elist)
  (setq i -1)
  (repeat
    (sslength
      (setq ss
    (ssget "x" '((-4 . "/=") (62 . 256)))
      )
    )
    (entmod
      (subst '(62 . 256)
      (assoc 62
    (setq elist
    (entget
      (ssname ss
      (setq i (1+ i))
      )
    )
    )
      )
      elist
      )
    )
  )
  (princ)
)

---

------------------

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

---

Hab noch kein 2006er, aber vielleicht hier Dir das weiter: http://ww3.cad.de/foren/ubb/Forum54/HTML/002470.shtml

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Morgen,
mach mal einen Unterstrich vors X

... (ssget "_x" ...

sollte dann gehen, (wohin auch immer)

Mfg Heiko

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

---

Hi,

ja, diese Funktion ist schon ziemlich alt und sehr simpel.
Dass es nicht unter 2006 laufen will, liegt nicht an der Version, sondern an den Objekten, die es (nicht) findet, denn es wird gar nicht geprüft, ob der Auswahlsatz überhaupt vorhanden ist.

Die paar anderen, unwesentlichen  , Einschränkungen kennst du?
Berücksichtigt keine Objekte in Blöcken.
Filtert keine Objekte aus, die sich nicht entmoden lassen.
Ausgeschaltene, gefrorene oder gesperrte Layer werden nicht gecheckt.

Sieh' es als Basis für deine Eigenentwicklung.
Erster Schritt:
Bevor du den Auswahlsatz ss verarbeitest, musst du prüfen, ob er überhaupt da ist.
Dann sollte das Teil zumindest durchlaufen.

Gruß
CADchup

------------------
CADmaro.de

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

---

@Cadchup .. Attribute und Maßlinien/Maßhilfslinien/Maßtexte haste noch vergessen, die werden bei sowas auch außen vor gelassen  

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

---

Zitat:

---

.. Attribute und Maßlinien/Maßhilfslinien/Maßtexte haste noch vergessen, die werden bei sowas auch außen vor gelassen   ;)

---

Habbich 

Zitat:

---

Berücksichtigt keine Objekte in Blöcken.

---

gesagt und natürlich auch Blockreferenzen gemeint. 

Gruß
CADchup

------------------
CADmaro.de

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

---

...wobei die Zugriffsmethode bei den erwähnten Objekten zwar ähnlich, aber doch andere sind ... 

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

---

Jetzt bloß nicht den geneigten Leser verwirren! 

------------------
CADmaro.de

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

---

Zitat:

---

Original erstellt von CADchup:
Jetzt bloß nicht den geneigten Leser verwirren!  :)

---

zuspät, der geneigte Leser ist verwirrt 
@Geos: das cswap tool funktioniert
@Dorfy: Mit dem "_X" funktioniert mein altes tool anscheinend auch wieder

So umfangreich solls gar nicht sein, es soll nur die Sichtbaren Strichal in der Zeichnung auswählen und auf VonLayer einstellen, mehr will i ned
Danke für eure schnellen Antworten

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

---

...ABER, eine Frage hätte ich da noch:
Kann man das alte tool so umbauen, dass es bei alle sichtbaren Elemente die Linienstärke auf vonLayer einstellt???

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

---

Ja, das kann man machen... ist dann die Unterliste des Gruppencodes 370 die dann bei "vonLayer" aus der entget-Liste mittels vl-remove entfernt werden muß

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

"Kann man das alte tool so umbauen..."
Nur so ne Frage - hast Du schon mal den Befehl: EIGÄNDR
probiert -> Objekte wählen : alle
Denn MEHR kann das Prog eigentlich auch nicht.

Dein Prog könnte eigentlich auch so aussehn:

(defun c:colorByLayer ()
  (Command "_CHPROP" (ssget "_x" '((-4 . "/=") (62 . 256))) "")
  (if (/=(getvar "CMDNAMES")"")(command "_c" "Bylayer" ""))
  )

Denn wenn noch mehr Änderungswünsche folgen, ist das auf dem Weg leichter zu bewerkstelligen.

Gruß Claudio

(defun c:CHFALI (/ Fragx)
  (if (= Frag nil) (setq Frag "F"))(setq Fragx Frag)
  (initget 2 "F LS LT")
  (setq Frag (getkword
  (strcat "Alle Elemente->Farbe, Linienstärke od. Linientyp ->Bylayer (F LS LT):<" Frag ">")))
  (if (or (= Frag nil)(= Frag ""))(setq Frag Fragx))
  (command "_chprop" (ssget "_X") "")
  (if (and (= Frag "F") (/=(getvar "CMDNAMES")"")) (command "_c" "Bylayer" ""))
  (if (and (= Frag "LS")(/=(getvar "CMDNAMES")"")) (command "_LW" "Bylayer" ""))
  (if (and (= Frag "LT")(/=(getvar "CMDNAMES")"")) (command "_LT" "Bylayer" ""))
)

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

---

@Claudio DANKE!! "Ich verneige mich"
Du hast natürlich vollkommen Recht, den Befehl kannte ich auch nicht.

D.h. ich könnts auch ganz einfach so schreib (ohne Abfrage, ohne nichts), oder mach ich dann was falsch:

Code:

---

(Command "_CHPROP" "_ALL" "" "_Color" "BYLAYER" "")
(Command "_CHPROP" "_ALL" "" "_LWeight" "BYLAYER" "")

---

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

---

Stimmt - so einfach geht das.
Für den Normalfall reicht Dein (richtiger) Einzeiler.

Ich habe oben den Befehl nur gesplittet und mit der Abfrage versehen,
ob er noch aktiv ist(.."CMDNAMES"..), da der Befehl wenn er keine
Elemente findet normalerweise nach (.."_ALL" "") abbricht -
- z.B. wenn alle Elemente auf gesperrten Layern sind.
Die restlichen Anweisungen würden dann letzlich den Befehl erneut aufrufen.

Gruß Claudio

(Command "_CHPROP" "_ALL" "")(if (/=(getvar "CMDNAMES")"")(command "_c" "Bylayer" ""))

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