cad图中如何统计多根线的总长

发布网友发布时间：2022-04-19 13:25

共2个回答

热心网友时间：2023-06-23 01:19

这个是需要借助插件工具箱才可以计算的，燕秀工具箱中就有这个功能。

热心网友时间：2023-06-23 01:20

; ;;统计线段长度
(defun c:tjxdzdc()
(vl-load-com)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)

(while (progn
(princ "\n请选取要统计长度的线段:")
(setq ssa (ssget '((0 . "LINE,*POLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE"))))
)
(setq zcdz 0.0)
(setq i 0)
(setq n (sslength ssa))
(repeat n
(setq obj (vlax-ename->vla-object (ssname ssa i)))
(setq cdz (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)))
(setq zcdz (+ zcdz cdz))
(setq i (1+ i))
)
(princ (strcat "\n共选取了" (itoa n) "条线段，累计长度=" (rtos zcdz 2 3)))
(alert (strcat " 共选取了" (itoa n) "条线段，累计长度=" (rtos zcdz 2 3)))
)
(setvar "cmdecho" cmd)
(princ)
)