| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Linien von Layer A auf Layer B setzen (1389 mal gelesen)
|
Daniel Möller Mitglied Konstrukteur
Beiträge: 53 Registriert: 28.11.2006 Dell Precision T3500 Westmere Intel Xeon W3550 12,00 GB RAM 146GB SAS RAID 0 System Nvidia Quadro 2000 1GB Microsoft Windows 7 64bit AutoCAD 2010 AutoCAD P&ID 2010
|
erstellt am: 07. Jul. 2010 10:53 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 07. Jul. 2010 11:02 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 07. Jul. 2010 11:05 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 07. Jul. 2010 11:07 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 07. Jul. 2010 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
|
Daniel Möller Mitglied Konstrukteur
Beiträge: 53 Registriert: 28.11.2006 Dell Precision T3500 Westmere Intel Xeon W3550 12,00 GB RAM 146GB SAS RAID 0 System Nvidia Quadro 2000 1GB Microsoft Windows 7 64bit AutoCAD 2010 AutoCAD P&ID 2010
|
erstellt am: 07. Jul. 2010 11:12 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 07. Jul. 2010 11:15 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
|
Daniel Möller Mitglied Konstrukteur
Beiträge: 53 Registriert: 28.11.2006 Dell Precision T3500 Westmere Intel Xeon W3550 12,00 GB RAM 146GB SAS RAID 0 System Nvidia Quadro 2000 1GB Microsoft Windows 7 64bit AutoCAD 2010 AutoCAD P&ID 2010
|
erstellt am: 07. Jul. 2010 11:26 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied
|
erstellt am: 07. Jul. 2010 11:29 <-- editieren / zitieren -->
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 07. Jul. 2010 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 07. Jul. 2010 11:57 <-- editieren / zitieren --> Unities abgeben: Nur für Daniel Möller
|
Daniel Möller Mitglied Konstrukteur
Beiträge: 53 Registriert: 28.11.2006 Dell Precision T3500 Westmere Intel Xeon W3550 12,00 GB RAM 146GB SAS RAID 0 System Nvidia Quadro 2000 1GB Microsoft Windows 7 64bit AutoCAD 2010 AutoCAD P&ID 2010
|
erstellt am: 07. Jul. 2010 16:45 <-- editieren / zitieren --> Unities abgeben:
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 |