---

Hallo

Da ich ab und zu meine Zeichnungen auch für berichte benütze
habe ich eine lsp gemacht die meine layer auf weiss stellt und wieder zurück. So kann ich ganz einfach über einen befehl die farbe steuern.

Code:

---

(defun C:Layerfarbe ()
  (command "_-layer" "_m" "layer1" "_c" "253" "" "")
  (command "_-layer" "_m" "layer2" "_c" "4" "" "")
  (command "_-layer" "_m" "layer3" "_c" "2" "" "")
.....
)

(defun C:Layerweiss ()
  (command "_-layer" "_m" "layer1" "_c" "7" "" "")
  (command "_-layer" "_m" "layer2" "_c" "7" "" "")
  (command "_-layer" "_m" "layer3" "_c" "7" "" "")
.....
)
usw.

---

Meine Bemassungslinienfarbe ist auf bylayer so wird diese auch weiss
aber leider die schrift nicht.
Kann man das auch irgend wie in die lsp einbinden so das alle Bemaassungen (Schrift) Weiss werden und beim anderen befehl wieder Gelb??

Andrea

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

---

Hallo Andrea,

es gibt bei den Eigenschaften der Bemaßung auch den Punkt Text / Textfarbe. Steht die vielleicht nicht auf "bylayer"??

lg
Thomas

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

---

Nein die steht auf gelb den ich will ja das sie normal gelb ist und nicht wie die bemassungslinen

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

---

Ich denke die Variable DIMCLRT hilft dir weiter. Diese ist für die Farbe des Bemassungstexts verantwortlich (vom aktuellen Stil). Im WEISS-LISP stellst du diesen Wert auf 7, anschliessend wieder zurück.

------------------
Viele Grüsse aus dem Land der Berge
CADworx 

STOPPT Bananensoftware!
Software soll nicht erst beim Kunden reifen...

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

---

dann kannst du Objektfarbe logischerweise nicht über die Layer ändern, sondern nur direkt am Objekt ...

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

wie CADworx schon sagte, DIMCLRT, aber das setzen allen reicht nicht, Du musst auch noch die Bemaßungen updaten, ungefähr so:

setzen:

Code:

---

(setvar "dimclrt" 256)  ;; 256 ist vonlayer
(setq alle_dim (ssget "x" '((0 . "DIMENSION"))))
(command "bem" "update" alle_dim "" "exit")

---

rücksetzen:

Code:

---

(setvar "dimclrt" 2)  ;; 2 ist gelb
(setq alle_dim (ssget "x" '((0 . "DIMENSION"))))
(command "bem" "update" alle_dim "" "exit")

---

OK nicht schön mit dem command, geht aber.
Alternativ könnte man auch alle Elemente des SelSets alle_dim durchgehen und den entsprechenden Gruppencode ändern (welcher??)

lg
Thomas

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

---

Danke Thomas

habe den code
  (setvar "dimclrt" 2)  ;; 2 ist Gelb
  (command "dim" "update" "all" "" "exit")

integriert
Die farbe funktioniert aber nun werden alle meine Bemassungsstyles zu einem. Habe verschiedene Bemassungsstyle z.B DIM-1-1, DIM-1-5 usw)
wenn ich nun den befehl ausführe werden alle masslinien zum ausgewählten bemassungsstyle.
Was muss ich ändern das die Masslinien ihren style behalten??

Andrea

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

---

Zitat:

---

Original erstellt von redfrog:

Was muss ich ändern das die Masslinien ihren style behalten??

---

bei mehreren Stilen und evtl. Stilüberschreibungen bleibt dir nur das
übrig ... also per Lisp alle Bemassungen durchlaufen und die Textfarbe setzen ( am besten dabei gleich die Ursprungsfarbe als XDATA am Objekt merken .. wegen dem zurücksetzen )

------------------
  - 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 CADmium
Wie genau meinst du alle styles durchlaufen
kannst mir ein bespiel machen

Denn ich bin nicht gerade die beste mit lsp

Danke

Andrea

[Diese Nachricht wurde von redfrog am 30. Jun. 2006 editiert.]

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