批量提取cad坐标到txt的lisp源码

(defunc:plzbsc()(princ\n选择所需输出的点（point）:)(setqss(ssget));;选取坐标点(setqn(sslengthss));计算坐标点数量(setqff(open(getfiled文件保存为f:/dat1)w));保存路径(setqi0)(repeatn(setqspt(ssnamessi))(setqept(entgetspt))(if(=(cdr(assoc0ept))POINT)(progn(setqlxyz(cdr(assoc10ept)))(setqsx(rtos(nth1lxyz)));将坐标值实数转换成字符(setqsy(rtos(nth0lxyz)))(setqsz(rtos(nth2lxyz)))(setqi1(+i1));计算点序号(setqsn(rtosi120));将序号实数转换成字符(setqsxyz(strcatsn,,sy,sx,sz))(write-linesxyzff)))(setqi(+i1)));repeat)(prompt*命令:plzbsc*输出格式（点号,,Y，X，Z）**)(prin1)