Adding a Dotted Pair Into a Entity Definition Data

[Kevin Janik]

I am trying to revise an attribute to have a revised color. Since the existing entity color is "Bylayer" there is no (62 . __) dotted pair in the entity definition data as you can see below. I was hoping to substitue for the list (62 . __) dotted pair but that will not work when it is not there. Please advise on what I can do without remaking the entity from scratch.

Thanks in advance.

Kevin

((-1 . <Entity name: 7ec9daf8>) (0 . "ATTRIB") (330 . <Entity
name: 7ec9daf0>) (5 . "16EF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8
. "0") (100 . "AcDbText") (10 5.14048 5.58191 0.0) (40 . 0.1) (1 . "asdfasf")
(50 . 0.0) (41 . 0.9) (51 . 0.0) (7 . "ROMANS") (71 . 0) (72 . 1) (11 5.38905
5.63191 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "###") (70 . 0) (73
. 0) (74 . 2))

[scwegner]

I am trying to revise an attribute to have a revised color. Since the existing entity color is "Bylayer" there is no (62 . __) dotted pair in the entity definition data as you can see below. I was hoping to substitue for the list (62 . __) dotted pair but that will not work when it is not there. Please advise on what I can do without remaking the entity from scratch.

Use append to tack on additional info like this:

   (setq entlist (append entlist '((62 . __))))
   (entmod entlist)

Simon

[Kevin Janik]

I tried that but when I updated the entity it did not work. I first added to the list the color red using "(list (cons 62 1))" Then I substitued the color I wanted after that into the definition data list. "(setq ATC:EL (subst (cons 62 ATC:NEWVAL)(assoc 62 ATC:EL) ATC:EL))" and then (entmod ATC:EL) and then updated the block entity using the entity name (entupd ATC:ATT). No color changed and entity definition list seemed to never add the (62. 1) dotted pair at all.

Do you have an example that works?

[scwegner]

Yup. Just threw it together and tested it out.

(defun c:chcolor ()
    (setq ent (car (entsel))
  		  entlist (entget ent)
    );setq
    (if
  	(assoc 62 entlist)
  	(setq entlist (subst '(62 . 10) (assoc 62 entlist) entlist))
  	(setq entlist (append entlist '((62 . 10))))
    );if
    (entmod entlist)
  )

[Kevin Janik]

Thank you! That did work. I think when I was playing around I forgot to store the value and therefore I thought it did not work.

Kevin

[scwegner]

Thank you! That did work. I think when I was playing around I forgot to store the value and therefore I thought it did not work.

Kevin

Oops. That would do it alright. I always wonder how many great programing ideas I've abandoned because of typos when testing. Happy to help.

Simon

[peter]

Instead of using entity lists to append the 62 dxf code it is much easier to use activeX

(vl-load-com)
(setq objSelection (vlax-ename->vla-object (car (entsel))))
(vla-put-color objSelection 1)

Peter Jamtgaard