[求助]：给个VLAX-GET-ACAD-OBJECT的代码吧：）

kfxz · 发表于 2009-2-20 09:53:55

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

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

×

在2006下面，做的lisp程序中用到了VLAX-GET-ACAD-OBJECT，应该是一个函数，但是到2008下面就没有了。哪位高手能帮忙提供一下VLAX-GET-ACAD-OBJECT的代码或者解决方法，谢谢。

原lisp程序是这样的：（文字旋转180度的功能）
(defun c:tt (/ pmid ent)
  (if (ssget '((0 . "text")))
(vlax-for ent (vla-get-activeselectionset
      (vla-get-activedocument (vlax-get-acad-object))
   )
   (vla-getboundingbox ent 'uu 'bb)
   (setq pmid (mapcar '(lambda (a b) (/ (+ a b) 2.))
   (safearray-value uu)
   (safearray-value bb)
   )
   )
   (vla-rotate ent (vlax-3d-point pmid) pi)
)
  )
  (princ)
)

taner · 发表于 2009-2-20 16:49:16

狂晕!找AUTOCAD公司去!

yshf · 发表于 2009-2-21 11:47:36

程序改为如下即可:
(defun c:tt (/ pmid ent)
(vl-load-com)
(if (ssget '((0 . "text")))
(vlax-for ent (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-getboundingbox ent 'uu 'bb)
(setq pmid (mapcar '(lambda (a b) (/ (+ a b) 2.))
(safearray-value uu)
(safearray-value bb)
)
)
(vla-rotate ent (vlax-3d-point pmid) pi)
)
)
(princ)
)

zml84 · 发表于 2009-2-21 14:55:35

楼主：对于相同的内容，请不要开新帖。谢谢

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

[求助] [求助]：给个VLAX-GET-ACAD-OBJECT的代码吧：）

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

相关帖子