[求助]：求线的总长，有快捷方法吗

saisi · 发表于 2005-4-17 07:16:53

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

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

×

*-*i ，做图时，有一些直线的总长需要求总各，直线有的相接，有的独立，如何很快求出其总长？？？请教了。

ylmsxf · 发表于 2005-4-17 07:37:45

相接的做成PL，后用LIST，独立的直接用LIST。

lincanqiu · 发表于 2005-4-17 07:44:02

按楼上的做就行

maplesu · 发表于 2005-4-17 08:01:19

看看我以前写的一个lisp吧！
不用自己加了，可以直接求和。

[FONT=courier new]
(defun c:sll()
(setq ss (ssget)
n 0
sum 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(command "lengthen" en "")
(setq sum (+ sum (getvar "perimeter"))
n (+ n 1))
)
(ALERT (STRCAT "总长度：" (rtos sum 2)))
)
[/FONT]

Joseflin · 发表于 2005-4-17 08:23:54

指令LIST或LENGTHEN皆可。

saisi · 发表于 2005-4-19 06:17:59

谢谢了。

帆顺晨风 · 发表于 2005-4-19 09:00:00

最初由 maplesu 发布
[B]看看我以前写的一个lisp吧！
不用自己加了，可以直接求和。

[CODE]

(defun c:sll()
  (setq ss (ssget)
n 0
sum 0)
  (repeat (sslength ss)
(setq en (ssname ss n))
... [/B]

这个程序怎么运行阿？

lxuming · 发表于 2005-4-19 09:01:00

4楼方法最好。

aichong · 发表于 2005-4-24 00:00:42

请问4楼，若要一次性显示各线段的长度，各线段的长度用英文的“,”分隔，程序代码又是如何呢？

例如：各线段长度＝1.00,2.50,3.50 总长度＝7.00

cad_janey · 发表于 2005-4-24 14:30:51

你们方法和我想的一样

beyond07 · 发表于 2007-9-17 11:15:34

四楼的很不错，最简便！谢谢

abbs0511visa · 发表于 2007-10-10 14:38:09

代码怎么用呀，有人能给讲讲吗?

beyond07 · 发表于 2007-10-10 19:40:56

四楼的班竹的程序确实很不错！我附带把它改成了lsp以供大家下载使用！

zxc168 · 发表于 2008-7-22 11:33:39

下不来啊!

江帆 · 发表于 2008-7-22 15:10:46

真不错挺实用的
四楼

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

[求助]：求线的总长，有快捷方法吗

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

相关帖子