vla-GetBoundingBox方法可以用???

liub1979 · 发表于 2004-6-18 14:01:00

中心旋转OBJECT
(DEFUN c:crt ()
   (SETQ minExt (VLAX-MAKE-SAFEARRAY VLAX-VBVARIANT '(0 . 2))
maxExt (VLAX-MAKE-SAFEARRAY VLAX-VBVARIANT '(0 . 2))
np    (VLAX-MAKE-SAFEARRAY VLAX-VBDOUBLE '(0 . 2))
   )
   (SETQ ss (VLAX-ENAME->VLA-OBJECT (car(entsel))))
   (VLA-INITIALIZEUSERINPUT (acad-utility) 1)
   (SETQ rot (VLA-GETANGLE (acad-utility) "请输入角度:)"))
   (IF (= (VLA-GET-OBJECTNAME ss) "AcDbTEXT")
   (PROGN
   (VLA-GETBOUNDINGBOX ss minExt maxExt))
   (SETQ x    (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)
   y    (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)
   x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)
   y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)
   )
   (SETQ nx (+ x (/ (- x1 x) 2))
   ny (+ y (/ (- y1 y) 2))
   )
   (VLAX-SAFEARRAY-PUT-ELEMENT np 0 nx)
   (VLAX-SAFEARRAY-PUT-ELEMENT np 1 ny)
   (VLAX-SAFEARRAY-PUT-ELEMENT np 2 0)
   (VLA-ROTATE si np rot)
   )
   )
)
为什么说我Automation错误 VLA-GETBOUNDINGBOX 怎么用?
请各位高手赐教!

alin · 发表于 2004-6-18 14:43:00

Many mistakes :)
(DEFUN c:crt ()
   (SETQ minExt (VLAX-MAKE-SAFEARRAY VLAX-VBVARIANT '(0 . 2))
maxExt (VLAX-MAKE-SAFEARRAY VLAX-VBVARIANT '(0 . 2))
np    (VLAX-MAKE-SAFEARRAY VLAX-VBDOUBLE '(0 . 2))
   )
   (SETQ ss (VLAX-ENAME->VLA-OBJECT (car (entsel))))
   (VLA-INITIALIZEUSERINPUT (acad-utility) 1)
   (IF (= (VLA-GET-OBJECTNAME ss) "AcDbText")
   (PROGN
   (VLA-GETBOUNDINGBOX ss 'minExt 'maxExt)
   (SETQ x    (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)
   y    (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)
   x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)
   y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)
   )
   (SETQ nx (+ x (/ (- x1 x) 2))
   ny (+ y (/ (- y1 y) 2))
   )
   (VLAX-SAFEARRAY-PUT-ELEMENT np 0 nx)
   (VLAX-SAFEARRAY-PUT-ELEMENT np 1 ny)
   (VLAX-SAFEARRAY-PUT-ELEMENT np 2 0)
   (SETQ rot (VLA-GETANGLE (acad-utility) np "\nInput angle: "))
   (VLA-ROTATE ss np rot)
   )
   )
)
(defun acad-utility ()
   (vla-get-utility
   (vla-get-activedocument (vlax-get-acad-object))
   )
)