如何支持多条 多段线角度长度坐标导出excel 源码修改

君是我的泪

http://bbs.xdcad.net/thread-715866-1-1.html


如何修改为支持多条多段线导出excel

(defun c:tcc()
    (if (setq ssa (ssget ":S" '((0 . "lwpolyline"))))
        (if (setq wjm (getfiled "存盘文件" "e:\\" "csv" 1))
             (progn
                  (setq ent (ssname ssa 0)
                        dxf (entget ent)
                        pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf))
                  )
                  (setq i 0  n (length pts))
                  (setq jgb nil)
                  (setq fff (open wjm "w"))
                  (write-line "节点号,X值,Y值,长度(m),角度(°)" fff)
                  (repeat n
                      (if (= i 0)
                          (setq p1 (last pts))
                          (setq p1 (nth (1- i) pts))
                      )
                      (setq p2 (nth i pts))
                      (if (= i (1- n))
                          (setq p3 (car pts))
                          (setq p3 (nth (1+ i) pts))
                      )
                      (setq jlz (distance p1 p2))
                      (setq ang (- (angle p2 p3) (angle p2 p1)))
                      (if (< ang 0) (setq ang (+ ang (* 2 pi))))
                      (if (> ang pi) (setq ang (- (* 2 pi) ang)))
                      (setq ang (vl-string-subst "" "d" (angtos ang 1 0)))
                      (setq i (1+ i))
                      (write-line (strcat (itoa i) ","
                                          (rtos (car  p2) 2 3) ","
                                          (rtos (cadr p2) 2 3) ","
                                          (rtos jlz 2 1) ","
                                          ang
                                  )
                                  fff
                      )
                  )
                  (close fff)
             )
         )
    )
    (princ)
)

Lisphk

只要在AUTOCAD里面生成表格了，都可以使用论坛插件或者晓东工具箱里面的



转出EXCEL文件。

君是我的泪

Lisphk 发表于 2018-6-6 09:43
只要在AUTOCAD里面生成表格了，都可以使用论坛插件或者晓东工具箱里面的

cad2006的，安装不了晓东工具箱，能不能修改一下，供源码保存，其实输出excel和csv一样的。

newer

君是我的泪 发表于 2018-6-6 10:56
cad2006的，安装不了晓东工具箱，能不能修改一下，供源码保存，其实输出excel和csv一样的。

自己找找问题，从2004到2019都可以安装晓东工具箱的，如果你2006装不了，是不是中英文混合那样的版本，找个纯中文版的安装下。

句号之外

这个功能有用

hejiho

这个不错，只是这源码应该保存为什么格式的

newer

hejiho 发表于 2018-6-6 13:07
这个不错，只是这源码应该保存为什么格式的

去看看“插件使用方法”的帖子。

君是我的泪

MNU/MNS 转换失败  

君是我的泪

newer 发表于 2018-6-6 11:47
自己找找问题，从2004到2019都可以安装晓东工具箱的，如果你2006装不了，是不是中英文混合那样的版本，找 ...

MNU/MNS 转换失败，我安装了晓东工具箱，但是遇到问题了，好像要重装，只有这个，没有导出excel

newer

君是我的泪 发表于 2018-6-6 13:42
MNU/MNS 转换失败

就是这个，你的2006肯定特性面板里面有英文。 去找个纯中文版安装，网上遍地都是。

句号之外

Ooooooooooooo

coverne

工具箱好用的

xudongchu

晓东工具箱都有的！

MUYIY

谢谢分享，学习了