---

Hi,

ich möchte alles was  mit Farbe 153 gezeichnet ist auf einen bestimmten Layer verschieben! Selbst wenn es in Blöcken verschachtelt ist!
Wie stelle ich das am besten an?
Möchte nicht 400 Blöcke durchwühlen!

Mfg Alpschorsch

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

---

Hallo Alpschorsch,
http://www.defun.de -> Hilfe -> Download -Prog[3]

Vielleicht hilfts?

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,

das hört sich gut an!
Ich probier es mal aus!

Dank Dir und Gruß Alpschorsch

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

---

Denkanstoß: auch mit Laymrg könnte man sich einen Lösungsweg zurechtdenken

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

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

---

na dann gebe ich meinen Senf auch noch zu :

Siehe http://ww3.cad.de/foren/ubb/uploads/CADmium/set_by_layer.txt

und ersetzte die Funktion (defun UPDATE_OBJEKT ...

mit folgender:

(defun UPDATE_OBJEKT ( OBJEKT /  OBJEKTDATEN)
  (if (=(type OBJEKT) 'ENAME)                                                 
    (progn     
      (setq OBJEKTDATEN (entget OBJEKT))                                   
      (if (=(cdr(assoc 62 OBJEKTDATEN)) 153)  ; <- hier deine Farbnummer eintragen
        (progn
                ;; *************** hier ändern, was du willst *************** ;;
                (setq LAYERDATEN (GET_LAYER (cdr(assoc 8 OBJEKTDATEN))))               
                (OBJEKT_ALLGEMEIN_SET  OBJEKT nil                        ; Farbe
                                              LAYER      ;<-hier dein Layername
                                              nil                    ; Linientyp
                                              nil              ; Linientypfaktor
                                              nil )              ; Linienstärke
                ;; *************** hier ändern, was du willst *************** ;;
        )
      )
    )
  )
)

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

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

---

Oh,

sehr freundlich von euch!
Da kann ich mich ja garnicht entscheiden!

Ich danke euch und probier mal!

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

---

@cadmium,

hab das so rein gebaut!

(defun UPDATE_OBJEKT ( OBJEKT /  OBJEKTDATEN)
  (if (=(type OBJEKT) 'ENAME)                                                 
    (progn     
      (setq OBJEKTDATEN (entget OBJEKT))                                   
      (if (=(cdr(assoc 62 OBJEKTDATEN)) 153)  ; <- hier deine Farbnummer eintragen
        (progn
                ;; *************** hier ändern, was du willst *************** ;;
                (setq LAYERDATEN (GET_LAYER (cdr(assoc 8 OBJEKTDATEN))))               
                (OBJEKT_ALLGEMEIN_SET  OBJEKT 153                        ; Farbe
                                              W-09_02-BOHRACHSEN      ;<-hier dein Layername
                                              ACAD_ISO10W100        ; Linientyp
                                              0.5              ; Linientypfaktor
                                              0.13 )              ; Linienstärke
                ;; *************** hier ändern, was du willst *************** ;;
        )
      )
    )
  )
)

und dann:

Befehl: set_bylayer
<G>anze Zeichnung oder <A>uswahl: <G>
Scanning... -
SET_BYLAYER: "no function definition: GET_LAYER"; Fehler: Es ist ein Fehler
innerhalb der *error*-Funktion aufgetreten.Zu viele Argumente

Kannst Du mir den Fehler nennen?

Mfg

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

---

@ cadffm,

die Variante mit laymrg würde mich auch interessieren!
Das geht aber doch nicht, wenn die Linien in Blöcken verschachtelt sind! Oder!
Hab mal probiert!

Quick Tip!

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

---

@ Alpschorsch

teste einfach nochmal.

Nee - vergiss es wieder, die Auswahl der Objekte klappt damit nicht,
nur Layerweise... sorry , habŽs verpeilt.

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

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

---

@ cadffm,

Du Lümmel!
Läßt mich hier schwitzen!

Mfg

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

---

SO :

defun UPDATE_OBJEKT ( OBJEKT /  OBJEKTDATEN)
  (if (=(type OBJEKT) 'ENAME)                                                 
    (progn     
      (setq OBJEKTDATEN (entget OBJEKT))                                   
      (if (=(cdr(assoc 62 OBJEKTDATEN)) 153)  ; <- hier deine Farbnummer eintragen
        (progn
                ;; *************** hier ändern, was du willst *************** ;;
                (OBJEKT_ALLGEMEIN_SET  OBJEKT 153                        ; Farbe
                                              "W-09_02-BOHRACHSEN"      ;<-hier dein Layername
                                              "ACAD_ISO10W100"        ; Linientyp
                                              0.5              ; Linientypfaktor
                                              0.13 )              ; Linienstärke
                ;; *************** hier ändern, was du willst *************** ;;
        )
      )
    )
  )
)

Linientyp und Layer müssen existieren! und es sind STRINGS!-> also in Anführungszeichen übergeben!
wenn du als Parameter für (OBJEKT_ALLGEMEIN_SET ... nil mitgibst , wird nichts verändert, bei "ByLayer" wird die eigenschaft auf "von Layer" gesetzt!

Auf ein neues!

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

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

---

@ cadmium,

danke für Deine Korrektur, aber:

Befehl: appload
SET_BYLAYER.lsp erfolgreich geladen.
Befehl:
<G>anze Zeichnung oder <A>uswahl: <G>
Kann nicht zu LISP zurückkehren.
Ungültiger Optionstitel.
<G>anze Zeichnung oder <A>uswahl: <G>
SET_BYLAYER: "no function definition: UPDATE_OBJEKT"
Befehl: Befehl:

Hab es so übernommen wie Du gepostet hast!
Hast noch eine Idee?

Mfg

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

---

Mit ner Klammer "(" vor defun ????

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

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

---

Oh,

ne!
So wie wie Du es gepostet hast!
Ich probier nochmal!
Du weißt doch das ich da noch nicht viel (bis garkeine) Ahnung von habe!

Mfg

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

---

Bohhhhh Geil!!!

Läuft! Hammer alles fertig!
Vielen vielen tausend Dank!
U's, U's, U's!
Dafür kann man garnicht genug U's geben!
Der Tag ist gerettet!

Gruß Alpschorsch

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

---

ja, schade, das du pro Beitrag bloß einmal max. 10U's vergeben kannste <Lach>

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

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

---

Es sei denn Du würdest Dich zweimal einloggen!
Mit zwei verschiedenen Namen!
Dann kriegste zweimal die 10!

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

---

@alpschorsch:
Nix für ungut, aber...
   
..

[Gilt für mich natürlich auch :-)]

------------------
Ciao,
Marc
   

[Diese Nachricht wurde von marc.scherer am 19. Mrz. 2004 editiert.]

[Diese Nachricht wurde von marc.scherer am 19. Mrz. 2004 editiert.]

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

---

@ marc.scherer,

wat bist Du heute für'n fiesen Möp?
Dafür kann ich besser Kirschkerne weit spucken!

Grüß Dich!

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