统计长度的lsp

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

;) X( B+ P" q4 ^) d7 D1 |! q
;==============================================================================2 v* k6 M# x6 s( _
;功能:计算所有选择对象的总长,可是是非直线。
% g2 G" k+ E; n9 j& A
;==============================================================================. _. q* i3 @# Q( V* b8 g- G6 y
(defun c:n()
; v0 I1 ^ i" W* n
(setq tleng 0)& F: u* M @2 ^* U% S
(setq s (ssget))
: ]. d- k& ^: q* [- i0 M& G
(setq n (sslength s))
* n3 L5 g/ F1 |
(setq index (- n 1))# G: K$ H; \ n* Q3 V b7 Q
(repeat n
) H0 V9 @) n) _9 R" `
(vl-load-com), _7 v' p4 t! w. c
(setq ent (ssname s index)): A w* c! A9 L3 x) @$ U i5 n! W
(setq index (- index 1))
% ]9 {5 H7 f8 R; n
(setq curve-obj (vlax-ename->vla-object ent))6 H4 a% ?0 Y! v" v$ L+ R
(setq leng (vlax-curve-getDistAtParam
1 d$ ^8 X& R1 M' Z
curve-obj, V# P) l+ n7 l: g
(vlax-curve-getEndParam curve-obj)/ w3 a6 q% o) s7 V6 K( S8 I
)" t& U$ y8 K- Z2 z9 g9 A' D0 j: Y
)- F! S6 D% w; d% t
(setq tleng (+ tleng leng))
, }/ S _3 m# e
(princ leng)
# Y* K, M" Q* l% q7 h7 S. P$ y$ `: [
(princ "\n")0 X5 X1 E) y9 E+ I7 U4 ?
)
& E1 h" I* A' t
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
$ ]4 L7 X- d- i
(princ prscreemtext)1 l6 I! \( H& ?9 w4 [6 A
(princ)* @0 {5 K1 D# O+ m1 ~( S
)

复制代码

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