何泓岭 发表于 2012-4-17 17:55:42

求多段线长度

求多段线长度

【KAIXIN】 发表于 2012-4-17 18:45:41

要分享源码就要弄完整一点点(defun C:KK (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
(setq SUMLEN (+ SUMLEN TLEN 0))
(setq N (1+ N))
)
(setq PS (getpoint "\n请指定长度文本放置点："))
(command "text" pS 2.5 0 (strcat "L=" (rtos sumlen 2 2)))
(PRINC))
(princ "\n程序：统计线段长度 命令：KK") (PRINC)

yjr111 发表于 2012-4-17 18:52:33

经典在此！永不过时。。。
http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=1275
页: [1]
查看完整版本: 求多段线长度