---

Hallo Newsgroup

Ich habe immer wieder das Problem, dass ich Fremd-Daten zuerst aufbereiten muss, bevor ich sie in meine Zeichnungen einfügen kann.

Es kommt dabei öfters vor, dass ich einzelne Elemente zuerst mal bezüglich Farbe und Linientyp auf "Von Layer" ändern muss.

Meine Frage: Gibt es für diese Routine ein Programm (z.B. Lisp)
Schön wäre natürlich, wenn ich wahlweise alle bzw. nur gewählte Objekte ändern könnte.

Danke für Eure Tips

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

---

Versuchs mit
dem

Bei Fragen...

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

[Diese Nachricht wurde von CADmium am 26. Jul. 2004 editiert.]

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

---

Normalerweise markiert man die gewünschten Objekte
(Fensterwahl/Filter/Sauswahl oder wie auch immer)
und wählt dann einfach oben aus den Dropdown Listen
"FARBE","Linientyp" und "Linienstärke" = VONLAYER.

Fertig. Ist das so viel Arbeit ? - dann siehe CADmium.

------------------
- Sebastian -

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

---

Hallo!
Am einfachsten ist es doch die ganze Zeichnung mit einem Fenster zu markieren und anschließend Farbe und Linentyp auf "vonlayer" zu stellen, wenn es eh für alle Objekte gelten soll, oder?!

------------------
"Die Zeit ist das Feuer in dem wir verbrennen..."

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

---

Hallo Cadmium

Besten Dank für die Lisp-Routine.
Ich habe sie sofort getestet.
Farbe auf 256, Linientyp auf ByLayer, eigentlich so wie voreingestellt.

Meine AutoCAD 2005 gibt aber die folgende Meldung aus, egal ob ich ganze Zeichnung oder Auswahl wähle:

SET_BYLAYER: "no function definition: GET_LAYER"

Ich bin Lips-Anfänger und wäre froh wenn Du mir noch kurz auf die Sprünge helfen könntest.

Danke

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

---

Sorry, was vergessen ( war damals für einen etwas anderen Fall)

...ersetze die gleichnamige Funktion im durch folgende:
(defun UPDATE_OBJEKT ( OBJEKT /  OBJEKTDATEN)
      (if (=(type OBJEKT) 'ENAME)                                                    ; Parameter o.k. ?
        (progn     
          (setq OBJEKTDATEN (entget OBJEKT))                                      ; Objektdaten auslesen
          (if (assoc 8 OBJEKTDATEN)
            (progn
              (if (=(strcase(cdr(assoc 0 OBJEKTDATEN))) "INSERT")              ; Blockreferenzen auf "0"
                (setq OBJEKTDATEN(subst(cons 8 "0")(assoc 8 OBJEKTDATEN)OBJEKTDATEN))
              )
              (progn
                ;; *************** hier ändern, was du willst *************************************** ;;
                (OBJEKT_ALLGEMEIN_SET  OBJEKT 256                                                ; Farbe
                                              nil                                                ; Layer
                                              "ByLayer"                                      ; Linientyp
                                              nil                                      ; Linientypfaktor
                                              "ByLayer" )                                ; Linienstärke
                ;; *************** hier ändern, was du willst *************************************** ;;
              ) 
            )
          )
        )
      ) 
    )

In der Hoffnung ,keine Klammer vergessen zu haben ..

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

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

---

Danke für Deinen Nachtrag. Die Änderung hat voll reingehauen.
Jetzt funkts prima.

Gruss
Marc

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