[编程申请]：将选择的文字直接填到ecxel表中

myrooms

在cad设计中常常要用到标准件、材料表统计，请问怎样才能将选择的文字内容按文字在图纸中的位置顺序填入到excel表格中。
以下程序只能按文字选择顺序写入文件中，使用极不方便，该如何修改，请指教
(defun c:txtout (/ fln f a n index el e txt)
        (setq fln (getstring "\n输出文件名:"))
        (setq fln (strcat fln ".txt"))
        (setq f (open fln "w"))
        (setq a (ssget))
        (setq n (sslength a))
        (setq index 0)
        (repeat n
                (setq el (entget ( ssname a index)))
                (setq index ( + index 1))
                (setq e (assoc 0 el))
                (if (= "TEXT" (cdr e))
                        (progn
                                (setq txt (cdr (assoc 1 el)))
                                (write-line txt f)
                                )
                        )
                )
        (close f)
        )

XDSoft

最初由 myrooms 发布
[B]在cad设计中常常要用到标准件、材料表统计，请问怎样才能将选择的文字内容按文字在图纸中的位置顺序填入到excel表格中。
以下程序只能按文字选择顺序写入文件中，使用极不方便，该如何修改，请指教
(defun c:txtou... [/B]

说说顺序是什么规则的？贴个图吧，DWF的，做附件把DWF传上来就可以了。

详细说下。

myrooms

零件编号如图，不知是什么原因，我的cad不能生成dwf文件，将jpg格式的文件传上。另外，本人对VBA不熟悉，明经通道兄能告知VB与VBA的主要区别，用VBA编程要作什么准备工作

明经通道

VBA是VB的一个子集，会VB，跟本就不用学VBA了，看一下就会懂。道理都一样。