10多年前在網(wǎng)上發(fā)過(guò)CAD查詢(xún)標(biāo)注多條線段總長(zhǎng)度這個(gè)文章，被很多人轉(zhuǎn)來(lái)轉(zhuǎn)去，文件已經(jīng)不全，今天又發(fā)現(xiàn)以前的功能只能查詢(xún)，并不能進(jìn)行標(biāo)注，這次又修改了一下，分享給大家，希望能給您帶來(lái)一點(diǎn)用處。首先輸入命令：appload

加載lsp文章源自四五設(shè)計(jì)網(wǎng)-http://www.133122.cn/45325.html

（也可以添加到啟動(dòng)組，這樣不用每次都需要加載，啟動(dòng)組—內(nèi)容—找到.lsp文件，‘如果加到啟動(dòng)組，需要關(guān)閉cad，再重新打開(kāi)才生效’）文章源自四五設(shè)計(jì)網(wǎng)-http://www.133122.cn/45325.html

輸入命令dxzc文章源自四五設(shè)計(jì)網(wǎng)-http://www.133122.cn/45325.html

選擇文章源自四五設(shè)計(jì)網(wǎng)-http://www.133122.cn/45325.html

多條線段，然后在屏幕中選取標(biāo)注位置進(jìn)行標(biāo)注。文章源自四五設(shè)計(jì)網(wǎng)-http://www.133122.cn/45325.html

將以下代碼復(fù)制到記事本，以【.lsp】為后綴命名，存儲(chǔ)以ANSI編碼形式，打開(kāi)cad，【appload】加載，命令【zhbz】就可以查詢(xún)并標(biāo)注。文章源自四五設(shè)計(jì)網(wǎng)-http://www.133122.cn/45325.html

(princ "\n 程序：（XKBUILD）統(tǒng)計(jì)線段長(zhǎng)度命令：dxzc")
(defun C:dxzc (/ 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))
 
)
(princ (strcat "\n共選擇" (itoa (sslength SS)) "條線段線段總長(zhǎng)" (rtos SUMLEN 2 3) "."))
 
(setq b (rtos SUMLEN 2 2)) ;將數(shù)據(jù)結(jié)果由實(shí)數(shù)轉(zhuǎn)換成字符串，且設(shè)置為兩個(gè)精度，即小數(shù)點(diǎn)后兩位
(setq a (getpoint "\n屏幕單擊插入點(diǎn)")) ;指定插入點(diǎn)
(entmake (list '(0 . "text")         ;建立文字圖元屬性列表，文字，插入點(diǎn)，內(nèi)容，字高
                  (cons 10 a)          
                  (cons 11 a)
                  (cons 1 b)
                  '(40 . 15);字高
           )
)
(princ)
);復(fù)制到記事本，以【.lsp】為后綴命名，存儲(chǔ)以ANSI編碼形式，打開(kāi)cad，【appload】加載，命令【zhbz】就可以查詢(xún)并標(biāo)注，by xkbuild，跟多內(nèi)容搜索xkbuild