统计长度的lsp

cslr2012 · 发表于 2010-5-5 19:28

;
" g( p- r0 L* `' `- u- s. V
;==============================================================================
, L6 G6 a, e) J2 r( j
;功能:计算所有选择对象的总长,可是是非直线。8 T& A b# R; m; F+ j; D: v+ S
;==============================================================================
: q/ a' M2 f* {' R5 ~
(defun c:n()
4 d4 m6 p, K! _% g* G& P6 j
(setq tleng 0)
) V4 A7 ^9 F' Z5 I7 C( ?
(setq s (ssget))
& T. f0 K% S) n; h2 g
(setq n (sslength s))
( r, b( ?! D" S% K
(setq index (- n 1))% \7 Z3 @% X! P2 a6 \
(repeat n2 f5 {6 w* ]: f0 O, f1 S
(vl-load-com) S! C8 X% l2 x% K B8 l! _
(setq ent (ssname s index)). f* D6 H' M7 p6 Z0 r
(setq index (- index 1))* z. ^% m' W2 {& U9 Y0 K! F
(setq curve-obj (vlax-ename->vla-object ent)). k, Q9 x' J/ \/ b. Y: r* ^
(setq leng (vlax-curve-getDistAtParam
+ T+ ]& G* w: ?( c9 N1 s6 Z
curve-obj
0 F2 r1 y; [3 n+ Q
(vlax-curve-getEndParam curve-obj)/ ]+ _- `; a7 c! `( Y7 b
)
/ E5 K5 l+ d1 |
)( r, z6 h# v/ O
(setq tleng (+ tleng leng))
, a+ P( {! ]) R
(princ leng)
- n" j9 I" d/ J- H, k& r
(princ "\n")# j, M/ @% v+ }+ `# ]+ }% ]
)6 k, i& B _0 Z) l
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
* ?0 I3 v# f1 X4 e( l2 t* X7 b7 }& o
(princ prscreemtext)
% I2 @0 Q, l: L) [: O5 [
(princ)
: T. U+ C B- h: ]; k! R
)

复制代码

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

cslr2012 · 发表于 2010-5-5 19:28

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

hjliyue · 发表于 2010-5-6 10:32

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

fxq314159 · 发表于 2010-5-6 23:04

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

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

fxq314159 · 发表于 2010-5-6 23:18

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

YOUNGXIAOWEI · 发表于 2010-5-11 23:14

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

zw0643 · 发表于 2010-5-11 23:46

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

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

[开发] 统计长度的lsp