统计长度的lsp

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

;% D+ J+ |. I7 }2 R G5 l2 x, E, f
;==============================================================================
' }! v* o0 g8 D+ _+ c, x
;功能:计算所有选择对象的总长,可是是非直线。1 d% n. s$ h2 M" B( m
;==============================================================================" B! g$ W/ {! \* _
(defun c:n()3 t( {5 ?/ j2 o
(setq tleng 0)
" Q8 B5 {2 k. a
(setq s (ssget)); F* F+ l8 y8 a0 r5 N1 ]4 z
(setq n (sslength s))+ x" B' _4 S! Z0 R# C
(setq index (- n 1))1 k) e3 X* V" h! Z) G. G/ R
(repeat n! H# P5 m9 t0 H# L
(vl-load-com)0 {. ]8 G q8 C c9 a5 S
(setq ent (ssname s index))
/ D6 f: D P( {, V& E" E3 Z4 ?
(setq index (- index 1))- q6 l/ e+ C ?/ A& o
(setq curve-obj (vlax-ename->vla-object ent))
! M# l0 N* d% O$ J
(setq leng (vlax-curve-getDistAtParam0 i. F) h. f: r; |" H( W
curve-obj0 q5 }8 p4 c: P" U
(vlax-curve-getEndParam curve-obj)8 P% P8 Z4 K3 }% d. M( y6 y8 v
)7 l6 |7 o7 a8 ]+ l& }4 X
)
. R# ?+ O& _8 ] D3 W9 N
(setq tleng (+ tleng leng))
9 h( {* L$ v) l; j# _/ {1 T
(princ leng)
/ s4 S; N" ?/ R& a* q
(princ "\n")& N$ q% r0 Q Q. x
)
5 ]5 x" C/ ~ a
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1))); i, c, i' ?+ _! ?6 H; M
(princ prscreemtext)
& K) K( F g1 J' g' }4 g- \; ^% Z
(princ)
% u% X$ F X! u* A7 [
)

复制代码

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