回覆列表
  • 1 # 天使的羽毛669

    (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 條線段. 以上回答由絲 路教 程 網小編整理釋出,希望可以幫助到你。

  • 中秋節和大豐收的關聯?
  • 休閒會所水吧員是做什麼呢?休閒會所水吧員是?