| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Layernamen kopieren mit Ergänzung (824 mal gelesen)
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 21. Jan. 2007 20:33 <-- editieren / zitieren --> Unities abgeben:
kann mir bitte einen Hinweis geben ob es zu meiner Frage schon eine Beitrag gibt; ich suche nach einer Möglichkeit Layernamen in der Zeichnung zu kopieren und eine freie Namenserweiterung anzufügen oder davor zu setzen; wie -> aktueller Layername 'Bauwerk' wird kopiert in neu erzeugten layer 'Bauwerk-Pu' leider sind die Erweiterung vielfälltig dafür aber nur kurz wie -Koo, -Pu,-Hö usw., die Ausgangslayer sind auch nicht gleich in den zu verarbeitet Plänen; die Layer sind neu zu erzeugen der Layerinhalt selbst wird aber nicht gebraucht, meine Versuche mit *-koo oder ???????-Koo sind fehlgeschlagen ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 21. Jan. 2007 21:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Ein Beitrag in der Richtung ist mir nicht bekannt, wohl aber die Expresstools-Funktion "copy objects to new layer" was dem Befehlsaufruf copytolayer entspricht und eine ziemlich "Hilfe" bei deiner Aufgabenstellung sein sollte. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 21. Jan. 2007 21:34 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Hallo, das geht schon, nur ich hab das jetzt mal hart verdrahtet als Test. Wie flexibel stellst du Dir das vor? Ich mein ein Layer kann nur 1x denselben Namen haben, oder reden wir dann von Layern die mit Like 'Bau*' beginnen oder mit like '*bau' enden? lg Nancy --
Code:
Sub dest() Dim objLay As AcadLayer With ThisDrawing.Layers For Each objLay In ThisDrawing.Layers If objLay.Name = "Bauwerk" Then On Error Resume Next .Add objLay.Name & "_" & InputBox("Layeranhang angeben:", objLay.Name) Exit For End If Next End With End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
walter.f Mitglied Orgelbauer
Beiträge: 918 Registriert: 28.04.2005
|
erstellt am: 21. Jan. 2007 22:18 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Hallo! Ich weiß nicht, ob Dir das hilft, aber... Ich habe für solche Zwecke eine Zeichnung, in der ich leere Layer, mit Namen, die ich immer wieder brauche, angelegt habe. Die ziehe ich über das Design - Center in meine aktuelle Zeichnung. Damit ich keine Probleme mit bereits vorhandenen Layern bekomme, haben sie alle das 'Anhängsel' -00. Nun gibt es die praktische Funktion 'umbenenn' ('_rename'). Damit können alle Layer in einem Rutsch umbenannt werden und z.B. eine neue Endung bekommen (einfach mit '*' als Platzhalter, z.B. *-00 umbenennen in *-Var01 ändert alle meine Layer aus dem Design-Center) Vielleicht kannst Du damit etwas anfangen... Gruß, Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
melektra Mitglied
Beiträge: 238 Registriert: 15.05.2003 AutoCAD 2016; Windows 10 Prof(64bit);Plotter:HP Designjet T920 36-in PostScript ePrinter; CorelDraw X7 (Projektierung Verkehr / Dr.Haller)
|
erstellt am: 22. Jan. 2007 10:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Ich weiß nicht obe Dir das weiterhilft (falls ich Dich richtig verstanden habe...) Layer wie von cadffm beschrieben kopieren und dann mit dem Befehl umbenenn (über Tastatur eingeben)Deine Layer entsprechend benennen. Da kannst Du Layer, Blöcke, etc. umbenennen und zwar auch mehrere auf einmal. Gruß, Kerstin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 667 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 22. Jan. 2007 13:09 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
(DEFUN c:l-erw ( / n l-liste erw ) (SETQ erw (GETSTRING "\Suffix: ")) (SETQ n (gc_dxf 2 (tblnext "layer" T))) (WHILE n (SETQ l-liste (CONS n l-liste)) (SETQ n (gc_dxf 2 (tblnext "layer"))) ) (FOREACH n l-liste (COMMAND "_-layer" "_m" (STRCAT n erw) "")) )
Ciao Georg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 22. Jan. 2007 21:40 <-- editieren / zitieren --> Unities abgeben:
danke allen die weiter geholfen haben, die LSP von 'gmk' werde ich morgen testen; bin nicht so ein Fachmann das ich den Inhalt gleich erkenne. Im Prinzip müßte in der LSP von 'startrek' in der Zeile <If objLay.Name = "Bauwerk" Then> der Layername das aktuellen Layers selbständig ausgelesen und an die Stelle "Bauwerk" gesetzt werden, dann würde es meinen Vorstellungen entsprechen. Die Einstellungen von Farbe und ec. könnten im neuen Layer entweder übernommen (vom aktuellen) oder auf Standartwerte gesetz werden. Dies wäre egal weil ich diese sowieso ändern muss. Bin überrascht das ich der erste sein sollten der sowas braucht, oder benutzen so viele den Layercommander? Die Vorschläge mit 'umbenennen' und der Vorlage sind nicht geeignet. Trotzdem Dank! Alles was mit COPY zu tun hat setzt ja voraus, daß man den Layer schon benannt hat, oder den Namen dabei neu eingibt, eine Namensübername mit Ergänzung einer zusätzlichen Bezeichnung (-PU o. -KOO), ist nach meinem Kenntnisstand nicht möglich. Würde mich freuen wenn noch Hinweise oder selbstgebastelte Tools eingestellt werden, da es ja was neues im Forum zu sein scheint. ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 22. Jan. 2007 22:46 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
gb.planung Mitglied Mädchen für alles
Beiträge: 150 Registriert: 31.12.2006 HP Z400,8GB Ram NVidia FX 3800, 1GB WINDOWS 7, 64-Bit ACAD und LT bis 2012 HP 750 C+
|
erstellt am: 23. Jan. 2007 00:10 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Zitat: Original erstellt von Bauvermesser: kann mir bitte einen Hinweis geben ob es zu meiner Frage schon eine Beitrag gibt; ich suche nach einer Möglichkeit Layernamen in der Zeichnung zu kopieren und eine freie Namenserweiterung anzufügen oder davor zu setzen; wie -> aktueller Layername 'Bauwerk' wird kopiert in neu erzeugten layer 'Bauwerk-Pu' leider sind die Erweiterung vielfälltig dafür aber nur kurz wie -Koo, -Pu,-Hö usw., die Ausgangslayer sind auch nicht gleich in den zu verarbeitet Plänen; die Layer sind neu zu erzeugen der Layerinhalt selbst wird aber nicht gebraucht, meine Versuche mit *-koo oder ???????-Koo sind fehlgeschlagen
Servus, wenn ichs richtig verstanden habe willst du dir beim Erzeugen eines neuen Layers die Tipperei ersparen. Du kannst dir z. B. den Layernamen aus dem Layerdialogfenster oder aus einem Textprogramm mit der rechten Maustaste in die Zwischenablage kopieren und bei Anlegen eines neuen Layers mit der rechten Maustaste ins Layerdialogfeld kopieren und danach den restlichen Text ergänzen. Du mußt nur aufpassen, dass der Layername den du einfügst nicht schon vorhanden ist(evtl. beim Einfügetext den letzten Buchstaben weglassen). Gruß Gerhard ------------------ Die Schlauen leben von den Dummen und die Dummen von ihrer Arbeit Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 23. Jan. 2007 22:45 <-- editieren / zitieren --> Unities abgeben:
Hallo alle Helfer, Gerhard hat mein Anliegen Richtig erkannt, nur das ich bei all den vielen LSP die es mitlerweile gibt, geglaubt habe, hier nicht auf ein Problem zu stoßen, will mir einfach die Tipperei ersparen da ich oft mit sehr langen Layernamen zu tun habe, das mit den Kopieren mache ich die ganze Zeit und kotze ab wenn ich wiedermal einen Buchstaben vergessen habe. So wird aus drei Arbeitsschritten schnell das doppelte, wenn man Ordnung halten will. Bei dem Beitrag von lg Nancy kommt ein Fehlerhinweis das ein Punkt falsch gesetzt ist. Die LSP von Georg müsste mir mal kurz erläutert werden da sie bei mir auch nicht läuft. (Leider Fehlermeldung nicht mehr ganz im Kopf, da kam was mit 'gc_dxf 2' ). Muss ich da eine Liste mit den Kürzeln anlegen aus der die Erweiterungen dann eingesetz werden ? Ich bitte um ein Beispiel. Die ExpressTools habe ich nicht drauf. Der Layercommander ist mir von Freuden bekannt (Version 6.5.12 auf ACAD 2000),ist aber leider keine Freeware von K. Dummer. ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 24. Jan. 2007 07:53 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 667 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 24. Jan. 2007 10:06 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
jetzt müßte es laufen (DEFUN c:l-erw ( / n l-liste erw ) (SETQ erw (GETSTRING "\nSuffix: ")) (SETQ n (CDR (ASSOC 2 (tblnext "layer" T)))) (WHILE n (SETQ l-liste (CONS n l-liste)) (SETQ n (CDR (ASSOC 2 (tblnext "layer")))) ) (FOREACH n l-liste (COMMAND "_-layer" "_m" (STRCAT n erw) "")) )
Ciao Georg [Diese Nachricht wurde von gmk am 24. Jan. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 25. Jan. 2007 22:32 <-- editieren / zitieren --> Unities abgeben:
danke für die Änderung, es läuft , aber leider zu viel das guten da ja alle layer mit der Namenserweiterung neu angelegt und erstellt werden, könnte man durch eine Befehlszeile den Erweiterungsbefehl nur auf den aktuellen layer beschränken, auch die gesperrten layer werden mit Erweiterung neu angelegt ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 667 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 26. Jan. 2007 10:56 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 27. Jan. 2007 21:30 <-- editieren / zitieren --> Unities abgeben:
Mensch große Klasse, genau was ich brauche, Besten Dank, hat sich meine Ausdauer zu diesem Beitrag gelohnt, habe versucht den befehl für 'Präfix' umzuschreiben als 2. Button, wird bei mir aber nichts kann es sein das dies nicht geht, bin aber schon froh über die 'Suffix' Lösung ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004
|
erstellt am: 28. Jan. 2007 12:21 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 30. Jan. 2007 21:52 <-- editieren / zitieren --> Unities abgeben:
Besten dank, beide befehle funktionieren gut, aber mein System spinnt, wenn ich ACAD neu starte sind die Button's weg, muss mit dem command Befehl zusammen hängen, allerdings habe ich andere befehle (in Button's) die mit 'command' beginnen und die laufen seit längerem; wenn ich in das gleiche Buttonfenster einen anderen einfachen Befehl einfüge bleibt es bestehen??????? nur unklar was da los ist da die befehle noch in der ACAD.mnu drinn stehen, habt Ihr eine Rat ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner, keine Adminrecht
|
erstellt am: 02. Feb. 2007 22:48 <-- editieren / zitieren --> Unities abgeben:
muss nochmal nachfragen: wieso verschwindet der Befehl aus den Buttons, aber eben nur dieser! wollte es als LSP laufen lassen defun C:suf () (COMMAND "_-layer" "_m" (STRCAT (GETVAR "clayer") (GETSTRING "-Suffix eingeben :")) "") kommt aber eine fehlermeldung ich bitte um Rat ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 667 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 04. Feb. 2007 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|