vla-GetBoundingBox方法可以用???

liub1979

中心旋转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

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))
)
)

liub1979

原来如此 谢谢alin 以后还请多多指教!!


那么 object.GetEntity Object, PickedPoint[, Prompt]


用vlisp解释应该是 (vla-getentity        object 'pickedpoint         [msg])


对吗?

alin

应该是 (vla-getentity        object 'object 'pickedpoint         [msg])


第一个object是utility, 即上面程序中的(acad-utility)


第二个为选中的输出的object

liub1979

再次感谢ALIN