[求助]向各位高手请教一个关于从CAD中提取文本并写到外部文件中的方法

rjh

我现在有一个CAD文件，里面有我想要的大量的数据，每个数据都单独存在于一个“text”里，有上千个，显然要是一个一个的拷贝就太笨了，希望能从“text”文本中自动提取数据并写入一个文本文件里，有序的!!!不想用手工一个一个的选择!!

如下图所示：各文本间的距离有规律可循!!

 

fpiw

遍历所有text对象，按位置点排序，然后依次输出不就可以了吗，不难实现啊!

jaminth

(defun c:46()
(setq ffn (getfiled "Export the specify texts" "D:/perfiles/LISP/homecom/"  "lsp" 1))
(princ "\nSelect the texts...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq n (sslength ss))
(setq i 0 )
(repeat n
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (= sstyp "TEXT")
(progn
(setq txt (cdr (assoc 1 ssdata)))
(write-line txt ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\nExport the file to===>>" ffn))
(command "notepad" ffn)
(prin1)
)
--------------------

可以在出现选择提示后,输入F 进行栏选!