Question

autolisp导出指定图层文字

求个autolisp程序，我想将指定图层里的文字导入一个EXCEL表格里

Answer 1

(defun c:tt (/ CMDECHO DX ENT F GET GX0 GX8 LEN NN SAVEFILE SS TS)
(princ "\n功能 [指定层文字写入EXCEL]")
(setq cmdecho (getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq savefile (getfiled "" "" "csv" 1))
(setq f (open savefile "a"))
(if
(and
(setq ent (entsel "\n选择要写入EXCEL层的参照文字:"))
(setq get (entget (car ent)))
(setq gx0 (cdr (assoc 0 get)))
(setq gx8 (cdr (assoc 8 get)))
(or (= gx0 "TEXT") (= gx0 "MTEXT"))
)
(progn
(princ "\n框选要写入EXCEL的文字对象:")
(setq ss (ssget (list '(0 . "*text") (cons 8 gx8))))
(and ss
(progn
(setq len (sslength ss))
(repeat len
(setq nn (ssname ss (setq len (1- len)))
dx (cdr (assoc 1 (entget nn)))
ts (cons dx ts)
)
);repeat
(foreach str ts
(WRITE-LINE str f)
)
(close f)
);and-progn
);and
);if-progn
);if
(setvar 'cmdecho cmdecho)
(princ)
)