统计长度的lsp

cslr2012

1. ;
   
2. ;==============================================================================
     w- R4 q9 v' n9 j8 ^+ y
3. ;功能:计算所有选择对象的总长,可是是非直线。
   - A- |' y* Z3 r
4. ;==============================================================================
   
5. (defun c:n()
   9 V1 j( \5 \& q, g! g. o
6.     (setq tleng 0)
   7 j# c8 H0 t" }5 {9 ]/ i. I
7.     (setq s (ssget))
   
8.     (setq n (sslength s))
   + ?& J& k$ y& u; E# r' G2 v
9.     (setq index (- n 1))
   
10.     (repeat n
    
11.         (vl-load-com)
    # G% F: }7 c8 U' R0 e% L
12.         (setq ent (ssname s index))
    
13.         (setq index (- index 1))
    2 y6 e6 z0 j9 n& H# E( y
14.         (setq curve-obj (vlax-ename->vla-object ent))
    ; j. E$ l- m1 `: O6 U7 c1 M
15.         (setq leng (vlax-curve-getDistAtParam
    
16.                        curve-obj
    - A' j" }# M# W+ u6 N- Z; v& z
17.                        (vlax-curve-getEndParam curve-obj)
    
18.                    )
    ) z: B) ~& {2 X3 }
19.         )
    
20.         (setq tleng (+ tleng leng))
    
21.         (princ leng)
    
22.         (princ "\n")
    
23.     )
    ; |) \6 y+ H2 j' S* v# `# {3 W
24.     (setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
    
25.     (princ prscreemtext)
    4 \+ S7 d9 {6 _  z1 E1 J3 J  E
26.     (princ)
    & A( @: ?" C3 R8 k3 ?$ y; p5 L
27. )

复制代码

  i3 I+ n& u" u$ A& \/ e
. P! s  {3 R: \, W6 y/ P
使用方法：将代码另存为la.lsp，然后加载，使用的时候运行命令n，可统计l和pl

cslr2012

快捷键是n，可统计l和pl

hjliyue

我试了好几遍，都没有成功，我正需要这个东东，请楼主帮帮我，不胜感激！

fxq314159

不错！真是个好东西！感谢楼主！
我是将它在LISP编辑器下另存为zc.lsp   
* m3 I9 W0 R' H& N* S+ V                                (defun  c:n()改为(defun  c:zc() 以区分我的另外小工具，
. r* ~2 N. [9 w& V$ V, z* `9 J      列入自定义菜单，自动加载，
      效果很好，对直线、圆、圆弧、样条曲线等都能用上。

[ 本帖最后由 fxq314159 于 2010-5-6 23:06 编辑 ]

fxq314159

楼主：不好意思！纠正一下您功能介绍中的一点疏忽，应是：可以是非直线。谢谢！

YOUNGXIAOWEI

很好。。。。。。。。。。。。。。

zw0643

新手，请问楼主的代码是不是相当于自己写的一个CAD功能程序呢