[求助]：[求助]：关于求N条多段线的总长

忆江南 · 发表于 2006-8-7 21:47:25

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

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

×

请教各位大虾一个问题,我想求出选中的N条多段线的总长度该用什么方法?谢谢!

qrs · 发表于 2006-8-7 21:57:33

求出每条线的长度，累加

xiaoyanyan · 发表于 2006-8-7 23:04:16

用用这个程序

yi.gao · 发表于 2006-8-7 23:10:36

现在下载附件依然有问题，请xiaoyanayn朋友将代码原文贴出来，否则大家都无法共享，谢谢你！

xyp1964 · 发表于 2006-8-8 08:08:37

[pcode=lisp,true](load "xyp_lib.vlx")
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：[/COLOR]
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
http://free.ys168.com/?xyp1964
|;

;;;线长统计
(defun c:test001 ()
  (CMDLA0)
  (setq       ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
      sum 0
      i -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq l (xyp-get-CurveLength s1)
      sum (+ sum l)
)
(princ"\n")
(princ l)
  )
  (princ "\n总线数 = ")
  (princ i)
  (princ "\n总线长 = ")
  (princ (rtos sum 2 3))
  (CMDLA1)
)[/pcode]

xiaoliu626 · 发表于 2006-8-8 08:24:48

很好程序,工作中作用很大,谢谢

bavfpl · 发表于 2006-8-11 08:09:33

我也正需要呢。

忆江南 · 发表于 2006-8-12 19:21:49

楼上的两位朋友，xyp1964提供的程序你们用了吗？我怎么用不起来啊？是我太菜了？

山里路人 · 发表于 2006-8-14 12:25:49

真希望3楼楼主重新发一下，想用，但5楼的代码看不懂，我也不懂lisp。

xyp1964 · 发表于 2006-8-14 16:48:58

线长统计：

99lr · 发表于 2006-8-15 08:28:02

用多义线画就可以直接量出来

忆江南 · 发表于 2006-8-27 13:14:15

我所说的是不连续的N条线段哦

xupz10 · 发表于 2006-12-14 13:46:06

我也非常需要

andytom · 发表于 2006-12-15 10:43:28

谢谢

dicktautau · 发表于 2006-12-17 21:16:24

看不懂lisp文件，郁闷

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

[求助]：[求助]：关于求N条多段线的总长

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

相关帖子

评分