(princ "\n程序：統(tǒng)計(jì)線段長(zhǎng)度 命令：te")(defun C:TE (/ 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)) (setq N (1+ N))) (setq sumlen(/ sumlen 1000))(princ (strcat "\n共選擇 " (itoa (sslength SS)) " 條線段. 線段總長(zhǎng): "(rtos SUMLEN 2 3) "米."))(princ)

加載后 te 可以算出所選線的總長(zhǎng)度

總結(jié)

以上是生活随笔為你收集整理的cad工具箱详细讲解_AutoCAD有哪几类工具箱，各有什么优势？网上找了一下，没有系统讲解，劳驾各位大神啦。...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

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