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

chenseoul

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

satan421

求人不如求己。

善用搜索：
http://bbs.mjtd.com/forum.php?mo ... 1%BE%2B%B5%BC%B3%F6

chenseoul

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

善用搜索：

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

satan421

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

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

1. (defun c:test1 ( / t_ss ffn opf n)
   
2.   (setq t_ss (ssget ":N" (list(cons 0 "TEXT"))))
   
3.   (if t_ss
   
4.     (progn
   
5.       (setq ffn (getfiled "输出选中文本:" (getvar "dwgprefix") "csv" 1))
   
6.       (setq opf (open ffn "w"))
   
7.       (setq n 0 m (sslength t_ss))
   
8.       (repeat m
   
9.         (write-line (cdr(assoc '1 (entget (ssname t_ss n)))) opf)
   
10.         (setq n (1+ n))
    
11.       )
    
12.       (close opf)
    
13.       (alert (strcat "\n所选文本已写入: " ffn))
    
14.     )
    
15.     (princ "未选中可导出文本!")
    
16.   )
    
17.   (princ)
    
18. )
    

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

Yruz

长知识了，不错的

chenseoul

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

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

773786668

先标记一下，后面需要了来爬楼