我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置：網站首頁 > CAD教程 > 常見問題

CAD繪圖中顏色如何快速轉化的快捷鍵

時間:2015-12-15 07:31:53 來源:未知

  1. AutoCAD中，顏色代碼為0~256，快速改變顏色的話，autolisp二次開發可以辦到。

  2. 一個方法是快速修改圖元顏色，一個是快速修改當前繪圖顏色，代碼如下：

    1. (defun C:TES ( / #k1 &k1 &kw1 &ob1);選擇對象快速改變顏色
       (if (null vlax-dump-object) (vl-load-com) )
       (if (and
        (setq #k1 (getint "n請輸入0~256顏色代碼"))
        (>= #k1 0)
        (<= #k1 256)
        (princ "n請選擇要改變顏色的對象")
        (setq &kw1 (ssget))
           )
        (progn;;1
         (while (setq &k1 (ssname &kw1 0))
          (setq &kw1 (ssdel &k1 &kw1))
          (setq &ob1 (vlax-ename->vla-object &k1))
          (vla-put-color &ob1 #k1);改變顏色
         );while
        );progn;1
       )
       (princ)
      );復制到記事本以【.lsp】為后綴命名。打開AutoCAD，autolisp加載，命令【TES】
      ;選擇對象改變顏色

      ;;=======================================;;
      (defun C:TES1 ( / #k1);快速改變當前繪圖顏色
       (if (and
        (setq #k1 (getint "n請輸入0~256顏色代碼"))
        (>= #k1 0)
        (<= #k1 256)
           )
        (progn
         (if (= #k1 0) (setq #k1 "ByBlock"))
         (if (= #k1 256) (setq #k1 "ByLayer"))
         (command "color" #k1)
        )
       )
       (princ)
      );autolisp加載，命令【TES1】，改變當前繪圖顏色。