(setq current_actdoc (vla-Item (vla-get-Documents (vlax-get-acad-object)) "123.dwg"))
(setq current_modspace (vla-get-modelspace current_actdoc))
(setq obj (vla-get-ActiveSelectionSet current_actdoc))
(setq ss (vla-SelectByPolygon obj acSelectionSetWindowPolygon
(vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 14))
(append (list 0 0 0) (list 0 3000 0) (list 3000 3000 0) (list 3000 0 0) (list 0 0 0)))
(vlax-safearray-fill (vlax-make-safearray vlax-vbInteger '(0 . 0)) '(0))
(vlax-safearray-fill (vlax-make-safearray vlax-vbVariant '(0 . 0)) '("INSERT"))))