当我们在CAD中需要给一个矩形中心加注记,或者需要对矩形进行其他操作的时候,往往需要求一个矩形的中心点坐标,此时我们可以使用如下代码实现:
(defun zxd( ename / obj sp p3)
  (setq obj (vlax-ename->vla-object ename))
  (setq sp (vlax-curve-getstartpoint obj))
  (setq p3 (vlax-curve-getpointatparam obj 2))
  (setq zb (mapcar '(lambda (a b) (/ (+ a b) 2)) sp p3))
)