[求助]：如何统计cad图纸中多条直线长度！

rocky_tao

一张cad图纸中如何使得选定的多条直线，直接统计出总长度？？
请各位高手帮助解决。

eachy

工具箱 -> 曲线 -> 曲线长度

lsjjm

最初由 rocky_tao 发布
[B]一张cad图纸中如何使得选定的多条直线，直接统计出总长度？？请各位高手帮助解决。 [/B]

搜索一下论坛, 有许多此方面的贴子! 请参考:
(defun c:test ()
  (setq ss (ssget '((0 . "LINE"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
    (setq ent (ssname ss n))
    (setq sum (+ sum (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))))
    (setq n (1+ n))
  )
  sum
)

自由的鱼

Sub sumL()
Dim L As AcadLine
Dim i As Integer
Dim Ld As Double
Dim sset As AcadSelectionSet
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 0
Fdata(0) = "LINE"
Set sset = ThisDrawing.SelectionSets.Add("tt")
sset.SelectOnScreen Ftype, Fdata
Ld = 0
For i = 0 To sset.Count - 1
Ld = Ld + sset.Item(i).Length
Next
MsgBox Ld
sset.delete
End Sub

jsntjack

请问这是什么意思呀？是哪里出了问题？

自由的鱼

最初由 jsntjack 发布
[B]请问这是什么意思呀？是哪里出了问题？ [/B]

把问题说清楚一些！

lzf5223128

晓东空间有下载

god_lifeng

曲线长度这个命令在哪里？
有命令行吗？