(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)))) ) 不知道这样是否是你所需 |