(setq ActiveDocument (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (= (vla-get-ActiveSpace activeDocument) 1)
(setq workSpace (vla-get-modelspace activeDocument))
)
(if (= (vla-get-ActiveSpace activeDocument) 0)
(setq workSpace (vla-get-paperspace activeDocument))
)