[求助]向各位高手请教一个关于从CAD中提取文本并写到外部文件中的方法
<p>我现在有一个CAD文件，里面有我想要的大量的数据，每个数据都单独存在于一个“text”里，有上千个，显然要是一个一个的拷贝就太笨了，希望能从“text”文本中自动提取数据并写入一个文本文件里，有序的!!!不想用手工一个一个的选择!!</p><p>如下图所示：各文本间的距离有规律可循!!</p><p> </p> 遍历所有text对象，按位置点排序，然后依次输出不就可以了吗，不难实现啊! <p>(defun c:46()<br/>(setq ffn (getfiled "Export the specify texts" "D:/perfiles/LISP/homecom/" "lsp" 1)) <br/>(princ "\nSelect the texts...") <br/>(setq ss (ssget)) <br/>(setq ff (open ffn "w")) <br/>(setq n (sslength ss))<br/>(setq i 0 )<br/>(repeat n<br/>(setq ssn (ssname ss i)) <br/>(setq ssdata (entget ssn)) <br/>(setq sstyp (cdr (assoc 0 ssdata))) <br/>(if (= sstyp "TEXT") <br/>(progn<br/>(setq txt (cdr (assoc 1 ssdata))) <br/>(write-line txt ff)<br/>) <br/>) <br/>(setq i (1+ i))<br/>)<br/>(close ff) <br/>(princ (strcat "\nExport the file to===>>" ffn))<br/>(command "notepad" ffn)<br/>(prin1) <br/>)<br/>--------------------</p><p>可以在出现选择提示后,输入F 进行栏选!</p>
页:
[1]