---

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

---

  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

---

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

---

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

---

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

---

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

---

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