---

Hallo !

Versuche ein einfaches scipt zu schreiben, dass mir die Farbe eines Layers in versch. Dateien ändert.
Dazu habe ich erstmal eine Funktion, die mir die Layerfarbe ändert.

(defun flx (laynam col /)
  (command "-layer" "c" col laynam "")
  )
die lade ich mit der Acad.lsp hoch und möchte nun eine Liste von Dateien öffnen und dann die Farbe ändern.
Es scheitert erstmal daran, nicht zu wissen, wie ich eine mehrere Dateien öffnen kann.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Hi,

naaa? Schon vergessen?
http://ww3.cad.de/foren/ubb/Forum145/HTML/003845.shtml#000006

Gruß
CADchup

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

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

---

Aja, hatte mir das Tool nicht so genau angeschaut. Da sind zwar ein paar samples drauf. So richtig geschnallt habe ich es noch nicht: entspricht ; (semikolon) oder Leerzeile einem Enter oder beides ?

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

keine Chance bei Umlauten oder gibt es da einen Trick ?

Code:

---

-layer
f
M-FÖNSTER

QSAVE

---

[edit]

AlleinUnterhalter

Code:

---

-layer
f
(strcat "M-F" (chr 246)"NSTER")

QSAVE

---

[Diese Nachricht wurde von cadplayer am 04. Mrz. 2013 editiert.]

[Diese Nachricht wurde von cadplayer am 04. Mrz. 2013 editiert.]

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

---

Hi,

bist zwar schon weitergekommen, aber den Hinweis auf das Einbinden eigener Funktionen wollte ich nochmal nachreichen.
Das Skript könnte auch so aussehen:

Code:

---

(load (findfile "flx.lsp"))
(flx "Layername" Farbnummer)

---

Dadurch brauchst du dich von deinen Lisp-Funktionen nicht zu trennen.

Umlaute habe ich nicht getestet.

Gruß
CADchup

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

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

---

Danke für den Hinweis, probier ich aus...

Nochmal nachgehakt an der Stelle, wenn ich eine Liste von Layern zum beispiel frieren will. Ich finde es ziehmlich umständlich, das nach der Form zu tun

Code:

---

-layer
f
"Layer1"
f
"Layer2"
f
"Layer3"
QSAVE

---

Kann ich das nicht mit einer Liste ("layer1" "layer2" "layer3" ...) tun, die dann nacheinander die Layer friert.

Vermutlich muss ich dazu eine Lisp funktion schreiben oder geht es auch ohne ?

[Diese Nachricht wurde von cadplayer am 05. Mrz. 2013 editiert.]

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

---

(mapcar
  '(lambda(X / L)
     (if(and(setq L(tblobjname "LAYER" X))(setq L(entget L)))
       (entmod(subst(cons 70 (boole 7(cdr(assoc 70 L))1))(assoc 70 L)L))
     ) 
   )
   '("AM_1" "AM_4" "AM_5")
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Rafiniert, dachte bisher script is stupid, finde so langsam gefallen daran, wenn der Bildschirm nur so flackert vom öffnen/schliessen der files...

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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