| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Layernamen in Zeichnung schreiben (628 mal gelesen)
|
abc-schuetze Mitglied
Beiträge: 3 Registriert: 23.10.2006 Acad 2005
|
erstellt am: 23. Okt. 2006 14:17 <-- editieren / zitieren --> Unities abgeben:
Hallo! kann mir jemand sagen, wie ich den Layernamen (über den die Profilbezeichnung hinterlegt ist) in die Zeichnung einfügen kann ohne den text jedes mal händig einzufügen? kann man das als script schreiben? wenn ja, wie lautet das script? Danke! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 23. Okt. 2006 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für abc-schuetze
Sorry, ich habe es jetzt dreimal durchgelesen und bin immer noch nicht schlauer. Welche Layernamen möchtest Du wo angeschrieben haben? Von welcher Profilbezeichnung sprichst Du? Welche ACAD Version verwendest Du? ------------------ Viele Grüße Lutz Glück Auf! 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: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 23. Okt. 2006 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für abc-schuetze
Hallo ABC Schütze Mit AutoCAD 2006 oder höher würde man ein SCHRFITFELD (Text mit variablen Inhalt) in eine Vorlagendatei einfügen, so dass beim erstellen einer neuen Zeichnung immer der jeweilige Layername als Text an gewählter Position angezeigt wird. Aber fülle doch bitte zuerst deine Sysinfo aus, damit wir wissen, welche AutoCAD Version du einsetzt. SCRIPT ist eigentlich dafür nicht nötig. ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
abc-schuetze Mitglied
Beiträge: 3 Registriert: 23.10.2006 Acad 2005
|
erstellt am: 23. Okt. 2006 14:25 <-- editieren / zitieren --> Unities abgeben:
ich habe verschiedene layer in meiner zeichnung. die namen sind: "0", "1", "2", ... ,"RRO 100x60x5" die profilbezeichnungen weichen immermal voneinander ab, also müsste es da nen filter geben. ich benutze acad2005 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: 23. Okt. 2006 15:02 <-- editieren / zitieren --> Unities abgeben: Nur für abc-schuetze
Wenn ich Dich richtig verstehe, fügst Du das Profil XYZ auf dem Layer XYZ ein. Damit könntest Du den Namen des Objektes(Block) oder-wie Udo schon schrieb-den Layer des Objektes über Schriftfeld automatisch einfügen. ACAD2005 hab ich ausgelassen, gab es das dort schon? [Diese Nachricht wurde von cad4fun am 23. Okt. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
abc-schuetze Mitglied
Beiträge: 3 Registriert: 23.10.2006 Acad 2005
|
erstellt am: 23. Okt. 2006 15:17 <-- editieren / zitieren --> Unities abgeben:
ja, das funzt am einzelteil. ABER es ist in jeder einzelnen zeichnung immer ein "3D-Volumenkörper" und den möchte ich per script auswählen und die eigenschaften anbringen. unter SCHRIFTFELD komme ich auf folgende Befehlszeile: %<\AcObjProp Object(%<\_ObjId 2126761392>%).Layer>% gibt es für die ObjId was allgemeines, was man für den "3D-Volumenkörper" einsetzen kann?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 24. Okt. 2006 07:26 <-- editieren / zitieren --> Unities abgeben: Nur für abc-schuetze
Kleiner Codeschnippsel: Code:
(defun C:layername_2_field (/ e o oid txt) (setq calt (getvar "cmdecho")) (setq lalt (getvar "CLAYER")) (setvar "cmdecho" 0) (setq hoehe nil winkel nil ) ;_ ende von setq (setq e (car (entsel)) o (vlax-ename->vla-object e) ) ;_ ende von setq (setq oid (vla-get-objectid o)) (if (vlax-property-available-p o 'Name) (progn (setq txt (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa oid) ">%).Layer>%" ) ;_ ende von strcat ce (getvar "cmdecho") ) ;_ ende von setq (setq ta (getpoint "\nTextanfang: ")) (setq hoehe (getreal "\nTexthoehe <1.0>: ")) (if (= hoehe nil) (setq hoehe 1.0) ) ;_ ende von if (setq winkel (getreal "\nWinkel <0>: ")) (if (= winkel nil) (setq winkel 0) ) ;_ ende von if (command "-LAYER" "_make" "DEIN_BESCHRIFTUNGSLAYER" "") (command "._-TEXT" "_justify" "_mc" ta hoehe winkel txt) (princ) (setvar "cmdecho" ce) (setvar "clayer" lalt) (setvar "cmdecho" calt) ) ;_ ende von progn (alert "\nKEIN 'AcObjProp-LAYER' im Objekt vorhanden !") ;_ ende von princ ) ;_ ende von if ) ;_ ende von defun
Hoffe es hilft dir weiter. ------------------ MfG Proxy Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |