---

Hallo,

für eine Konvertierung benötige ich meine vorhandenen Autocaddateien in der Form, daß alle Objekte ihre Eigenschaften direkt haben und nicht 'VonLayer'. Bisher sind alle Eigenschaften aber 'VonLayer'. Kennt jemand ein Tool, das die Layereigenschaften (speziell Farbe, Linientyp, Strichstärke) direkt auf die zugehörigen Objekte überträgt oder dabei behilflich sein kann?

Grüße

Scholle

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

---

LAYPROPS2OBJ.VLX.txt

Versuch mal das Teil im Anhang. als vlx speichern, in Acad laden und mit LAYPROPS2OBJ aufrufen.

Edit :  pre 2004 update
------------------
            - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 13. Apr. 2005 editiert.]

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

---

Guten Morgen

habs getestet mit AC 2002

Befehl: LAYPROPS2OBJ
; Fehler: Fehlerhafte Funktion: vla-get-TrueColor

läuft das nur unter 2004 ?

Man weiß ja nicht, was er (scholle) für eine Version hat.

Ciao

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

---

Hallo Thomas,

unter 2005 läuft das Teil erstklassig!
Vielen Dank - genau das, was ich gesucht habe!
Seid Ihr immer so gut?

So kann der Tag weitergehen.

Grüße

Scholle

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

---

hallo,

ja das habe ich auch gefunden ... benötige aber eine lösung für acad 2002

das mit dem befehl qselect führt nicht zum erfolg ...

sonst nocht tips? lisp ?!

grüße
michi

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

---

Hi,

wenn Du's selbst probieren willst, kann das ein Ansatz sein: http://ww3.cad.de/foren/ubb/Forum54/HTML/010588.shtml#000002
Hier bekommen die Objekte eines Auswahlsatzes schon mal die Farbe ihres Layers zugewiesen, wenn sie VONLAYER sind. Linientypenzuweisung sollte ähnlich sein.

Gruß
CADchup

------------------
www.cadditions.de

[Diese Nachricht wurde von CADchup am 26. Apr. 2005 editiert.]

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

---

Hallo Scholle,
versuch mal das:

(defun c:lay_eig ( / col_t lt_t lw_t aws ele_eig ele_lay ele_co ele_lt ele_lw ergebnis)
  (setvar "cmdecho" 0)
  (command "_undo" "_be")
  (setq col_t t lt_t t lw_t t);einstellen, was geändert werden soll
  (setq aws (ssget))
  (setq zaehler 0)
  (if aws; Liste der gewählten elemente erstellen
    (progn
      (setq name (ssname aws zaehler))
      (while name
        (setq namen (cons name namen))
        (setq zaehler (1+ zaehler))
        (setq name (ssname aws zaehler))
      )
    )
  )
  (setq aws namen)
  (foreach n aws
    (progn
      (setq ele_eig (entget n))
      (setq ele_lay (cdr (assoc 8 ele_eig)))
      (setq lay_eig (tblsearch "layer" ele_lay))
      (if col_t (setq ele_co (cdr (assoc 62 lay_eig))));Farbe
      (if lt_t (setq ele_lt (cdr (assoc 6 lay_eig))));Linientyp
      (if lw_t (setq ele_lw (cdr (assoc 370 lay_eig))));Linienstärke (1/100 mm)
      (command "_change" n "" "_prop")
      (if ele_co (command "_col" ele_co))
      (if ele_lt (command "_ltype" ele_lt))
      (if ele_lw (command  "_lw" (/ ele_lw 100.00)))
      (command "")
    )
  )
  (command "_undo" "_end")
  (setvar "cmdecho" 1)
  (prin1)
)

wir haben vor Jahren auch mal sowas gebraucht. Das funktioniert auch ohne VL(A)-XYZ. Ist zwar für 2000 geschrieben, sollte aber auch bei 2002 laufen...
Einschränkungen sind natürlich truecolor-Farben etc.

Grüsse
Henning Jesse

------------------
http://www.voxelman.de
Computer-Dienstleistungen für Architekten und Ingenieure

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

---

Zitat:

---

Original erstellt von wronzky:
Einschränkungen sind natürlich truecolor-Farben etc.

---

Genau!
..und die Frage, ob nur die "vonLayer" Eigenschaften,oder prinzipiell alle übernommen werden sollen.

..Weiterhin ist die Farbe (abs(cdr (assoc 62 lay_eig))))) , da "Layer an/aus" mit dem Vorzeichen realisiert wird...

..aber sonst geht es natürlich auch mit dem einfachen (ohne ActivX) Lisp. Sogar Truecolor! Zumindest beim direkten Übernehmen -> Siehe GC420 und GC430!

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:

..und die Frage, ob nur die "vonLayer" Eigenschaften,oder prinzipiell alle übernommen werden sollen.

---

zumindest war das die Ausgangsfrage (s.o.)

Henning Jesse

------------------
http://www.voxelman.de
Computer-Dienstleistungen für Architekten und Ingenieure

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

---

Hallo Henning,

danke für Deinen Beitrag!
Da meine letzten Programmierversuche 10 Jahre her sind, halte ich mich aus den Details raus. Aber so viel: mir geht es wirklich nur um Farbe, Linientyp und Linienbreite. Die Variante von Thomas haut bei mir unter 2005 hin, unter 2002 gabs wohl Schwierigkeiten (s.o.). Wenn ich Deine lsp laufen lasse, klappt bei Farbe und Linientyp eigentlich alles, aber Elemente mit der Linienbreite 'VonLayer' behalten diese Eigenschaft und übernehmen nicht die Layereinstellung. Mache ich was falsch? Wie gesagt, nähere Kenntnisse gehen mir ab, aber wenn ich alles richtig deute, soll die Linienbreite doch auch geändert werden?

Grüße scholle

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

---

@ scholle
da mußt du
(setq lay_eig (tblsearch "layer" ele_lay))
durch
(setq lay_eig (entget(tblobjname "layer" ele_lay)))     
ersetzen, da tblsearch den GC370 nicht mitliefert.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:
@ scholle
da mußt du
(setq lay_eig (tblsearch "layer" ele_lay))
durch
(setq lay_eig (entget(tblobjname "layer" ele_lay)))     
ersetzen, da tblsearch den GC370 nicht mitliefert.

---

Na sowas, ist mir nie aufgefallen... haben wir anscheinend damals nicht gebraucht...
Danke Thomas!

Henning

------------------
http://www.voxelman.de
Computer-Dienstleistungen für Architekten und Ingenieure

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

---

haut hin

nochmals vielen Dank allen Beteiligten! (Ihr seid so gut zu mir!)

scholle

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