Question

求高手用LISP或VBA写个批量导出图层中所有圆弧圆心坐标的代码

不好意思，批量导出CAD图层中所有椭圆圆心坐标的代码 ！

Answer 1

(defun c:tes()
(setq la (getstring "\n请输入图层名: "))
(setq ss (ssget "X" (list (cons 0 "ARC") (cons 8 la))))
(setq fi (open "C:\\cir.txt" "w"))
(setq si 0)
(repeat (sslength ss)
(setq ct (cdr (assoc 10 (entget (ssname ss si)))))
(setq cx (rtos (car ct) 2 2))
(setq cy (rtos (cadr ct) 2 2))
(setq cz (rtos (caddr ct) 2 2))
(setq ct (strcat cx "," cy "," cz))
(write-line ct fi)
(setq si (1+ si))
)
(close fi)
)