统计长度的lsp

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

;
$ Q" G- |: [1 |; ?' S2 O! ~: D% \
;==============================================================================# o" b' ~0 N$ d0 S& |/ w
;功能:计算所有选择对象的总长,可是是非直线。- b1 s3 T; S& P7 [( S0 Z2 r
;==============================================================================
! ^1 ~; i% S- T2 Q+ e
(defun c:n()8 W$ u: y8 U* @% P
(setq tleng 0)
( V, W5 z* I& X3 ~( i/ `7 E
(setq s (ssget))
; |4 D( j* E0 o! I/ w
(setq n (sslength s))8 q0 }% Z# ?, @/ v X
(setq index (- n 1))
5 H% D- @4 Y! A' ?0 f$ M" L0 F
(repeat n8 E& C* f' J+ E! m$ v1 C% A" y! @
(vl-load-com)
* l' O8 h) k7 R, f" n
(setq ent (ssname s index))
) F0 M1 R3 F5 w* T0 I3 T B
(setq index (- index 1))" M: S+ u* d+ A! |% |8 C, o% s
(setq curve-obj (vlax-ename->vla-object ent))
, L: Q$ i& ?! a: z
(setq leng (vlax-curve-getDistAtParam
# X8 _/ C9 p4 O
curve-obj/ V3 j( B, N8 j
(vlax-curve-getEndParam curve-obj)! u% |( R: q: j2 G
)
- I t+ ^2 y4 }$ w4 V# \: R, @
)
: ~6 r8 M/ t( o; W3 P& V
(setq tleng (+ tleng leng))
) Z% k! [6 ^/ H, V4 L
(princ leng)' {9 Z$ q& A9 ]! U
(princ "\n")
# X0 P L) Q( N0 f2 ~9 x9 s
)9 |; |' U& j% z8 i* G
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))% g" ?, K5 j7 u0 O
(princ prscreemtext)6 A: [ d9 q+ c+ }
(princ)
; w. p1 T" C# D2 [/ h
)

复制代码

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