Topic: Colour ByLayer

[paulmcz]

When I select a circle, I can extract its center point, radius and layer from dxf code. Where and how can I extract the colour (in plain LISP - for R14), if it is a "ByLayer"?
(cdr (assoc 62 ent)) gives me 'nil'.

Could anyone tell me, please? Thanks.

Paul

[Big G]

Is bylayer not 256 and byblock 257? dont quote me on that one though

[CAB]

DXF Code 62    
 Color number (present if not BYLAYER); zero indicates the BYBLOCK
 (floating) color; 256 indicates BYLAYER; a negative value indicates that the
 layer is turned off (optional).

Code: [Select]

0       ByBlock
1       Red
2       Yellow
3       Green
4       Cyan
5       Blue
6       Magenta
7       Black/White
8       Dark Grey
9       Grey

256     ByLayer (or missing)
0       ByBlock


[paulmcz]

DXF Code 62    
 Color number (present if not BYLAYER); zero indicates the BYBLOCK
 (floating) color; 256 indicates BYLAYER; a negative value indicates that the
 layer is turned off (optional).

Code: [Select]

0       ByBlock
1       Red
2       Yellow
3       Green
4       Cyan
5       Blue
6       Magenta
7       Black/White
8       Dark Grey
9       Grey

256     ByLayer (or missing)
0       ByBlock


If it is missing, should I just assume that it is a bylayer or a byblock?
I need to erase the circle and replace with another circle of the same colour and same layer.. How should I go about it?

[SMadsen]

If missing, it's assumed to be Bylayer.

For your 2nd question it depends on how you create the new entity.

[CAB]

You can try this if you want to entmake the new object.

Code: [Select]

;;  function to strip unwanted dxf codes for a new entity
;;  retuens a ent list ready for entmake
(defun strip (entl)
  ;;  ent expected to be an entity name or entlist or ename w/ point list
  (cond
    ((= (type entl) "ENAME")
     (setq entl (entget entl))
    )
    ((= (length entl) 2)
     (setq entl (car entl))
    )
  )
  (foreach n '(-2 -1 5 102 300 330 331 350 360)
    (while (assoc n entl)
      (setq entl (vl-remove (assoc n entl) entl))
    )
  )
  entl
)

(defun c:test()
  (while (not (setq ent (entsel))))
  (setq elst (strip ent))
 
  ;; make changes to elst
 
  (entmake elst) ; make a new entity
)

[SMadsen]

What's an ENANE?  Heehee j/k

[CAB]

Old Eagle Eye!

Thanks for the catch Stig.

[paulmcz]

Excellent! It works now.

Big G - "256" it is.
Cab - I can't use "vla-remove" with R14.
SMadsen - "It's assumed" - that made the trick.

Thank you all,
Paul.

[CAB]

Code: [Select]

;*** REMOVE.lsp  by c.bethea
;This function removes an element from a list and return the list without
;the element
;
(defun REMOVE_ELEM (what from)
  (append
    (reverse
       (cdr (member what (reverse from)))
    )
    (cdr (member what from))
  )
)


[SMadsen]

paulmcz, notice that even tho (62 . 256) is omitted from entity lists, it can still be used in SSGET filters. Just a side note in case anyone ever wonders how QSELECT etc. can filter with Bylayer.

[paulmcz]

Thanks again guys.
You have no idea how much I learn here.

Paul.