Topic: Layer descriptions

[Andrea]

can anyone know how to GET and hot to PUT layer description with LISP ?

[T.Willey]

Code: [Select]

(vlax-for Lay
 (vla-get-Layers
  (vla-get-ActiveDocument
   (vlax-get-Acad-Object)
  )
 )
 (prompt
  (strcat
   "\n Layer name: "
   (vla-get-Name Lay)
   "  Layer description: "
   (vla-get-Description Lay)
  )
 )
)


[Andrea]

Woo !!....that was fast !..

Thanks Twilly.

[T.Willey]

You're welcome Andrea.

[TimSpangler]

To add a description

Code: [Select]

;; Set activeX variables
(setq XAcadObject (vlax-get-acad-object))
(setq XActiveDoc (vla-get-activedocument XAcadObject))
(setq XActiveLayout (vla-get-ActiveLayout XActiveDoc))
(setq XLayersCol (vla-get-layers XActiveDoc))

;; Create layer description
(if(or(= 16.1 (atof(getvar "acadver")))(< 16.1 (atof(getvar "acadver"))))
(progn
(setq VLA-Obj(vla-add XLayersCol Layer))
(vla-Put-Description VLA-Obj "YOUR DESCRIPTION HERE")
)
)


[T.Willey]

This

Code: [Select]

(if(or(= 16.1 (atof(getvar "acadver")))(< 16.1 (atof(getvar "acadver"))))
could be written like

Code: [Select]

(if (<= 16.1 (atof(getvar "acadver")))
Nit picky, but thought I would point it out. 

[TimSpangler]

Nit picky, but thought I would point it out. 

Thanks for pointing that out.  Ihave it written both ways.  I gues the one I copied from was an older program that wasn't updated yet.  Oh well its changed now .

Thanks again Tim

[Andrea]

Code: [Select]

;; Set activeX variables
(setq XAcadObject (vlax-get-acad-object))
(setq XActiveDoc (vla-get-activedocument XAcadObject))
(setq XActiveLayout (vla-get-ActiveLayout XActiveDoc))
(setq XLayersCol (vla-get-layers XActiveDoc))
can also be write like...

Code: [Select]

(setq XAcadObject (vlax-get-acad-object) XActiveDoc (vla-get-activedocument XAcadObject)
XActiveLayout (vla-get-ActiveLayout XActiveDoc) XLayersCol (vla-get-layers XActiveDoc))
lol !

[TimSpangler]

Seems everyone is a comedian today??