[编程申请]：有没有统计同一层的所有线段长度的程序？

李军

有没有统计同一层的所有线段长度的程序？

XDSoft

最初由 李军 发布
[B]有没有统计同一层的所有线段长度的程序？ [/B]

写好了，请用，另：这个程序你用在什么地方？

;|
   命令：curve_len
   功能：求指定层上选取的LINE实体的总长度
   说明：1、程序保留小数点后2位，如果需要改变请改变下面程序里面的(rtos dis 2 2)
          把最后一个2改程序需要的位数即可
         
        2、程序配合XDRX_API使用，对程序有建议请到：
         晓东CAD空间－论坛 http://www.xdcad.net/forum
         留言
        
|;

梦断江南

2. 
   
3. ;;Ap 求指定层线长和
   
4. (defun c:ap (/ i ent)
   
5. (princ "\nAp  求指定层线长和 --------------lxx.2002.4")
   
6. (setq lay (assoc 8 (entget (car (entsel "\n选择层上任一实体:"))))
   
7.        ss (ssget '((CONS 8 lay)(0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
   
8.        i －1)
   
9. (command "area" "a" "o")
   
10. (while (setq i(1+ i) ent(ssname ss i))
    
11.   (command ent)
    
12. )(command)
    
13. (princ "\n线长和:")(princ (getvar " PERIMETER"))(princ)
    
14. )
    

<br /> ;;Ap 求指定层线长和 <br /> (defun c:ap (/ i ent)<br /> (princ "\nAp  求指定层线长和 --------------lxx.2002.4")<br /> (setq lay (assoc 8 (entget (car (entsel "\n选择层上任一实体:"))))<br />        ss (ssget '((CONS 8 lay)(0 . "*LINE,ARC,CIRCLE,ELLIPSE")))<br />        i －1)<br /> (command "area" "a" "o")<br /> (while (setq i(1+ i) ent(ssname ss i))<br />   (command ent)<br /> )(command)<br /> (princ "\n线长和:")(princ (getvar " PERIMETER"))(princ)<br /> )<br />

eachy

程序写多了^_^
;|
命令:cal_poly_len
功能:计算指定层上的选取的POLYLINE实体的长度总和
说明: 1.程序允许输入层名也可以拾取指定层上的实体获得层名
允许交互选择POLYLINE实体,回车全选
2.计算结果保留4位有效数字,自己可以修改下面程序的(rtos dist 1 4)
把4改为自己需要的.结果采用科学计数法,若要换10进制,请把上面的1改为2.
3.程序仅仅对POLYLINE,LWPOLYLINE实体有效,修改下面程序的
(setq filter....)函数,将*polyline改为其他曲线实体,可以支持所有任意的曲线.
如"*polyline,line,circle,arc,ellipse,spline"支持所有曲线.

对程序的建议请到晓东CAD空间-论坛
http://www.xdcad.net/forum "编程申请"

程序需要配合XDRX_API使用

http://www.xdcad.net/forum/showthread.php?postid=10534#post10534

e2002

最初由 梦断江南 发布
[B][CODE]
;;Ap 求指定层线长和
(defun c:ap (/ i ent)
(princ "\nAp  求指定层线长和 --------------lxx.2002.4")
(setq lay (assoc 8 (entget (car (entsel "\n选择层上任一实体:"))))
       ss (ssget '((C... [/B]

有误啊...8-)
,江南兄是不是没有测试一下啊?

mounthawk

我最需要这个

李军

忘了表示感谢了，谢谢！