chenseoul 发表于 2019-5-19 21:29:16

求一款导出到excel的插件，功能如下

能按选中文字的先后顺序导出来到excel表格
纵列排序下来。


satan421 发表于 2019-5-20 13:45:28

求人不如求己。

善用搜索：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=5571&highlight=%CE%C4%B1%BE%2B%B5%BC%B3%F6

chenseoul 发表于 2019-5-21 22:15:18

satan421 发表于 2019-5-20 13:45
求人不如求己。

善用搜索：


论坛已经找了好久不行，你这也不行，，，

satan421 发表于 2019-5-22 08:31:48

chenseoul 发表于 2019-5-21 22:15
论坛已经找了好久不行，你这也不行，，，

;;别人的东西又不是为你的需求写的，自己改改呗
;;给你个单行文字的，多行文字的参照我给你的链接改改

(defun c:test1 ( / t_ss ffn opf n)
(setq t_ss (ssget ":N" (list(cons 0 "TEXT"))))
(if t_ss
    (progn
      (setq ffn (getfiled "输出选中文本:" (getvar "dwgprefix") "csv" 1))
      (setq opf (open ffn "w"))
      (setq n 0 m (sslength t_ss))
      (repeat m
        (write-line (cdr(assoc '1 (entget (ssname t_ss n)))) opf)
        (setq n (1+ n))
      )
      (close opf)
      (alert (strcat "\n所选文本已写入: " ffn))
    )
    (princ "未选中可导出文本!")
)
(princ)
)

Yruz 发表于 2019-5-23 13:28:30

长知识了，不错的

chenseoul 发表于 2019-5-23 15:54:38

satan421 发表于 2019-5-22 08:31
;;别人的东西又不是为你的需求写的，自己改改呗
;;给你个单行文字的，多行文字的参照我给你的链接改改
...

大哥 能加微信私聊吗，付费帮忙修改，，，我不懂代码啊。。。。

773786668 发表于 2023-6-2 14:07:41

先标记一下，后面需要了来爬楼
页: [1]
查看完整版本: 求一款导出到excel的插件，功能如下