正在加载...
0人已收藏
0人已打赏
0人已点赞
分享
全部回复（8 ）
主题
回复
粉丝
CAD下载及教程
52.09 万条内容 · 667 人订阅
阅读下一篇
down了个2011而且激活了... 但是那个工作空间里面没有auto cad经典这个选项... 新界面用不惯啊只有自定义那个选项....能不能教教我怎么调啊?感激了感激了~!
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复（8 ）
只看楼主 我来说两句-
liyp7608826
沙发
下来看看，多谢楼主的资料。学习中！非常感谢:victory:
2010-11-29 21:16:29
赞同0
-
zml84
板凳
[code];;;=================================================================*
2010-11-05 10:02:05
赞同0
加载更多回复 举报
;;;功能：测量线的长度 *
;;;日期：zml84 于 2009-05-21 17:45 *
(defun C:cd ()
(princ "统计线段长度")
(if (setq SS (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE"))
)
)
(progn
;;
(setq LST_LEN '()
I 0
)
;;逐个统计
(repeat (sslength SS)
(setq EN (ssname SS I)
LEN (vlax-curve-getdistatparam
EN
(vlax-curve-getendparam EN)
)
LST_LEN (cons LEN LST_LEN)
I (1+ I)
)
)
(setq LST_LEN (reverse LST_LEN))
;;显示输出
(princ "\n找到个数：")
(princ (sslength SS))
(princ "\n单个长度：")
(princ LST_LEN)
(princ "\n总计长度：")
(princ (apply '+ LST_LEN))
)
)
(princ)
)
;;;=================================================================*
;;;(alert
;;; "功能：统计线段长度\n命令：\"CD\"\n日期：zml84 于 2009-05-21 17:45"
;;;)
(princ)[/code]
回复 举报