[求助]：zoomcenter在lisp中怎么用呀！

0451doctor · 发表于 2005-2-4 23:08:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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”

aeo · 发表于 2005-2-6 23:24:07

modelspace没有ZoomCenter方法
(VLAX-Get-ACAD-Object)才有!

Free-Lancer · 发表于 2005-2-6 23:31:10

(vla-zoomcenter
(vla-get-application (vlax-get-acad-object))
(vlax-3d-point '(10. 10. 0.))
10
)

复制代码

aeo · 发表于 2005-2-6 23:34:50

(vla-zoomcenter(vlax-get-acad-object)(vlax-3d-point '(10. 10. 0.))10)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：zoomcenter在lisp中怎么用呀！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子