debug: vla-get-layer()

samifox · 发表于 2022-7-6 06:38:26

Hi

runing this:

(vl-load-com)(defun C:TEST(/ ent lay) (if (setq ent (entsel "\nSelect Object"))   (alert     (strcase "Layer Name:"       (vla-get-layer(vlax-ename->vla-object(car ent)))       )     )   ) (princ) )

in acad after selecting an entity, the alert box left without the layer name

why?

Thanks
Shay

alanjt · 发表于 2022-7-6 06:48:56

STRCASE will change the case (upper/lower) of a string. eg. (strcase "hello") => "HELLO" or (strcase "hello" nil) => "HELLO" or (strcase "HELLO" T) => "hello"
STRCAT (what you want) will join multiple strings. eg. (strcat "800" "85") => "80085"