---

Hallo
eine frage gibt es ein Lisp wo ich ein Objekt anklicke und ich dan gleich bei layer die farbe ändern kann danke
habe so nichts gefunden mit suchen ist nicht schlecht bei Polierplan herrichten.
danke heinz

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

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

---

weiß jetzt nicht so richtig, was du meinst..
der Befehl _properties hilft dir nicht?

------------------
- Thomas -

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

---

hallo danke für schnelle antwort nein hilft nicht
ich möchte ein Objekt anglicken und da will ich die layer farbe ändern, damit ich mnicht immer ihn layersteuerung muss mir layer suchen und farbe ändern bei 300 layer und mehr sehr grosser aufwand

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

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

---

Servus

^C^C_ai_molc;\-layer;fa;\;;

Der layer wird aktuell gesetzt und man kann Ihn in der Kommandozeile eine Farbe zuweisen 1,2,3,4... usw.

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

danke dafür gibt es 10 U

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

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

---

LFOF.lsp.txt

Hallo Heinz!
Hab Dir ein Lisp angehängt (.txt löschen)
-mit APPLOAD laden, befehl LFOF eingeben, ELEMENT anklicken
dann wird der ELEMENTLAYER automatisch auf die Elementfarbe geändert
(brauchst nichts mehr eingeben).
Liesse sich noch anpassen, wenn Du mehr brauchst.

Gruß Claudio

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

---

hallo claudio danke erst mal
es lauft nicht, ich will nicht die die farbe von Element auch als layer farbe habe ich will nur das element anklichen und dan dies farbe ändern aber gleich die Layerfarbe z.b wenn das elemnt die farbe rot hat und der layer ist auch auf rot will ich layer auf 253 ändern und so weiter ok aber danke

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

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

---

Nicht böse sein aber wenn ich diesen und
auch andere Beiträge lese habe ich das Gefühl,
das Deutsch nicht mehr gefragt ist.

Mit anderen Worten, ich muss bald jeden Beitrag
dreimal lesen bis ich in überhaupt verstehe was
den gemeint ist?

------------------
Bernd Cuder
Cad&Co makes CAD easy
Autodesk authorized developer

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

---

lol... Bernd hat Recht !!!

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

---

SORRY WEGEN MEINEN DEUTSCH ABER LUSTIG MACHEN BRAUCHT SICH KEINER
DANKE ALLE SIND NICHT SO GUT WIE IHR
DANKE

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

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

---

hallo,
könnte es denn nicht sein, dass das "eigenschaften anpassen" irgendwie weiterhilft?
reine vermutung...

ciao
chris

------------------
freundliche grüsse
christian schütz
acadgraph support
www.acadgraph.de

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

---

danke das von bernd passt schon genau das wollte ich
danke an alle

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

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

---

Falls man mal die Farbnummer zufällig nicht weiß.. nochmal ein kleines Lisp :

(defun C:Set-layer-color (/ Auswahl LAYERDATEN FARBE)
  (if(or(and(setq AUSWAHL (ssget "I"))    (=(sslength AUSWAHL) 1))
        (and(setq AUSWAHL (ssget "_:S" )) (=(sslength AUSWAHL) 1))
    )
    (progn     
      (setq LAYERDATEN (entget(tblobjname "LAYER"
                                (cdr(assoc 8(entget(ssname AUSWAHL 0))))
                              )
                      )
      )                     
      (or(setq FARBE(ACAD_COLORDLG (cdr(assoc 62 LAYERDATEN)) nil))
        (setq FARBE (cdr(assoc 62 LAYERDATEN)))
      )
      (entmod (subst (cons 62 FARBE)
                    (assoc 62 LAYERDATEN)
                    LAYERDATEN
              )
      )          
    ) 
  )
  (princ)
)

------------------
- Thomas -

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

---

Hallo CADmium
das lisp ist ein Traum dafür gibt es 20 u

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

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

---

Es gehen bloß 10 U's pro Beitrag...

------------------
May the force be with you!

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

---

schade hätte mehr verdient
gruss heinz

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

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

---

Servus

Bringt das Lisp von Thomas, wär für XrefŽs auch zum laufen?

------------------
Same shit, different DAU. DAU Jones

  Bernd P.      

[Diese Nachricht wurde von Bernd P am 28. Apr. 2004 editiert.]

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

---

Zitat:

---

Original erstellt von Bernd P:
Servus

Bringt das Lisp von Thomas, wär für XrefŽs auch zum laufen?

---

Den Satz verstehe ich jetzt auch nicht!?

------------------
Mit freundlichen Grüßen

Otze Mach Ed

.....wer lesen kann ist klar im Vorteil....

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

---

(defun C:Set-layer-color (/ Auswahl LAYERDATEN FARBE)
  (if; (or(and(setq AUSWAHL (ssget "I"))    (=(sslength AUSWAHL) 1))
     ;   (and(setq AUSWAHL (ssget "_:S" )) (=(sslength AUSWAHL) 1))
    (setq AUSWAHL (nentsel))
      ; )
    (progn 

usw..

Aber Vorsicht - XrefŽs sind "auch nur Blockreferenzen" - also greift er nun auch bei internen Blöcken auf die Layer im Block
und nicht auf den Einfügelayer zu !!

man könnte noch zw. X-Ref und interne Blockref. unterscheiden - aber du mußt klar sagen was
wann wie gewählt zu ändern ist !!

EDIT: Und: dran denken: Layer0 wird von Master&Slave.dwg gemeinsam benutzt.

------------------
- Sebastian Mattis -

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

---

Servus

Bekomm leider eine Fehlermeldung mit der Änderung

Befehl: set-layer-color

Objekt wählen: ; Fehler: Fehlerhafter Argumenttyp: lselsetp (<Objektname:
7ae94120> (-110.6 224.8 0.0)).

@OtzeMachEd

Soll einfach so funktionieren wie oben beschrieben egal ob das Objekt im Xref ist oder nicht.

Befehl aufrufen > Objekt picken > Farbe wählen

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

Zitat:

---

Original erstellt von Dig15:
Es gehen bloß 10 U's pro Beitrag...

---

Man kann ja auch auf andere Beträge des Users Unities verteilen ;-)

------------------
Gruß aus Wien
Bernhard

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

---

@Bernd - ja da fehlt noch was.. vergessen zu kopieren aber beschrieben wie es sich auf welche Objekte genau beziehen soll hast du nicht - naja , ich brauche es ja auch nicht 

also nochmal .

(defun C:Set-layer-color (/ Auswahl LAYERDATEN FARBE)
  (if ;(or(and(setq AUSWAHL (ssget "I"))    (=(sslength AUSWAHL) 1))
      ;  (and(setq AUSWAHL (ssget "_:S" )) (=(sslength AUSWAHL) 1))
  ; )
    (setq AUSWAHL (nentsel))
    (progn     
      (setq LAYERDATEN (entget(tblobjname "LAYER"
                                (cdr(assoc 8(entget(car AUSWAHL))))
                              )
                      )
      )                     
      (or(setq FARBE(ACAD_COLORDLG (cdr(assoc 62 LAYERDATEN)) nil))
        (setq FARBE (cdr(assoc 62 LAYERDATEN)))
      )
      (entmod (subst (cons 62 FARBE)
                    (assoc 62 LAYERDATEN)
                    LAYERDATEN
              )
      )         
    ) 
  )
  (princ)
)

_________

kann es gerade nicht testen, hoffe es läuft dennoch .

------------------
- Sebastian Mattis -

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

---

Servus

Perfekt wenn man mit grosse -XrefŽs arbeitet (Vermessung usw) und die nicht selber erstellt hat.

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

Morgen,

Super .lsp! Sehe ich gerade!
Genau so wie ich es mag!
Einfach, aber sehr hilfreich!

Dafür gehe ich auch mal U's verteilen!

Gruß Alpschorsch

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

---

Hallo Leute,

Die Lisp-Programme sind ja alle ganz schön und ich hab auch gegen die Aufgabenstellung nichts. Ich hasse aber Zeichnungen in denen die Objekte nicht die Farbe des Layers haben. Bei unseren Zeichnungen haben alle Objekte die Farbe, Linienstärke, Linientyp von Layer. Wofür gibts denn sonst die Layer. Da könnte man ja gleich alles auf einem Layer zeichnen.
Ich möchte nochmals betonen das ich nichts dagegen habe das so bunt durcheinander zu würfeln. Schön find ich es nicht.

Bitte den Moderator übrigens diesen Betrag ins Lisp-Forum zu stellen. Danke.

MfG  Martin

[Diese Nachricht wurde von mkl-cad am 29. Apr. 2004 editiert.]

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

---

Falls du dir den Thread nochmal durchlesen solltest und die LispŽs testest,
dann schmunzelst du hoffentlich auch ein wenig über dein Statement 

------------------
- Sebastian Mattis -

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

---

Zitat:

---

Original erstellt von mkl-cad:
Hallo Leute,

Ich hasse aber Zeichnungen in denen die Objekte nicht die Farbe des Layers haben. [Diese Nachricht wurde von mkl-cad am 29. Apr. 2004 editiert.]

---

Ich verstehe deinen Betrag IN DIESEM ZUSAMMENHANG nicht.

cadffmŽs Programm ändert die FARBE des LAYERs, und nicht die Objektfarbe.

------------------
Gruß aus Wien
Bernhard

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

---

Oje, nehme alles zurück und behaupte das Gegenteil.
Ich habe das Programm nicht bis zum Ende durchgespielt
(Schäm)

Martin

[Diese Nachricht wurde von mkl-cad am 29. Apr. 2004 editiert.]

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