【如果只是计算多个闭合的图形的总周长】
1，bo命令创建面域。
2，uni命令合并面域。
3，aa命令点选合并后的面域即可看到周长。
如果需要计算多条不闭合的多段线总长度--包括其中夹杂很多闭合图形的，也可用此法】
1，把以下**拷贝到记事本，并保存为lsp后缀。
2，把该lsp文件拷贝到cad安装目录的support目录下。
3，在cad中用appload命令加载该lsp （在每个新窗口中都要重新加载一次）
4，使用ll命令选中全部多段线就可以算出到总长度。
5，感谢写这段lsp**的人！
;;程序名：
;;功能：计算线段和多义线的长度。
;;版权：(c) copyright 2001.8 by maohong. all rights reserved!
defun c:ll( /a n index0 tuyname)
(setq a (ssget))
(setq n (sslength a)) 求出选择集中的图元数目。
(setq index0 0) ;设置计数器。
(setq s 0)
(repeat n ;对后面的表达式进行n次计算。
(setq tuyname (ssname a index0));返回选择集中由序号指定的图元名。
(setq index0 (+index0 1)) 计数器加一。
(setq ent1 (entget tuyname))
(setq et (length ent1))
(setq et1 et)
(setq index1 0)
(setq test 0)
(setq x2 0)
(setq y2 0)
(setq x1 0 y1 0)
(setq s0 0)
repeat 2
(setq xy (nth index1 ent1))
计算line线长。
(if (=cdr xy) "line")
prognsetq index2 0)
repeat et1
setq xy (nth index2 ent1))
if (=car xy) 10)
prognsetq x1 (nth 1 xy))
setq y1 (nth 2 xy))
if (=car xy) 11)
prognsetq x2 (nth 1 xy))
setq y2 (nth 2 xy))
setq index2 (+index2 1))
(setq s0 (sqrt (+x2 x1) (x2 x1)) y2 y1) (y2 y1)))
line线计算结束。
;计算"lwpolyline"线长。
(if (=cdr xy) "lwpolyline")
(progn
(setq index2 0)
repeat et1
setq xy (nth index2 ent1))
if (=car xy) 10)
if (=test 1)
prognsetq x2 x1)
setq y2 y1)
setq x1 (nth 1 xy))
setq y1 (nth 2 xy))
setq s0 (+s0 (sqrt (+x2 x1) (x2 x1)) y2 y1) (y2 y1)))
if (=car xy) 10)
if (=test 0)
prognsetq x1 (nth 1 xy))
setq y1 (nth 2 xy))
setq test 1)
setq index2 (+index2 1))
计算"lwpolyline"线结束。
(setq index1 (+index1 1))
(print s0)
(setq s (+s s0))
print )
princ "总长度：")
princ s)
setq a nil)
princ)
excel中如何计算年龄
excel中如何计算年龄？例如日期格式1971 1 2，怎么算截至今天的年龄？过了生日就加一岁。即算周岁。1.在a1中输入日期1971 1 2 2.在b1中输入 if now a1 365,int now a1 365 小于1周岁 则b1中显示40 或者更简单的方式，在b1中输入 int now a...
CAD中怎样计算不规则图形面积
有2个方法 1.工具 查询 面积，然后你从图形的起点按顺序点到终点后确定，在最下面命令栏中给出你图形的周长和面积。2.你把图形用reg命令做成面域，然后选中整个图形，用li命令查询即可。当然你把图形合并多段线封闭，然后在用li命令查询也可。cad中计算不规则图形的面积怎么计算，比如一个奇形怪状的水池...
医疗期的计算及累计病休方法
医疗期的计算及累计病休方法 人力资源法律。依据 企业职工患病或非因工负伤医疗期规定 第三条的规定，企业职工因患病或非因工负伤，需要停止工作医疗时，根据本人实际参加工作年限和在本单位工作年限，给予三个月到二十四个月的医疗期 一 实际工作年限十年以下的，在本单位工作年限五年以下的为三个月 五年以上的为六...