---

Hallo zusammen,
wir möchten in unserem Büro die Layer neu bezeichnen, da die Vorgabe unseres alten Konstruktionsprogramms ausläuft. Die bestehenden Zeichnungen wollen wir mit konvlay konvertieren. Nun meine Frage:
gibt es eine Möglichkeit, die für konvlay erzeugte cnv-Datei dazu zu benutzen, in einer leeren Zeichnung die Layer zu erzeugen? Aus so einer Datei wäre es dann möglich, die neuen Layer per DC oder Werkzeugpaletten in eine neue Zeichnung zu übernehmen.
Vielleicht hat ja jemand eine Idee.

------------------
Bis demnächst
Rainer

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

---

mal einen anderen Ansatz :
Siehe Hier

und speziell für Layer :

(defun LAYER-export(DATEINAME / LAYER LAYDATA LISTE DATEI)
  (While (setq LAYER (tblnext "LAYER" (null LAYER)))   
    (setq LAYDATA (vl-remove-if
                    '(lambda (L)(member(car L) '(-1 330 -2 5 390)))
                    (entget(tblobjname "LAYER" (cdr(assoc 2 LAYER))) '("*"))
                  )             
    )       
    (setq LISTE (cons LAYDATA LISTE))   
  )
  (if(setq DATEI(open DATEINAME "w"))
    (progn
      (foreach LAYER LISTE
(princ "(entmake '" DATEI)
(prin1 LAYER        DATEI)
(princ ")\n"        DATEI)
      )
      (close DATEI)
    )
  ) 
)
(defun c:LAYER-EXPORT ( / DATEINAME )
  (if (setq DATEINAME (getfiled "LAYER-EXPORT" (getvar "SAVEFILEPATH") "LAY" 1))
    (LAYER-EXPORT DATEINAME)
    (princ "\nAbgebrochen ..............\n")
  )
  (princ)     
) 
(defun c:LAYER-IMPORT ( / DATEINAME )
  (if (setq DATEINAME (getfiled "LAYER-IMPORT" (getvar "SAVEFILEPATH") "LAY" 8))
    (load DATEINAME)     
    (princ "\nAbgebrochen ..............\n")
  )
  (princ)     
)

Aber warum kann man nur aus einer leeren Datei die Layer per DC übernehmen? Geht doch auch mit deiner Konvertierten...
Das Lisp würd ich nur bei Scriptverwendung nehmen.
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 07. Jul. 2004 editiert.]

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

---

Hallo Thomas,
ich komme erst jetzt dazu dir zu antworten.
Wir wechseln in den nächsten Tagen von unserem Augustus Visio (von Hochtief,wers kennt) zum ADT 2005. Bei dieser Gelegenheit möchten wir eine neue Layerbenennung büroweit einführen (z.B.HTSV_BT_WAND_STBT_G070=alt,Bau_Bauteil_Stahlbn_G070
=neu). Zum einen müssen ja die alten Zeichnungen konvertiert werden (hierzu konvlay) und dann soll es eine Liste/DWG-Datei geben, wo alle Layermöglichkeiten existieren. Um die Erstellung der Layernahmen zu vereinfachen, erzeuge ich die Kombinationen mit Farbe, Linienart und Wichte in Excel und daraus z.B. die cnv-Datei für konvlay. Ich denke mal, dass konvlay nur vorhandene Layer umbenennt und es sind ja nicht alle Varianten in einer Datei drin.
Deshalb bräuchte ich eine Hilfe, alle Layermöglichkeiten automatisch erzeugen zu lassen. Ich habe vor, den Aufruf der Layer mit Werkzeugpaletten zu machen, dazu brauche (?) ich die Layer in der Zeichnung.
War vielleicht ein wenig lang, aber es ist vielleicht klar worauf ich hinaus möchte.

------------------
Bis demnächst
Rainer

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

---

So wie ich das Problem verstanden habe willst du vor dem eigentlichen LayConv sicherstellen, dass die entsprechenden Layer in JEDER dwg existieren.

Somit wäre IMHO der einfachster Weg z.b. mit vba beim Öffnen in die Methode _Open innerhalb von ThisDrawing ein sendcommand auf ein Lisp, diese ssollte dann deine Layer erstellen. Im Notfall einfach mit ("command"  "._-layer" "_make" "blablub" .... ) und das so oft wie deine Layer halt haben willst. Somit dürfte beim Stappel Standardprüfung in jeder geöffneten Datei deine neue Layerstruktur vor dem eigentlichem Konvertieren existieren.

my 0.02 €

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Hallo,
komme erst jetzt dazu zu antworten.
Ich hatte mir eine Möglichkeit vorgestellt, in der ich mittels einer Tabelle (Excel oder Textdatei) die schon oben beschriebenen Layer für eine Muster-DWG erstellen kann. Die scheint es wohl nicht zu geben. Als Alternative muss ich dann alle Layer über den mach-Befehl erzeugen.
Vielen Dank für die Antworten.

------------------
Bis demnächst
Rainer

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

---

Konvlay ist ursprünglich nur zum umsetzen von Layernamen, Farben ind Linientypen gedacht.
Das Programm ist auch schon etwas älter.

Wenn du damit auch nicht vorhandene Layer anlegen möchtest, muss das Programm etwas umgebaut werden.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hi,
wäre so ein Umbau im Rahmen des Forums möglich oder müsste er in eine "Nacht" verlegt werden?

------------------
Bis demnächst
Rainer

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

---

Hallo Rainer,

schau mal auf meiner Seite unter Hilfe->Download->Prog[3]. Da findest du ein Tool im Quellcode, aus diesem kannst du (meinetwegen über Nacht) ;-) dir die einzelnen Sub's rauslösen und zur Erzeugung der Layer verwenden.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo,

wie wäre es wenn Du Dir eine Basis.dwt erstellst in der Du alle neuen Layer voreinstellst.
Dann diese .dwt mit konvlay laden und schwups!
Geht schnell und müßte sowie ich das verstanden habe reichen!
Ansonsten layer.mnu schreiben!

Mfg Alpschorsch

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

---

Hallo,
@ Alpschorsch,
genau da ist das Problem. Ich habe eine Layerstruktur, aus der ca. 500 Layerkombinationen entstehen. Ich möchte aber nicht jeden Layer manuell eingeben. Dieses soll eine Excel-Datei (die schon existiert) mit kopieren und Verketten erledigen. Daher wäre auch der Ansatz mit -layer - mach möglich aber aufwendig.
@ Holger
vielen Dank für den Hinweis, aber soweit reichen meine Lisp Kentnisse nicht. Ich melde mich noch mal.

------------------
Bis demnächst
Rainer

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

---

Zitat:

---

Original erstellt von R.Bless:
Ich hatte mir eine Möglichkeit vorgestellt, in der ich mittels einer Tabelle (Excel oder Textdatei) die schon oben beschriebenen Layer für eine Muster-DWG erstellen kann. Die scheint es wohl nicht zu geben. Als Alternative muss ich dann alle Layer über den mach-Befehl erzeugen.

---

Um Gottes Willen, nein. Das Umbenennen von Layern und gleichzeitige Erzeugen noch nicht vorhandener Layer nach Vorgaben einer Datei ist absolut trivial, und sowas kann natürlich völlig unbeaufsichtigt im Batch-Betrieb über beliebig viele Zeichnungsdateien laufen. Wenn Du willst, bastle ich Dir gegen eine Spende von 50 Euro an Amnesty sowas nach Deinen speziellen Vorgaben. Schick' mir einfach eine Email an berger@archtools.de, falls Du interessiert bist.

Gruß
Tom Berger

------------------