统计长度的lsp

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

;
) L+ u8 P" t' V0 ]$ G M# B
;==============================================================================
|# k% P+ K' O
;功能:计算所有选择对象的总长,可是是非直线。
Z/ I: ?# G- K
;==============================================================================
4 B; k" f& O0 z ?
(defun c:n()! b. W, k Y+ r* G9 c& a- t8 V
(setq tleng 0)0 x7 t6 U# r" {6 G x/ s9 G
(setq s (ssget))+ _, Y0 C+ f# u$ g
(setq n (sslength s))
/ M3 }; y4 T# ~& p3 S0 C
(setq index (- n 1))
3 K( r. L" Y. T( H
(repeat n
/ J) k9 ~$ I$ w. @8 I1 Z% q
(vl-load-com)
) o( q$ G0 V8 |
(setq ent (ssname s index))0 |& H/ ]4 i1 ?' ^ a- L- j3 r3 W
(setq index (- index 1))6 i7 Z3 o0 y v- I4 o' g2 }
(setq curve-obj (vlax-ename->vla-object ent))
- i3 `& N' k1 R5 k) L
(setq leng (vlax-curve-getDistAtParam/ f8 h! P% s/ R/ Y) e
curve-obj; k4 ]$ W7 w7 M7 d' Y7 c
(vlax-curve-getEndParam curve-obj)' W1 b0 g' f! b) f7 T% R
)# Q2 m: c/ [* y
)
! d9 i, D( q( u
(setq tleng (+ tleng leng))! v* H: a) i, e5 {( I2 H# n
(princ leng)
5 c; q1 B( u* x: l& [4 j4 c7 S
(princ "\n")' g5 k1 P8 |. _' L* s) a5 q% ^
)
! E* P V$ d* y F
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))( E' i- D# R% d4 j6 y8 S
(princ prscreemtext)
(princ)
+ l8 H$ q7 z9 I( M& x$ J1 I
)

复制代码

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