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

编程问答

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

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

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

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

上傳者： mccad 　上傳時(shí)間：2002年9月23日

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

;;;計(jì)算線加總長(zhǎng)度

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

(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 "總長(zhǎng)度: " (rtos SUMLEN 2 5)))

(princ)

)

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

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