[寻找]：斑竹们帮忙，能做一个测量多条线段的长度程序吗？

lhj743 · 发表于 2004-10-20 11:50:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最近因为在测量一张电力图纸布线长度，
一条一条测量相加就太麻烦了，
能够有一个程序，
选中多条线段（l、pl、及其弧线）便知长度的程序吗？
拜托各位高手了！

lsjjm · 发表于 2004-10-20 12:59:22

本论坛有许多类似的贴子, 搜索一下. 这是其中之一:
[PHP]
(defun c:test ()
  (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*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
)
[/PHP]

lhj743 · 发表于 2004-10-20 14:07:54

多谢二楼长老，
非常好用！
连SPL线也一样好用！

xiaoyanyan · 发表于 2004-10-23 11:10:44

(defun C:xjzcd (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq N 0)
  (repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
   )
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
  )
  (alert (strcat "\n总长度: " (rtos SUMLEN 2 5)(princ "米")))
  (princ)
)

账号		自动登录	找回密码
密码			立即注册

[寻找]：斑竹们帮忙，能做一个测量多条线段的长度程序吗？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子