當(dāng)前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

cad线段总和lisp_cad lisp-求线段总长度

發(fā)布時間：2023/12/29 编程问答 28 豆豆

生活随笔收集整理的這篇文章主要介紹了 cad线段总和lisp_cad lisp-求线段总长度小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

來源：明經(jīng)CAD社區(qū) 　作(譯)者：龍龍仔

上傳者： mccad 　上傳時間：2002年9月23日

;;;-----------------------------------------------------

;;;計算線加總長度

;;;-----------------------------------------------------

(defun C:LENOF (/ 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-&gtvla-object (ssname SS N)))

(setq TLEN (vlax-curve-getdistatparam

CURVE

(vlax-curve-getendparam CURVE)

)

(setq SUMLEN (+ SUMLEN TLEN))

(setq N (1+ N))

)

(print (strcat "總長度: " (rtos SUMLEN 2 5)))

(princ)

)

以上是生活随笔為你收集整理的cad线段总和lisp_cad lisp-求线段总长度的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。