---

HI zusammen,

der Dauerfrager ist wieder da.

Eigentlich dachte ich dass es korrekt wäre aber funktionieren tuts nicht.

Ich möchte alle Linien die auf den Layern AQA-newPR01 bis AQA-newPR99 liegen auf den Layer B verschieben. Hierfür habe ich folgendes geschrieben.

(defun C:Produkt(/ A)
(ssget "X" '((0 . "LINE")(8 . "*AQA-newPR*")))
  (command "_change" "EI" "LAyer" "Ltg Produkt" "")

Hoffe mir kann jemand weiterhelfen.

Grüße

Daniel

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

---

müssen wir das Thema nochmal herunter tippen ?
zuletzt gab es eine konkrete Antwort in deinem eigenen Thread: KLICK!

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

an den richtigen Stellen  ersetzt haste doch schon .. nur noch alle Klammern und die anderen Zeilen usw. mitnehmen ( und daran denken  .. das ssget keine Linien in Blockreferenzen sammelt und das commands nur auf das aktuellen Layout angewendet werden )

------------------
       - 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 Daniel,
ich würde das in einer Schleife über ENTMOD machen:

Code:

---

(defun C:Produkt(/ aws n)
(if(setq aws(ssget "X" '((0 . "LINE")(8 . "*AQA-newPR*"))))
  (progn
    (setq n 0)
    (repeat (sslength aws)
      (entmod(subst (cons 8 "Ltg Produkt")(assoc 8 (entget(ssname aws)))
    (entget (ssname aws))))
      (setq n (+ n 1))))))

Wenn Du die Command-Version verwenden willst, dann mußt Du nach dem Erstellen  des Auswahlsatzes auch die "vorherige" Auswahl (_p = Privious) verwendeN:

(command "_change" "_p" "" "ei" "LAYER" "Ltg Produkt" "")

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

@Jörn .. mal cadffms Link gefolgt ? oder erst heute dazugestoßen ? 

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

vielen dank für die Tips.
Das aus dem anderen Thread hatte ich schon probiert allerdings hat es nicht funktioniert.
Daraufhin hab ich selbst mal probiert was zusammen zu schreiben und dadurch weiß ich jetzt warum das andere nicht funktioniert hat. Jetzt gehts.

;legt alle genannten Layer auf den Layer Ltg Produkt
(defun C:Produkt(/ A)
  (setq A (ssget "_x" '((0 . "LINE")(8 .
  "*AQA-newPR*"))))
  (sssetfirst nil nil)
  (command "_change" A "" "_properties" "_layer" "Ltg Produkt" "")
)

Dankeschön

Grüße

Daniel

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

---

Zitat:

---

Original erstellt von Daniel Möller:
Hallo,

vielen dank für die Tips.
Das aus dem anderen Thread hatte ich schon probiert allerdings hat es nicht funktioniert.
Daniel

---

Was hat denn nicht funktioniert ?

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

---

Es lief durch aber die Leitungen waren trotzdem noch auf dem alten Layer.

(0 . "LINE") das hieß vorher (0 . "INSERT")

danach lief es ohne Probleme. Gibt es für Texte auch eine entsprechende nummer im DXF-Code?

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

---

Hi,

SCNR:
>> Gibt es für Texte auch eine entsprechende nummer im DXF-Code?

Schon gesucht (Hilfe-DXF Referenz) oder der Einfachheit halber die Suche den anderen überlassen

- alfred -

------------------
www.hollaus.at

---

  das als nicht funktionieren zu bezeichnen ?! .. naja .... mit dem Befehl _line bekomme ich auch keinen Kreis gezeichnet ....

für Texte wäre das (0 . "*TEXT")  ... du sollstes dich mal mit der DXF-Referenz vertraut machen!

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

---

@CADmium,

Zitat:

---

@Jörn .. mal cadffms Link gefolgt ? oder erst heute dazugestoßen ? 

---

So genau hatte ich das bisher nicht verfolgt, aber da mein Beitrag wieder zwischen zwei Telefongesprächen stattgefunden hat habe ich auch erst später den Link von CADffm entdeckt.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Da ich erst seit zwei Tagen mit diesem Thema zu tun habe ist das noch alles fremd für mich. Tut mir leid falls machne Frage doppelt kamen

Die Funktionen die ich jetzt benötige habe ich alle zusammen und diese funktionieren auch. Vielen Dank dafür.
Generell interessiert mich das Thema schon eine Weile daher
werde ich mich mal dahinter klemmen und die Grundlagen durcharbeiten.

Im Netz habe ich schon ein paar hilfreiche Seiten gefunden evtl. werde ich mir auch das eine Buch zulegen falls man es noch bekommt.

Ich hoffe in naher Zukunft werde ich auch dem einen oder andern hier weiterhelfen können.

Grüße

Daniel

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