Gruppennamen global ändern / Layernamen aus Gruppennamen erstellen (Autodesk/Rund um AutoCAD)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY wird von NVIDIA zum Händler des Jahres gewählt zum dritten Mal in Folge, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Gruppennamen global ändern / Layernamen aus Gruppennamen erstellen (308 mal gelesen)
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D	erstellt am: 31. Okt. 2002 11:04 <-- editieren / zitieren --> Unities abgeben: Hy Forum! 2 Problemchen habe ich wieder mal... 1: Ich habe in meiner Zeichnung zahlreiche Gruppen (z.b.:KWM-3012-65-D16JB, WS-2042-50-R16PH, etc.). Nun möchte ich "allen" Gruppen noch ein "Rohr-" vorne beim Namen dazugegen. Wie kann ich das schnell erledigen ohne jede Gruppe einzeln umbenennen zu müssen? 2: Ich brächte alle Gruppennamen auch als Layernamen. Heist wenn ich eine Gruppe "WS-2042-50-R16PH" habe - will ich auch einen gleichnamigen Layer erstellen. Habe glaub ich über 100 solcher Gruppen und will mir nicht die Finger wund tippen... Hat irgendjemand eine Idee wie man das (ev. mit lisp) lösen kann? ------------------ mfg Siegfried Schachinger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore	erstellt am: 31. Okt. 2002 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger Theoretisch gehts, Gruppen namen aus DB auslesen 1.mit zusatz Rohr versehen. wieder auslesen in Texteditor und über ein Layer tool in dir Zeichnung zurück. Aber frag mich nicht wie man sowas lipelt. cw PS Bin gespant was die Weissen dazu sagen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Bernd Cuder Mitglied Selbständig Beiträge: 692 Registriert: 10.07.2002 AutoCAD 2002/2004/2005 unter Windows 2000 Professional SP3 PIV 3.4GHz 1024MB NVIDIA GeForce FX Go5700	erstellt am: 31. Okt. 2002 15:34 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger Anbei Code für VBA, in AutoCAD ALT-F11 um VBA Editor zu starten, im Menü Einfügen->Modul wählen, Modul öffnen und Code reinkopieren. In AutoCAD unter Extras->Makro->Makros NewName starten. Layer wird mit neuen Namen (also mit Rohr-) erzeugt. Falls alter Name gleich Layername sein soll, dann Zeilen 1 und 2 tauschen Option Explicit Public Sub NewName() Dim objGroup As AcadGroup Dim strName As String For Each objGroup In ThisDrawing.Groups strName = Left(objGroup.Name, 5) If strName <> "Rohr-" Then objGroup.Name = "Rohr-" & objGroup.Name '1 ThisDrawing.Layers.Add objGroup.Name '2 End If Next End Sub ------------------ Bernd Cuder Cad&Co makes CAD easy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
TLieske Mitglied Bauingenieur Beiträge: 247 Registriert: 12.07.2002 18xAutoCAD, SofiCAD, Vestra, AutoTURN, WinXP_Prof(SP3), PIV-3, 4GBRAM, 2xHP1050C, CARD1, Microstation, AutoVUE ...	erstellt am: 31. Okt. 2002 15:40 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger Hi Siegfried, tja, der befehl Umbenennen bietet nix für Gruppen. Und das wäre genau das, was Du suchst. Und die Gruppe-Dialogbox bietet nur Möglichkeit für das Umbenennen einer Gruppe... Mit Lisp sollte das eigentlich erledigt sein. Oder schau mal in gewissen Foren (hab nicht nachgeschaut): www.cadwiesel.de www.cadalog.com www.autolisp.mapcar.net www.cadstudio.cz www.industrie24.com oder schaust mal im Lisp-Forum von www.cad.de ------------------ *Thomas Lieske* Schüßler-Plan Ing.-GmbH Frankfurt-Sachsenhausen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D	erstellt am: 31. Okt. 2002 15:51 <-- editieren / zitieren --> Unities abgeben: Hallo Bernd! Wow! Danke für die rasche und richtige Hilfe!! Funkt wunderbar :-) ------------------ mfg Siegfried Schachinger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Bernd Cuder Mitglied Selbständig Beiträge: 692 Registriert: 10.07.2002 AutoCAD 2002/2004/2005 unter Windows 2000 Professional SP3 PIV 3.4GHz 1024MB NVIDIA GeForce FX Go5700	erstellt am: 01. Nov. 2002 23:55 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger So schnell wars auch wieder nicht, exakt 4 und ne halbe Stunde. Ist aber daran gelegen das ich meinen Computer erst um 15.00 eingeschalten habe. Ich war selber baff das das nur so wenig Zeilen in VBA sind, eine könnte ich sogar noch reduzieren. ------------------ Bernd Cuder Cad&Co makes CAD easy [Diese Nachricht wurde von Bernd Cuder am 01. November 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)