| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: mit Makro Layer automatisch umbenennen (984 mal gelesen)
|
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)
   Beiträge: 313
Registriert: 12.05.2007 Software:
AutoCAD MEP 2015
Excellink 2013
Windows 8.1 x64 Pro
Office 2013 SP 1
Mozilla Firefox 30.0
<P>Hardware:
ASUS P8H61
Intel Core i7-2600K, 4x 3.4GHz
PNY Quadro FX 1800
Kingston 16GB Kit
Samsung 840 Pro SSD 256GB, SATA 6Gb/s
|
erstellt am: 12. Feb. 2008 17:00  <-- editieren / zitieren -->   Unities abgeben:          
Hallo! Ich möchte mit einem Makro alle Layer mit dem Präfix 2H_ umbenennen in HZ_!
Mit dem Befehl -UMBENENN\LA möchte ich alle Layer auswählen die mit 2H_ beginnen!
Wie mache ich das??
Habs mit dem Wildcard * probiert funzt aber leider nicht! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cosgeo
Mitglied
Vermessungsingenieur
Beiträge: 591
Registriert: 16.12.2004 Windows 8 64bit
AutoCad Map 3D
AutoCAD Civil3D
MapGuide
COSGeo - Vermessungsaplikation
COSALKIS - Konverter
Xeon 3,3 GHz, 16GB RAM
HP 1050
|
erstellt am: 12. Feb. 2008 17:30 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor 
Ich wage zu behaupten, daß keine Wildcards zulässig sind. Schon mal das Layer-Konvertierungsprogramm angetestet, ev läßt sich damit was erreichen ? (EXTRAS / CAD_Standards/Layer...) ------------------
Wer aufräumt - ist nur zu faul zum suchen :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cosgeo
Mitglied
Vermessungsingenieur
Beiträge: 591
Registriert: 16.12.2004 Windows 8 64bit
AutoCad Map 3D
AutoCAD Civil3D
MapGuide
COSGeo - Vermessungsaplikation
COSALKIS - Konverter
Xeon 3,3 GHz, 16GB RAM
HP 1050
|
erstellt am: 12. Feb. 2008 17:46 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
OK - das Layerkonvertierungsprogramm taugt da auch nix - hab etwas rumgetestet :-( Da bleibt wohl nur LISPELn oder auf AutoCAD 2009 warten... ------------------
Wer aufräumt - ist nur zu faul zum suchen :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun
Ehrenmitglied
Beiträge: 1846
Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit
HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
ATI FirePro V (FireGL V) Graphics Adapter
Treiberversion: 15.201.1151.1008
|
erstellt am: 12. Feb. 2008 18:33 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
Aber natürlich funkt das die Layer 2H_* umbenennen auf HZ_* Habe zu schnell gelesen, funkt in Kommandozeilenmode natürlich nicht, sorry [Diese Nachricht wurde von cad4fun am 13. Feb. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Claudio
Mitglied
Architekt
Beiträge: 334
Registriert: 13.04.2002
|
erstellt am: 12. Feb. 2008 19:00 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
In Lisp würde das so aussehn : Gruß Claudio
(defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu)
(setq Nam_A (getstring "\nALTER Teilstring von Layernamen :")
Nam_N (getstring "\nNEUER Teilstring von Layernamen :")
LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
(Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i 'Name)
(if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu))
(Princ (strcat "Layer " Nam_Neu " konnte nicht umbenannt werden!"))
(command "_-rename" "LA" Nam_Alt Nam_Neu)) ))
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Claudio
Mitglied
Architekt
Beiträge: 334
Registriert: 13.04.2002 ACA, Revit, MAX 2020
|
erstellt am: 12. Feb. 2008 19:13 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
Wohl nicht mein Tag -> Hier die RICHTIGEN Zeilen: (defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu)
(setq Nam_A (getstring "\nALTER Teilstring von Layernamen :")
Nam_N (getstring "\nNEUER Teilstring von Layernamen :")
LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
(Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i 'Name)
Nam_Neu (vl-string-subst Nam_N Nam_A Nam_Alt))
(if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu))
(Princ (strcat "\nLayer " Nam_Neu " wurde nicht umbenannt."))
(command "_-rename" "LA" Nam_Alt Nam_Neu)) ))
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)
Beiträge: 313
Registriert: 12.05.2007 Software:
AutoCAD MEP 2015
Excellink 2013
Windows 8.1 x64 Pro
Office 2013 SP 1
Mozilla Firefox 30.0
<P>Hardware:
ASUS P8H61
Intel Core i7-2600K, 4x 3.4GHz
PNY Quadro FX 1800
Kingston 16GB Kit
Samsung 840 Pro SSD 256GB, SATA 6Gb/s
|
erstellt am: 13. Feb. 2008 09:41 <-- editieren / zitieren --> Unities abgeben:
|
j-sc
Ehrenmitglied
Beiträge: 1837
Registriert: 14.07.2003 W7 64Bit
intel core I7 2,8GHz / 4GB
ATI FIRE PRO V5800
acad2011
acad2015
acad2018
Athena
Expresstools
|
erstellt am: 13. Feb. 2008 09:51 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
Zitat:
Original erstellt von cad4fun:
Aber natürlich funkt das
die Layer
2H_*
umbenennen auf
HZ_*
Wenn Du weißt, wie - warum teilst Du Dein Wissen hier nicht? Denn mit -umbenenn oder _.-rename geht's nämlich nicht. ------------------
Ciao
J-SC
 ... geht's vielleicht doch? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
erstellt am: 13. Feb. 2008 10:06 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
|
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)
Beiträge: 313
Registriert: 12.05.2007 Software:
AutoCAD MEP 2015
Excellink 2013
Windows 8.1 x64 Pro
Office 2013 SP 1
Mozilla Firefox 30.0
<P>Hardware:
ASUS P8H61
Intel Core i7-2600K, 4x 3.4GHz
PNY Quadro FX 1800
Kingston 16GB Kit
Samsung 840 Pro SSD 256GB, SATA 6Gb/s
|
erstellt am: 13. Feb. 2008 10:36 <-- editieren / zitieren --> Unities abgeben:
|
cad4fun
Ehrenmitglied
Beiträge: 1846
Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit
HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
ATI FirePro V (FireGL V) Graphics Adapter
Treiberversion: 15.201.1151.1008
|
erstellt am: 13. Feb. 2008 15:44 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
Die Routine von Claudio funkt dann gut, wenn keine Xref's mit Layern zugeornet sind, welche auch dem Suchmuster entsprechen. Dann wird die Routine abgebrochen und verlangt alte Layernamen usw. Am Ende ist dann ein Layer umbenannt und der andere nicht, also unkontrolliertes Verhalten (vielleicht könnte Claudio die Suche noch auf die aktuelle DWG beschränken). Super, dass das Suchmuster auch mitten im Layernamen oder am Ende enthalten sein darf, was ja im Dialog auch nicht möglich ist. U's sind unterwegs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Claudio
Mitglied
Architekt
Beiträge: 334
Registriert: 13.04.2002
|
erstellt am: 13. Feb. 2008 16:33 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
@cad4fun ...damit es auch bei geladenen XREFs funktioniert -> Gruß Claudio
(defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu)
(setq Nam_A (getstring "\nALTER Teilstring von Layernamen :")
Nam_N (getstring "\nNEUER Teilstring von Layernamen :")
LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
(Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i 'Name)
Nam_Neu (vl-string-subst Nam_N Nam_A Nam_Alt))
(if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu)(vl-string-search "|" Nam_Alt))
(Princ ".") (command "_-rename" "LA" Nam_Alt Nam_Neu) )
(princ)) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun
Ehrenmitglied
Beiträge: 1846
Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit
HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
ATI FirePro V (FireGL V) Graphics Adapter
Treiberversion: 15.201.1151.1008
|
erstellt am: 13. Feb. 2008 18:06 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
|
| | Elektrokonstrukteur (m/w/d) | | Die besten Köpfe für die unterschiedlichsten Aufgaben zu finden sowie Menschen und Technologien zu verbinden, und zwar täglich aufs Neue - dafür schätzen unsere Kunden FERCHAU. Unterstütze uns: als ambitionierte:r Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren spannende Projekte für namhafte Kunden in den Technologiebereichen Elektro- und Automatisierungstechnik und überzeugen täglich mit fundierter Expertise und fachlichem Know-how.... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
erstellt am: 13. Feb. 2008 19:50 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
|
Foren auf CAD.de (alle Foren)
| 
