---

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

---

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

---

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

---

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

---

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

---

Wie sieht denn die Liste der Layer aus? Mit Lisp kann man sicher recht fix ein Tool schreiben, was dann genau das macht.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Bild1.jpg

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

---

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

---

Ab AC-2005 geht das in die Excelliste auch über die Zwischenablage.
Alle Layer makieren,
Strg-C
in Excel Strg-V.

------------------
Gruß Stefan

Nur Feiglinge speichern zwischen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Hallo Jürgen das ist echt lieb von dir,
aber ich habe leider keine Ahnung wie ein solches script in Acad eingefügt wird.

Ich danke dir für deine Mühe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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