求LISP大神改进代码
现在我已经有了一下代码，可以实现在框选区域捕捉到框选区域文字起点坐标，但是我想把这些信息以excel表格的形式输出，请问怎么改进。谢谢。(defun c:tt (/ ent i lst ss)
(setq lst '())
(if (setq ss (ssget '((0 . "text"))))
(repeat (setq i (sslength ss))
(setq ent (entget (ssname ss (setq i (1- i)))))
(setq lst (cons (list (cdr (assoc 1 ent)) (cdr (assoc 10 ent)) (cdr (assoc 50 ent))) lst))
)
)
)
页:
[1]