统计长度的lsp

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

;! p! I( i# ^7 _& O) P
;==============================================================================
" x6 P2 D) r9 e) L0 b
;功能:计算所有选择对象的总长,可是是非直线。
( t! S2 Y8 w1 G+ M `
;==============================================================================6 i3 a) I. W# o. @/ e" S
(defun c:n()1 [) j7 x6 I3 A: `1 I- H" T
(setq tleng 0)8 P) F: b" y( z; |* D
(setq s (ssget))
& J7 q$ O! n; n
(setq n (sslength s))
0 _. i2 c% s" V' W6 W7 D: e- s
(setq index (- n 1))' `5 Q; |4 \9 l: L: \
(repeat n
9 L& K* m3 X, P3 D+ g* W
(vl-load-com)+ t# g o8 Q2 z/ X. g- a% v( w
(setq ent (ssname s index))
( J- Q9 z! }. }$ P- r% M' ^2 l
(setq index (- index 1))
! H C e" w; q
(setq curve-obj (vlax-ename->vla-object ent))0 s- E3 O- G% f$ q" C. ?9 Q
(setq leng (vlax-curve-getDistAtParam
% C$ u8 s$ P6 C6 p
curve-obj) C: Q" v' `( R! J4 y3 w) p- h* ]1 Z
(vlax-curve-getEndParam curve-obj)$ g# Z3 p. M" c- H2 B1 h* e
)
" u- ]% {; _" E4 j* h
): |# V! J) S! p- D' }1 A% g
(setq tleng (+ tleng leng))9 Q0 ^' z' h( {+ ~$ \
(princ leng)
: `7 f) r+ m1 d! D. |% H, {9 l
(princ "\n")' k$ s7 e# g+ |7 V
)
' `; h6 P1 ]/ Y, |
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))3 F R7 I8 z: \4 W- W7 F! w. `. C8 p
(princ prscreemtext)/ I/ N" F" T) }: Z1 b
(princ)
* }. I: ]$ P w4 B4 N
)

复制代码

使用方法：将代码另存为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