(princ "\n程式：統計線段長度 命令：zz")(defun C:zz (/ 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) " .")) (princ))將以上程式碼複製在記事本內後“另存為”→“統計線段長度.lsp” 開啟CAD，執行“appload”命令載入剛儲存的“統計線段長度.lsp”檔案 按命令提示“程式：統計線段長度 命令：zz” 輸入命令zz選擇要統計長度的線段即可。命令: 程式：統計線段長度 命令：zz命令: 命令:zz選擇物件: 指定對角點: 找到 4 個 選擇物件: 共選擇 4 條線段. 以上回答由絲 路教 程 網小編整理釋出，希望可以幫助到你。
(princ "\n程式：統計線段長度 命令：zz")(defun C:zz (/ 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) " .")) (princ))將以上程式碼複製在記事本內後“另存為”→“統計線段長度.lsp” 開啟CAD，執行“appload”命令載入剛儲存的“統計線段長度.lsp”檔案 按命令提示“程式：統計線段長度 命令：zz” 輸入命令zz選擇要統計長度的線段即可。命令: 程式：統計線段長度 命令：zz命令: 命令:zz選擇物件: 指定對角點: 找到 4 個 選擇物件: 共選擇 4 條線段. 以上回答由絲 路教 程 網小編整理釋出，希望可以幫助到你。