Fields Customising

[trevor_adams2]

Hi There,

I'm currently trying to extract the RGB colour of a layer within AutoCAD but because the layer colour is set to ByLayer this is what is display in the field.

I have found out when you select NamedObject and then select the Layer the Object ID is difference.

 

So I decide to change to Object Id name in the early Field Expression and paste the everything in the formula box

As you can see above it is showing the RGB colour but its displaying #### in the field. Is there anything I can do to solve this?

Thanks

[rkmcswain]

I think the answer is the same as it was 10 years ago.

http://forums.augi.com/showthread.php?36156-Layer-color-in-a-Field

[dbroad]

What you want to do is not supported by the field command and field dialog.  It is however supported by fieldcodes when used in mtext.

Process:

1. Use the field dialog namedobject mechanism and choose the layer name you want to track.

2. Copyclip the fieldcode.

3. Start notepad

4. Paste the fieldcode into notepad.

5. Change "name" to "color.

6. Copyclip the fieldcode from notepad.

7. Start the mtext command.

8. Paste the fieldcode into the mtext object. 

Example fieldcode:  %<\AcObjProp Object(%<\_ObjId 588452320528>%).Color>%

[trevor_adams2]

Excellent, seems to work perfectly. 

I guess there no easy way to get a list of all the Layer names with their object numbers?

Thanks for your help.

[rkmcswain]

Very nice @Anonymous !

[dbroad]

---

@trevor.adams wrote:

Excellent, seems to work perfectly. 

I guess there no easy way to get a list of all the Layer names with their object numbers?

---

You're welcome.  As to your question, that depends on what you mean by "easy".  I prefer "possible".  Obtaining any object id is possible via customization (programming) or one at a time with the field dialog.  For layers, loop through the layer table or layer collection and make a list of the objectids.

[dbroad]

Thanks @rkmcswain

[rkmcswain]

I found some code I had that was doing something similar, so here is a quick and dirty stab at your thing.

  (setq *acad* (vlax-get-acad-object))
  (setq *cdoc* (vla-get-ActiveDocument *acad*))
  (setq *util* (vla-get-Utility *cdoc*))

(defun c:foo ( / q d n lst lays)
  (setq lst '())
  (setq lays (vla-get-Layers *cdoc*))
  (vlax-for q lays    
    (setq d (vlax-invoke-method *util* "GetObjectIDString" q :Vlax-false))
    (setq n (vla-get-Name q))
    (setq lst (cons (cons d n) lst))
  )
  (command "._text" (list 91000.0 51200.0) "0.0" "List")
  (foreach item lst
    (vl-cmdf "._text" "" (strcat "Layer Name = " (cdr item) " & Layer Color = " "%<\\AcObjProp Object(%<\\_ObjId " (car item) ">%).Color>%") "")
  )  
)

 ...and a partial screencap of the results.

[trevor_adams2]

Great, thanks @rkmcswain