zoomcenter在lisp中怎么用呀！

0451doctor

defun c:a ()
(setq a (car (entsel))
b (vlax-ename->vla-object a)
)
(VLR-Pers (VLR-Object-Reactor
(Cons b '())
(Cdr (Assoc 5 (EntGet a)))
'((:vlr-modified . movebc3))
)
)
)
(Defun movebc3 (a101 a102 parameter-list / cen len lel pt1 cel a)
(SetQ cen (HandEnt (VLR-Data a102))
len (VLAX-VLA-Object->EName a101)
lel (zhaozm len 10) )
(setq a (mapcar '+ (nth 0 lel) (nth 1 lel) (nth 2 lel) (nth 3 lel))
a (list (/ (car a) 4) (/ (cadr a) 4))
)
(vla-ZoomCenter (vla-get-modelspace (vla-get-ActiveDocument (VLAX-Get-ACAD-Object)))
(vlax-3d-point (list (car a) (cadr a) 0))
1000.00
)
(princ)
)
总提示“服务器返回错误: 未知名称: ZoomCenter”