统计长度的lsp

cslr2012

1. ;
   , r* a5 n& B7 }: ^9 `0 V- s+ }
2. ;==============================================================================
     R: F* \% H$ r. ~1 k- ?: W
3. ;功能:计算所有选择对象的总长,可是是非直线。
   
4. ;==============================================================================
   " V; x3 j6 D; ^* ?$ S$ R; u+ X/ q
5. (defun c:n()
   3 v, O6 ]7 V8 S& r+ }* Q( z0 J
6.     (setq tleng 0)
   - Z( ^" ^! C# f- g
7.     (setq s (ssget))
   
8.     (setq n (sslength s))
   7 s- f" \6 S0 \
9.     (setq index (- n 1))
   
10.     (repeat n
    : X) y* E+ I2 S# K( G
11.         (vl-load-com)
    
12.         (setq ent (ssname s index))
    
13.         (setq index (- index 1))
    1 e0 m/ z/ p- a* F4 e7 d
14.         (setq curve-obj (vlax-ename->vla-object ent))
    1 O0 ~9 N) Q1 Q6 J+ [0 ?# H
15.         (setq leng (vlax-curve-getDistAtParam
    . }3 l- K, G0 p) J+ R
16.                        curve-obj
    
17.                        (vlax-curve-getEndParam curve-obj)
    . X  T$ l' M0 H. {! O" O0 W& Q
18.                    )
    2 e& {( F4 n7 Z' B
19.         )
    . J' j5 c( H# V& Y% K7 C2 I
20.         (setq tleng (+ tleng leng))
    - }* ^- I  ]7 ~
21.         (princ leng)
    
22.         (princ "\n")
    ' E# Q& {% t) s
23.     )
    6 m+ [5 Z; b( U+ b& ]0 p
24.     (setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
    
25.     (princ prscreemtext)
    
26.     (princ)
    , W4 v) _9 s0 h, [# M" D) x0 h6 q# ^
27. )

复制代码

& t$ e) I1 y- W- \! j

使用方法：将代码另存为la.lsp，然后加载，使用的时候运行命令n，可统计l和pl

cslr2012

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

hjliyue

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

fxq314159

不错！真是个好东西！感谢楼主！
我是将它在LISP编辑器下另存为zc.lsp   
                                (defun  c:n()改为(defun  c:zc() 以区分我的另外小工具，
      列入自定义菜单，自动加载，
- R8 K+ M6 H+ }3 ?      效果很好，对直线、圆、圆弧、样条曲线等都能用上。

4 _2 |0 t0 B' {$ ^% x7 }; `[ 本帖最后由 fxq314159 于 2010-5-6 23:06 编辑 ]

fxq314159

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

YOUNGXIAOWEI

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

zw0643

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