统计长度的lsp

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

;4 p# ^$ E5 n! K3 k/ w' G
;==============================================================================( G O' l$ ~9 J
;功能:计算所有选择对象的总长,可是是非直线。
9 u7 S d3 x+ a1 o' R/ z; N
;==============================================================================
9 G# Q1 h* W( i8 g
(defun c:n()
+ c, D4 U7 n: M- L. a. z& T7 X
(setq tleng 0)/ h$ q' t3 R; u! N b$ h" }
(setq s (ssget))
. f9 u4 ]6 n% m8 k
(setq n (sslength s))
' D8 p6 [$ z' [
(setq index (- n 1))
2 ]- n2 P! a, T
(repeat n
" @9 b2 @: g! Q. G
(vl-load-com)
% E# k1 ~) e; M7 g! s3 e w L
(setq ent (ssname s index))
$ f0 T9 D7 V0 E) m2 f1 k: t
(setq index (- index 1))6 Q! q' L1 U1 Q7 H# ?# ]2 B* o5 e
(setq curve-obj (vlax-ename->vla-object ent)): P% R. W2 s0 ^8 o; m
(setq leng (vlax-curve-getDistAtParam
3 Z8 ?$ m1 o% C5 U" W" Y* a
curve-obj
' l- X! c1 T, c. c
(vlax-curve-getEndParam curve-obj)
2 b0 s' {: S5 D
)
1 z/ ?2 r D; j3 K: h( C- k4 g
)
1 l* O; p$ x- k# ~4 V4 }( r9 ~
(setq tleng (+ tleng leng))0 ]/ v" ~3 \/ |( }" O7 C
(princ leng)$ t$ d$ f* ^0 e9 ?% p; m( C
(princ "\n"). `/ Y& |2 i" O N" s% F5 S
)
, B& V" Z! e$ O6 U! K/ k
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1)))# y% P# `& j. h9 V# t5 G. W
(princ prscreemtext)
. h7 |+ t. r9 \- G# Q9 K
(princ)
: Y/ l5 J- c5 o" }: d" d
)

复制代码

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