统计长度的lsp

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

;
* ]) w, R d, v. |7 U
;==============================================================================
. n& M% E6 {- M$ |% @1 W* n3 { a
;功能:计算所有选择对象的总长,可是是非直线。
# i6 m/ [4 r4 ?4 @% Q# c, _1 j" V% ]
;==============================================================================/ c* [. X& s- G0 K' T" Q7 i
(defun c:n()
* Y7 b# S8 z/ V7 e# `# C) J1 d
(setq tleng 0)
& r5 x2 ~0 w, L4 Y
(setq s (ssget))
( Z( j9 [* Q% ~
(setq n (sslength s))
" T5 v b/ e% }3 S: Z4 v' H
(setq index (- n 1))7 C/ Q: S1 q) T6 R$ f
(repeat n4 V( ]! L3 A6 n
(vl-load-com)& V# }1 G" B% V9 P9 f5 o
(setq ent (ssname s index))
" E; S. s s* D$ o6 T
(setq index (- index 1))
# g8 z* N1 F, X: n
(setq curve-obj (vlax-ename->vla-object ent)). w3 H2 D( H" [, p8 E, L+ k1 K
(setq leng (vlax-curve-getDistAtParam2 s- r. r# Y# j# P( F
curve-obj
1 P* C% S$ }- E. `$ o
(vlax-curve-getEndParam curve-obj)6 q1 c' ~/ l" P& [0 x$ _: ~4 j
)
+ v" `9 J* s2 M" b& u
)
" `6 X0 B" U: @8 u$ s2 M* H# N9 ^
(setq tleng (+ tleng leng))' K% e" b& v3 N# s+ S+ a
(princ leng)
9 @0 {) g+ ]7 o9 S( H% `. p
(princ "\n")# W$ x' k( \/ w1 Y( P- X
)2 f' c% K. ^: h7 v: Q9 ^3 ^
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
# A9 _9 b. z0 \( Z3 K5 P
(princ prscreemtext)
5 D, X9 V5 U0 n
(princ)% G) o2 ?) X# L/ ^
)

复制代码

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