| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: 450 vorgegebene Layer zeichnen (1628 mal gelesen)
|
rosenkohl Mitglied
Beiträge: 5 Registriert: 17.04.2007
|
erstellt am: 17. Apr. 2007 13:16 <-- editieren / zitieren --> Unities abgeben:
Hallo alle miteinander, ich freue mich das es so ein Forum wie diese gibt, und hoffe das ich hilfe bekommen kann und auch selbst helfen kann. Ich habe folgende problematik zu lösen. Ich habe eine Vorlagedatei mit 450 vorgegebenen Layern. ich muss für jeden Layer eine Linie im Modelbereich zeichnen und über diese Linie den Namen des Layers schreiben. Weis jemand wie ich das schnellstmöglich lösen kann das problemchen. Ich kann gerne diese Vorlage zur Verfügung stellen wenn das jemand mag. Ich danke allen für Ihre Hilfe. Grüße Rosenkohl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 17. Apr. 2007 13:52 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
Hi und herzlich willkommen, Zitat: Original erstellt von rosenkohl: Weis jemand wie ich das schnellstmöglich lösen kann das problemchen.
Ja! Aber sag doch mal: Ist das eine Straf- oder andere Arbeit? Quasi virtuelles "In-die-Ecke-stellen" oder "Mit-dem-Rohrstock-den-Hintern-verhauen", bzw. "Mach-das-und-lern-es"? Dann sollst du es doch lösen, oder nicht?
Drum von mir nur ein Hinweis in eine Richtung: Schriftfelder. Gruß CADchup
------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mathias Hahn Mitglied Konstrukteur
Beiträge: 36 Registriert: 28.08.2003 Autocad 2002lt, Pit-Cup 5.1 Elektro/Bau, WSCAD 4.3
|
erstellt am: 17. Apr. 2007 13:58 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
Hallo, 1 Linie auf Layer Null zeichnen, Befehl REIHE wählen, 450 Zeilen und Abstand eingeben. Jede Linie anklicken und auf entsprechenden Layer legen. Befehl LISTE wählen, alles markieren. Die Befehlsbox kopieren und in Zeichnung einfügen. Linien zu entsprechender Layerbezeichnung verschieben und den überflüssigen Text löschen. viel Spaß 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: 17. Apr. 2007 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
Zitat: Original erstellt von Mathias Hahn: Hallo,Befehl LISTE wählen, alles markieren. Die Befehlsbox kopieren und in Zeichnung einfügen. Linien zu entsprechender Layerbezeichnung verschieben und den überflüssigen Text löschen. viel Spaß
Und wenn Du jetzt diesen Vorschlag und jenen von CADchup kombinierst, kannst Dir das zitierte ersparen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rosenkohl Mitglied
Beiträge: 5 Registriert: 17.04.2007
|
erstellt am: 17. Apr. 2007 14:14 <-- editieren / zitieren --> Unities abgeben:
nö,nö das ist keine Strafarbeit, und zeichnen tu ich schon seit 10 Jahren (seit gestern mit Acad 2008 ) Zitat: Jede Linie anklicken und auf entsprechenden Layer legen.
ja genau das wollte ich mir ersparen! Danke für euere Hilfe. Grüße Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 17. Apr. 2007 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
|
E-Boy Ehrenmitglied V.I.P. h.c. Elektroinstallateurmeister
Beiträge: 2731 Registriert: 23.06.2005 Autocad MEP 2019 E-Tools Win 10
|
erstellt am: 17. Apr. 2007 14:20 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
Hi habe mal kurz probiert, also habe mit dem Tool "LAYERHTM" die Layernamen ausgelesen und in eine Exceltabelle geschrieben. Dann mit Inhalte einfügen die Tabelle inportiert. Dann stehen schon mal alle Layernamen da und die Linien sind auch gleich drunter. Das einzelne anwählen der Linien bleibt Dir aber nicht erspart. *edit* Dauert keine 5min *edit* ------------------ Gruß Stefan Nur Feiglinge speichern zwischen. [Diese Nachricht wurde von E-Boy am 17. Apr. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rosenkohl Mitglied
Beiträge: 5 Registriert: 17.04.2007
|
erstellt am: 17. Apr. 2007 14:35 <-- editieren / zitieren --> Unities abgeben:
Hab da mal nen screenshot gemacht und als Datei angehängt von ner fertigen Vorlage. So muss das aussehen wenns fertig ist (Ich hoffe das funktioniert mit dem Datei Anhängen). Von scripten habe ich leider keine Ahnung ist mir zu (S)kryptisch. Ich finde das echt toll wie Ihr euch da reinhängt. Binn aber jetz mal kurz bein Reifenwechseln. tschau
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rosenkohl Mitglied
Beiträge: 5 Registriert: 17.04.2007
|
erstellt am: 17. Apr. 2007 14:39 <-- editieren / zitieren --> Unities abgeben:
Also ich werde dann mal das eine und andere ausprobieren. Aber mit dem Hinweis Schriftfelder konnte ich nichts anfangen. Auser datu, Uhrzeit usw. kann ich da nichts auslesen. Wenn ich zu ner braubaren Lösung gekommen bin dann sag ich bescheid. Wobei wohl niemand diese Probleme hat. Ausser er arbeitet in der Mobilfunkbranche. Aber jetzt muss ich los Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
E-Boy Ehrenmitglied V.I.P. h.c. Elektroinstallateurmeister
Beiträge: 2731 Registriert: 23.06.2005 Autocad MEP 2019 E-Tools Win 10
|
erstellt am: 17. Apr. 2007 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2014 win7x64bit
|
erstellt am: 17. Apr. 2007 14:52 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
Hallo Rosenkohl, das Progi Listet alle Layernamen auf und Du kannst diese in die Zeichnung einfügen wie eine Legende. Sieht dann so aus wie dein Beigefügtes Bild. Leider liegt die Polylinie vor dem Layername nicht auf den entsprechenden Layer, aber ich bin überzeugt das einer im Forum das vieleicht noch ergänzen kann. Gruß Jürgen (defun c:layer-lw-list (/ p row y ts xd plinewidold) (setvar "cmdecho" 0) (setvar "textsize" 5.0) (command "_-layer" "_ma" "-RAHMEN" "") (command "_-color" "_byLayer" "") (command "_-linetype" "_s" "_bylayer" "") (setq p (getpoint "Startpunkt Layerliste: ")) (setq ts (getvar "textsize")) (setq y (cadr p)) (setq xd (* ts 15)) ; dist between columns (setq plinewidold (getvar "PLINEWID")) (if p (foreach row (ax:layer-lw-list) (command "text" p "" "" (car row)) (setvar "PLINEWID" (* (/ ts 2.11) (cadr row))) (command "_pline" (list (- (car p) (* 0.1 xd)) (+ (cadr p) (/ ts 2.0)) (caddr p)) (list (- (car p) (* 0.5 xd)) (+ (cadr p) (/ ts 2.0)) (caddr p)) "" ) (command "text" (list (+ (car p) xd) (cadr p) (caddr p)) "" "" (caddr row)) (setq y (- y (* ts 1.66667))) (setq p (list (car p) y (caddr p))) ) ) (command "_color" "_bylayer" "") (setvar "PLINEWID" plinewidold) (setvar "cmdecho" 1) (princ) )
[Diese Nachricht wurde von Jürgen Scheeren am 17. Apr. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rosenkohl Mitglied
Beiträge: 5 Registriert: 17.04.2007
|
erstellt am: 17. Apr. 2007 16:26 <-- editieren / zitieren --> Unities abgeben:
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2014 win7x64bit
|
erstellt am: 17. Apr. 2007 16:34 <-- editieren / zitieren --> Unities abgeben: Nur für rosenkohl
ganz einfach, kopiere einfach den Code in Notepad und speicher das ganze als layer-lw-list.lsp ab. Dann in Autocad unter Extras->Anwendungen Datei aufrufen und auf Laden Drücken dann den Dialog schließen. In die Befehlszeile layer-lw-list eingeben und in die Befehlszeile schauen was Du machen sollst. Ganz easy. Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |