统计长度的lsp

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

;6 z6 y0 ?/ |$ X* a, R. H
;==============================================================================# a$ ^ ^+ a. r: d# R& L
;功能:计算所有选择对象的总长,可是是非直线。- K, O8 N" |/ H8 _, s c& Z8 I
;==============================================================================( v2 h) y. W# Q1 i. h
(defun c:n()5 q" S) Q) t: j9 @
(setq tleng 0)
6 c9 p1 [# \; k' \: n3 p
(setq s (ssget))
/ \1 @& D, ?$ Y) j8 X4 v- e5 H
(setq n (sslength s))$ V4 Y: M/ O- Q! y+ [, a+ [, q. \, U
(setq index (- n 1))
, J" T/ w0 \) \4 c
(repeat n
' u2 }1 y- _* D
(vl-load-com)5 l" P8 z) ]! E8 m1 O/ t9 n- p
(setq ent (ssname s index))
. r) ^& b' z5 D `: U/ H7 _
(setq index (- index 1))/ w6 d. r7 G/ U4 r! E$ B& X
(setq curve-obj (vlax-ename->vla-object ent))
# Z- k" {7 B3 L
(setq leng (vlax-curve-getDistAtParam# f' b5 ~& y7 J% i
curve-obj2 e/ N8 I" p" G g+ [: t0 x
(vlax-curve-getEndParam curve-obj)/ `" i( b, V$ D5 |8 z% b6 m
)8 a: A7 a% h3 Q# [8 i4 i- w
). B5 T& \# x$ G- `% K. |
(setq tleng (+ tleng leng))
' ^, Y8 A# ?/ D* ^
(princ leng)0 _% b8 ?! C0 h b3 I# R
(princ "\n")
5 Q4 |/ R7 r# d( t0 Z/ K( R
)) S4 e: P# T0 S2 n. A4 o
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))
* |# y6 j8 j( D# L) I
(princ prscreemtext)$ G0 K i" J% c9 `+ _
(princ)7 s: a1 h' [. }1 W8 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