Help in a lisp neads

Hello everyone...

I'm trying to use this routine

(defun C:BYLAYER
( / acad doc ssall i obj)
(vl-load-com)
(setq acad (vlax-get-acad-object)
doc (vla-get-activedocument acad)
)
(vla-startundomark acad)
(vla-zoomextents acad)
(cond
( (setq ssall (ssget "x")); get all entities
(setq i 0)
(repeat (sslength ssall)
(setq obj (vlax-ename->vla-object (ssname ssall i)))
(vlax-put-property obj "Color" acByLayer)
(vlax-put-property obj "Linetype" "ByLayer")
(vlax-put-property obj "Lineweight" acLnWtByLwDefault)
(vlax-release-object obj)
(setq i (1+ i))
)
)
)
(vla-endundomark acad)
(princ "\nFinished processing all entities.")
(princ)
)

And I always get this message

; error: ActiveX Server returned the error: unknown name: ActiveDocument

Why do I keep on receiving this message?

Any ideas?

Thanks to all future responses.

Regards

Henrique

 

Why not just use this: (command "change" "all" "" "p" "c" "bylayer" "lt"
"bylayer" "lw" "bylayer" "" "") instead??
Seems like a lot of extra code for nothing.

 

Hi Matt

I only wont's to know where is the error...
Not to use this code, but to use in others..

Thanks

Henrique

 

(setq doc (vla-get-ActiveDocument
acad (vlax-get-acad-object)))
or --------
(setq acad (vlax-get-acad-object))
(setq doc (vla-get-activedocument acad))

Bob

 

Thanks Bob

Henrique