---

hi,

ich möchte unter acad2004 eine linie entmaken die als farbe "vonlayer" hat. unter acad2000 war das die zahl 256 für gruppencode 62. hat sich das geändert ? es wird jetzt nämlich immer die aktuelle farbe übernommen.

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

MfG
Frank

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

---

teste nochmal, du machst da sicher einen (Denk-)Fehler..
Klappt nach wie vor.

------------------
- Sebastian Mattis -

[Diese Nachricht wurde von cadffm am 01. Mrz. 2004 editiert.]

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

---

OBJEKT_SET_FARBE  : Setzen der Objektfarbe. Farbe wird als Integerwert übergeben . Dabei entsprechen die Werte 0 .. "von Block" und 256 "von Layer" und Werte dazwischen die Farbe nach Nummer    z.B. (OBJEKT_SET_FARBE (entlast) 256)                               

(defun OBJEKT_SET_FARBE ( OBJEKT  FARBE / OBJEKTDATEN)
  (if (and (=(type OBJEKT) 'ENAME)(=(type FARBE) 'INT))                             
    (if (and (>= FARBE 0)(<= FARBE 256))     
      (progn
        (setq OBJEKTDATEN (entget OBJEKT))
        (if(assoc 62 OBJEKTDATEN)
          (setq OBJEKTDATEN(subst(cons 62 FARBE)(assoc 62 OBJEKTDATEN)OBJEKTDATEN)) 
          (setq OBJEKTDATEN  ( append Objektdaten (list(cons 62 FARBE))))           
        )
        (entmod OBJEKTDATEN)
      )
      (progn
        (princ (strcat "\n Ungültige Farbe - [OBJEKT_SET_FARBE]\n"))     
        (princ)
      )
    )
    (progn
      (princ (strcat "\n Kein Objekt (ENAMETYP) - [OBJEKT_SET_FARBE]\n"))     
      (princ)
    )
  )
)

funzt bei mir auch unter 2004

------------------
- Thomas -

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

---

bei der farbe VONLAYER ist der gruppencode 62 NICHT vorhanden !
(villeicht akzeptiert acad das über 256) definitiv wird jedoch bei nicht vorhandenem gc 62 die farbe vonlayer eingestellt.

beispiel linie mit farbe 5 = blau
(entmake (list (cons 0  "LINE")
      (cons 67  0)
      (cons 410  "Model")
      (cons 8  "0")
      (cons 10 (list 2.74784 2.30894 0.0))
      (cons 11 (list 6.51258 6.46586 0.0))
      (cons 62 5)
))

beispiel linie ohne GC62 farbe = vonlayer
(entmake (list (cons 0  "LINE")
      (cons 67  0)
      (cons 410  "Model")
      (cons 8  "0")
      (cons 10 (list 2.74784 2.30894 0.0))
      (cons 11 (list 6.51258 6.46586 0.0))
))

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

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

---

Falsches von Fuchsi ???

wenn ich beim entmake keinen gc62 angebe ist das wie der _line Befehl,
es wird die aktuelle Farbe genutzt, und nicht vonlayer wie eben behauptet.

um eine Linie (sicher) vonlayer zu entmaken MUSS man den gc62 mit 256 angeben !
(und das war schon vor ACAD2004 so)

------------------
- Sebastian Mattis -

[Diese Nachricht wurde von cadffm am 01. Mrz. 2004 editiert.]

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

---

erst mal danke für die rege beteiligung,

hier mein code, es klappt bei mir nicht :

;aufruf: (fc_rechteck ep zp layername farbnr faktor linientyp)
(defun fc_rechteck (ep zp layername farbnr faktor linientyp /)
  (if (and (NULL (tblsearch "ltype" linientyp)) (/= linientyp "byblock") (/= linientyp "bylayer") (/= linientyp 0))
    (command "linientyp" "laden" linientyp "acadiso.lin" "")
  );if
  (entmake (List
    '(0 . "LWPolyline")
    '(100 . "AcDbEntity")
    '(100 . "AcDbPolyline")
    '(90 . 4)
    '(70 . 1)
    (cons 6 linientyp)
    (cons 8 layername)
    (cons 48 faktor)
    (cons 62 farbnr)   
    (cons 10 (trans (list (car ep) (cadr ep) 0) 1 0))
    (cons 10 (trans (list (car zp) (cadr ep) 0) 1 0))
    (cons 10 (trans (list (car zp) (cadr zp) 0) 1 0))
    (cons 10 (trans (list (car ep) (cadr zp) 0) 1 0))
  ))
);defun

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

MfG
Frank

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

---

peinlich peinlich peinlich

habs bei meinem test übersehen, dass ich ja als aktuelle farbe vonlayer eingestellt habe.
darum scheint es so zu funktionieren, wie ich es beschrieben habe.

habs jetzt mal aktuelle farbe auf rot gestellt.und mit keinem gc62 übernimmt er die aktuelle farbe, mit gc62=256 ist es vonlayer

peinlich peinlich peinlich

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

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

---

hab dein programm ausprobiert

(fc_rechteck (list 0 0 0) (list 1 1 0) "0" 256 1 "continuous")
(fc_rechteck (list 0 0 0) (list 1 1 0) "0" 256 1 "verdeckt")
(fc_rechteck (list 0 0 0) (list 1 1 0) "0" 256 1 "verdeckt2")

und funktioniert in 2000i und 2004 tadellos

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

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