---

Tag an alle,

ich hab da einige Pläne von einer Fremdfirma bekommen und muss diese bearbeiten. Jetzt sind in diesem Plan sehr viele Solids drin auf unterschiedlichen Layern und auf diesen Layern sind auch noch Teile der "normalen" Zeichnung ( Rohrleitungen, Bauteile, etc ) drauf.

meine Frage: Wie kann ich die gesamten Solids auf einen Layer legen?(geschickt wäre es auch noch wenn die solids die Farben beibehalten aber ich fürchte das wird nicht hinhauen!)

Kann mich daran erinnern, dass hier im Forum ein ähnliches Problem geschildert wurde!!! Finde es bloß nicht oder ich bin blind!!!

mfg

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

---

Trajan,

mit Schnellauswahl kannst Du alle solids aktivieren, und dann auf einen Layer legen... Das mit der Farbe müsste auch gehen...hmmmm mal nachdenken...

Lothar

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

---

Hi,

versuch's mal damit. Der Ziellayer wird durch Wählen eines Objekts festgelegt:

Code:

---

(defun c:Layerwechseln (/ ss target i vlaobj)
  (if (setq ss (ssget "_X" '((0 . "SOLID"))))
    (if (setq target (entsel "\nObjekt auf Ziellayer wählen:"))
      (repeat (setq i (sslength ss))
(setq
  vlaobj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
)
(if (= 256 (vlax-get-property vlaobj 'Color))
  (vlax-put-property
    vlaobj
    'Color
    (vlax-get-property
      (vla-item
(vlax-get-property
  (vlax-get-property
    (vlax-get-acad-object)
    'ActiveDocument
  )
  'Layers
)
(vlax-get-property
  vlaobj
  'Layer
)
      )
      'Color
    )
  )
)
(vlax-put-property
  vlaobj
  'Layer
  (vlax-get-property
    (vlax-ename->vla-object (car target))
    'Layer
  )
)
      )
      (princ "\nKein Objekt für Ziellayerbestimmung gewählt.")
    )
  )
)

---

Gruß
CADchup

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

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

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