统计长度的lsp

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

;
1 g5 J0 I, A$ W- ?* R
;==============================================================================
1 ]& F: _3 t9 B
;功能:计算所有选择对象的总长,可是是非直线。/ z+ V. |% U3 M. y" s
;==============================================================================. r; G7 J" q8 |/ ~' {, N
(defun c:n()' A4 L' \. G: r/ H, _% R
(setq tleng 0)& A- K6 t9 s1 b
(setq s (ssget))/ N3 J" q" G0 j' O8 }7 Y* h0 i; ~ }
(setq n (sslength s))+ H* |5 Q( G/ A. \0 G
(setq index (- n 1))
, m2 @( l1 d C: E7 F
(repeat n
6 N* {# x- g& X N% g) d' y
(vl-load-com)
4 t: {1 u8 M, [* K" |5 t
(setq ent (ssname s index))' w* i8 G/ o! F5 W* E3 I: a
(setq index (- index 1))) H* s* ~0 v* T
(setq curve-obj (vlax-ename->vla-object ent))
* A: q9 C" ~% d! A2 E' ~
(setq leng (vlax-curve-getDistAtParam
/ ]3 l$ L G5 H9 U& |# k
curve-obj0 m A, T" J3 d
(vlax-curve-getEndParam curve-obj). m7 h2 Z7 Z- T, c; W
)
0 k O, r7 F* V! [9 z
)6 Y) P+ o, R( K+ A1 F" p
(setq tleng (+ tleng leng))7 I+ a& W. d. P! K" A
(princ leng): n4 L" r5 d1 |8 C, a) [+ u
(princ "\n") i' \4 j: o. \8 A' n* U
)( A, U! ]% U8 C7 I( ?3 W7 [6 O
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
: X9 m" y A" s+ C; U' k
(princ prscreemtext)' t6 F- ^6 J, s @- g9 `$ }$ |7 g% [
(princ)) L% \; z, p8 [
)

复制代码

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