明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 566|回复: 6

导出线段的长度到excel

[复制链接]
发表于 2023-6-2 09:35 | 显示全部楼层 |阅读模式
(defun c:tee ( / &a0 &dis1 &k1 &kw1 &ss1 &ss2)
(if (null vlax-dump-object) (vl-load-com) )
(princ "\n请选择曲线")
(setq &ss1 '("LINE" "LWPOLYLINE" "CIRCLE" "ARC" "HELIX" "ELLIPSE" "SPLINE" "POLYLINE"))
(if (setq &kw1 (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))
  (progn
   (setq &ss2 '())
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1) &a0 (cdr (assoc 0 (entget &k1))))
    (setq &dis1 (vlax-curve-getDistAtParam &k1 (vlax-curve-getEndParam &k1)))
    (setq &ss2 (cons (cons &a0 &dis1) &ss2))
   );while
   (s1712061 &ss1 &ss2)
  )
)
(princ)
)

(defun s1712061 (&ss1 &ss2 / &a0 &dis1 &ss1 &ss2 &ss3 ff tr1 x y);写入长度到表格
(setq tr1 (strcat "D://" (rtos (* 1000000 (getvar "cdate")) 2 0) ".csv"))
(setq ff (open tr1 "w"))
(while (setq &a0 (car &ss1))
  (setq &ss1 (cdr &ss1))
  (if (setq &ss3 (mapcar 'cdr (vl-remove-if-not '(lambda (X) (= &a0 (car x))) &ss2)))
   (progn
    (while (setq &dis1 (car &ss3))
     (setq &ss3 (cdr &ss3))
     (write-line (strcat &a0 "," (rtos &dis1)) ff)
    );while
    (write-line "" ff)
   )
  );if
);while
(close ff)
)

发表于 2023-6-2 13:00 | 显示全部楼层
试了没用啊。。。
发表于 2023-6-2 13:07 | 显示全部楼层
谢谢分享!
测试了一下
可以使用
发表于 2023-6-2 14:00 | 显示全部楼层
CSV这个格式好。
发表于 2023-6-3 13:04 | 显示全部楼层
多谢楼主分享
发表于 2023-6-5 14:13 来自手机 | 显示全部楼层
感谢大佬分享
发表于 2023-7-31 16:54 | 显示全部楼层
测试ok,对于电线电缆计算很直观,也能利用excel的特性加总、加乘,方便很多,感谢大佬分享。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 21:09 , Processed in 0.317293 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表