动态提取cad坐标到EXCEL或EXCEL到CAD

(defun c:lsp_49a() (setvar "cmdecho" 0) (setq ffn (getfiled "写出文件" "" "xls" 1)) (setvar "pdmod