---

AF-prop.gif

Hallo,
weiß einer von Euch, wo die Farbe, Linienart und -stärke für das aktuelle Ansichtsfenster im Layout gespeichert werden???

------------------
viele Grüße

Jörn

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

---

Hi Jörn,

sind IMHO Layerdictionaries:
ADSK_LYR_COLOR_OVERRIDE
ADSK_LYR_LINETYPE_OVERRIDE
ADSK_LYR_LINEWT_OVERRIDE

Gruß
CADchup

------------------
CADmaro.de

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

---

Hallo CADchup,
danke, ich werde diese mal durchecken, wenn ich weiterkomme (oder auch nicht) melde ich mich.

------------------
viele Grüße

Jörn

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

---

Hallo,
so, ich habe noch mal ein bißchen probiert, und ich bin mit den Dictionary's
ADSK_LYR_COLOR_OVERRIDE
ADSK_LYR_LINETYPE_OVERRIDE
ADSK_LYR_LINEWT_OVERRIDE
weiter gekommen.

Falls sich noch einer dafür interessiert, hier der Code:

Code:

---

;;;Rückgabe:
;;;((layername   ((layer_liste)
;;;     (dictionary_liste)
;;;   (("COLOR" (((335 vport_obj)(420 farbe)(430 farbbuch))((335 ...))))
;;;     ("LINETYPE" (((335 vport_obj)(343 linetype_obj))((335 ...))))
;;;     ("LINEWT" (((335 vport_obj)(91 breite))((335 ...))))))
;;; (layername    ((...))))

(defun LAYER:PROP:VPORT ( / A B B_LISTE I LAYERS LAYER_LIST N TEMP)
  (vl-load-com)
  (if(setq layers(vla-get-layers
  (vla-get-ActiveDocument
    (vlax-get-acad-object))))
    (progn
      (setq i -1)
      (vlax-for ITEM layers
(if (setq temp(cdr(assoc 360 (entget(vlax-vla-object->ename ITEM)))))
  (setq n -1
B_liste(vl-remove-if-not '(lambda(A)(member (car A) '(3 360)))(entget temp))
layer_list
(cons (list (entget(vlax-vla-object->ename ITEM))
    (entget temp)
    (vl-remove-if-not '(lambda(C) C)
      (mapcar '(lambda(B)
  (setq n (+ n 1))
  (if (= (car B) 3)
    (cond ((= (cdr B)"ADSK_XREC_LAYER_COLOR_OVR")
  (list "COLOR"
(LAYER:PROP:VPORT ICT (entget (cdr(nth (+ n 1) B_liste)))
  "{ADSK_LYR_COLOR_OVERRIDE")))
  ((= (cdr B)"ADSK_XREC_LAYER_LINETYPE_OVR")
  (list "LINETYPE"
(LAYER:PROP:VPORT ICT (entget (cdr(nth (+ n 1) B_liste)))
  "{ADSK_LYR_LINETYPE_OVERRIDE")))
  ((= (cdr B)"ADSK_XREC_LAYER_LINEWT_OVR")
      (list "LINEWT"
    (LAYER:PROP:VPORT ICT (entget (cdr(nth (+ n 1) B_liste)))
      "{ADSK_LYR_LINEWT_OVERRIDE"))))))
      B_liste)))layer_list)))
(setq i(1+ i)))))
  (mapcar '(lambda(A) (list (cdr(assoc 2(car A)))A))layer_list)
  )

(defun LAYER:PROP:VPORT ICT (xrecord_liste key / liste temp)
 
  (while xrecord_liste
    (if (and(=(car(car xrecord_liste))102)
    (=(cdr (car xrecord_liste))key))
      (progn
(while (and(setq xrecord_liste (cdr xrecord_liste))
  (/= (cdr(car xrecord_liste)) "}"))
  (setq temp (cons (car xrecord_liste)temp)))
(setq liste (cons (reverse temp)liste)
      temp nil)))
      (setq xrecord_liste (cdr xrecord_liste)))
  (reverse liste))

---

PS: Smilie-Alarm => Grinse-Smilie gegen D[Doppelpunkt] austauschen. (Und die Formatierung ist beim Einfügen auch irgendwie wieder kaputtgegangen)

------------------
viele Grüße

Jörn

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