;该插件可以批量获取CAD中由text创建的文本坐标信息和文本标注信息。;使用方法：将以下代码复制粘贴至txt文本中，另存为*.lisp格式文件，在cad中lisp插件加载即可，选中所要提取的文本，输入plwbsc即可批量导出文本信息。;命令：plwbsc (defun c:plwbsc()(princ n选择所需输出的文本TEXT:)(setq ss (ssget );选取坐标点(setq n (sslength ss );计算坐标点数量(setq ff (open (getfiled 文件保存为 f:/ dat 1) w);保存路径(setq i 0)(repeat n(setq spt (ssname ss i )(setq ept (entget spt)(if (= (cdr (assoc 0 ept) TEXT)(progn(setq lxyz (cdr (assoc 10 ept)(setq sx (rtos (nth 1 lxyz);将坐标值实数转换成字符
