怎么样用程序找出圆环的圆心出来
www.dimcax.com
怎么样用程序找出圆环的圆心出来
命令: dq donut
指定圆环的内径 <1>: 0
指定圆环的外径 <1>: 500
上面画出来一个圆环后，怎么找出它的圆心点出来呀，谢谢！！！！
d
圆环就是多段线lwpolyline
d
vla-getboundingbox 然后找中点
d
(defun f_point (/ en point)
(setq en (car (entsel "选取圆环:")))
(command "ucs" "ob" en "" "")
(setq point (trans (list 0 0 0) 1 0))
(command "ucs" "")
(alert (strcat "x=" (rtos (car point))
"\ny=" (rtos (cadr point))
"\nz=" (rtos (caddr point))))
)
不知道这样是否是你所需
d
现在在桂林旅游，还没有回来，回来再看看