10多年前在網上發過CAD查詢標注多條線段總長度這個文章，被很多人轉來轉去，文件已經不全，今天又發現以前的功能只能查詢，并不能進行標注，這次又修改了一下，分享給大家，希望能給您帶來一點用處。首先輸入命令：appload

加載lsp文章源自四五設計網-http://www.wasochina.com/45325.html

（也可以添加到啟動組，這樣不用每次都需要加載，啟動組—內容—找到.lsp文件，‘如果加到啟動組，需要關閉cad，再重新打開才生效’）文章源自四五設計網-http://www.wasochina.com/45325.html

輸入命令dxzc文章源自四五設計網-http://www.wasochina.com/45325.html

選擇文章源自四五設計網-http://www.wasochina.com/45325.html

多條線段，然后在屏幕中選取標注位置進行標注。文章源自四五設計網-http://www.wasochina.com/45325.html

將以下代碼復制到記事本，以【.lsp】為后綴命名，存儲以ANSI編碼形式，打開cad，【appload】加載，命令【zhbz】就可以查詢并標注。文章源自四五設計網-http://www.wasochina.com/45325.html

(princ "\n 程序：（XKBUILD）統計線段長度命令：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)) "條線段線段總長" (rtos SUMLEN 2 3) "."))
 
(setq b (rtos SUMLEN 2 2)) ;將數據結果由實數轉換成字符串，且設置為兩個精度，即小數點后兩位
(setq a (getpoint "\n屏幕單擊插入點")) ;指定插入點
(entmake (list '(0 . "text")         ;建立文字圖元屬性列表，文字，插入點，內容，字高
                  (cons 10 a)          
                  (cons 11 a)
                  (cons 1 b)
                  '(40 . 15);字高
           )
)
(princ)
);復制到記事本，以【.lsp】為后綴命名，存儲以ANSI編碼形式，打開cad，【appload】加載，命令【zhbz】就可以查詢并標注，by xkbuild，跟多內容搜索xkbuild