發表文章

AutoCAD LISP 使用 VS Code 編輯器

圖片
  一、介紹 Visual Studio Code（簡稱 VS Code）是一款由微軟開發且跨平台的免費原始碼編輯器。 該軟體以擴充元件的方式支援語法突顯、智慧型程式碼補全（又稱 IntelliSense）、程式碼重構功能，並且內建了命令列工具和 Git 版本控制系統。使用者可以更改佈景主題和鍵盤捷徑實現個人化設定，也可以透過內建的擴充元件程式商店安裝其他擴充元件以加強軟體功能。 而 Autodesk 在 AutoCAD 的2021版加入支援 Visual Studio Code 編輯器，可以使用 Visual Studio Code 編輯器來在AutoCAD中Debug 。並且可以選擇編輯器使用原本內建編輯器還是 Visual Studio Code 編輯器。 二、下載 下載 Visual Studio Code 編輯器 免安裝版請下載上面網址的ZIP檔 VS Code 網頁版  (網頁版不能安裝延伸模組，沒辦法安裝AutoLISP擴展套件) 三、中文化 下載後打開是預設是英文介面。 需要下載套件才能中文化。 1. 點選左側功能[ 延伸模組(Extensions) ]，快捷鍵Ctrl+Shift+X 2. 搜尋打[ 中文 ]或[ Chinese ]找到[ Chinese (Traditional) Language Pack for Visual Studio Code ] 3. 點選[ 安裝(Install) ]按鈕 4. 安裝完成後，你可以在右下角看到一則詢問訊息，該訊息是問你是否要切換成剛剛下載好的繁體中文套件，就按下[ Change Language and Restart(切換語言並重新開啟) ]的按鈕。 5.重新啟動後，介面變中文。 四、載入AutoCAD套件 需要下載套件才能支援AutoCAD LISP。 1. 點選左側功能[ 延伸模組( Extensions ) ]，快捷鍵Ctrl+Shift+X 2. 搜尋 [ AutoCAD AutoLISP Extension ] (此為Autodesk官方套件) 3. 點選[ 安裝 (Install) ]按鈕 五、基本使用 稍後補充
張貼留言
閱讀完整內容

AutoCAD LISP 載入或重新載入線型

 內建線型定義檔(.lin)，acad.lin 用於英制單位，而 acadiso.lin 則用於公制單位。(在 AutoCAD LT 則是 acadlt.lin 和 acadltiso.lin) 範例1：載入或重新載入內建所有線型(使用 -linetype指令 ) ;;;程式說明：從 lin 檔案載入或重新載入內建所有線型 ;;;作者：ronjonp ;;;來源： lsp 從 .lin 檔案載入或重新載入所有線型 (defun c:loadlt (/ ex v va)   (setq va (mapcar 'getvar (setq v '(cmdecho expert))))   (mapcar 'setvar v '(0 5))   (foreach lt (if (= 0 (getvar 'measurement)) ; <-是否英制 ;; 或將您的自訂檔案新增至清單中，如果不在搜尋路徑中，請提供完整路徑 '("acad.lin") ;; 公制 '("acadiso.lin")       )     (and (findfile lt) (command "._-linetype" "_Load" "*" lt ""))   );_foreach   (mapcar 'setvar v va)   (princ) );_defun_end
張貼留言
閱讀完整內容

AutoCAD LISP 圖層的性質與群組篩選方法

圖片
不想要一個一個手動新增，可以做成巨集或是LISP來快速新增圖層的性質 (Property) 與群組 (Group) 篩選 (Filter) 分類。  方法1：使用指令(-LAYER) 範例1：新增圖層的性質篩選(名稱：凍結圖層，性質：凍結圖層) 1. 輸入指令： -LAYER 輸入選項 [?/建立(M)/設定(S)/新建(N)/更名(R)/打開(ON)/關閉(OFF)/顏色(C)/線型(L)/線粗(LW)/透明度(TR)/材料(MAT)/出圖(P)/凍結(F)/解凍(T)/鎖住(LO)/解鎖(U)/狀態(A)/描述(D)/調和(E)/外部參考(X)]: 2. 輸入： filter  (此未顯示在指令選項中，為隱藏) 輸入圖層篩選選項 [新建(N)/設定(S)/更名(R)/編輯(E)/刪除(D)/結束(X)]: 3. 輸入： N (新建) 選取圖層篩選類型 [群組(G)/性質(P)]: 4. 輸入： P (性質) 輸入父系圖層篩選 <全部>: 5. 輸入：直接按下 Enter鍵 (此為不在任何分支之下；如果要在已有篩選之子項要輸入此項) 輸入性質篩選定義: 6. 輸入： frozen=="true" (此為凍結圖層)(如果多條件要同時輸入在此處) 輸入圖層篩選的名稱: 7. 輸入： 凍結圖層 (此為決定篩選名稱，不能空白或重複名稱) 輸入圖層篩選選項 [新建(N)/設定(S)/更名(R)/編輯(E)/刪除(D)/結束(X)]: 8. 輸入：直接按下 Enter鍵 結束指令 (如果沒有要繼續輸入) 這樣就新增圖層篩選完成 指令巨集： ^C^C-layer;filter;n;p;;frozen=="true";凍結圖層;; LISP： (Command "-layer" "filter" "n" "p" "" "frozen==\"true\"" "凍結圖層" "") 補充 性質篩選定義 ： 名稱：NAME，要篩選的圖層名稱(可用萬用字元) 關閉：OFF，true/false 凍結：frozen，true/false 鎖住：locke...
張貼留言
閱讀完整內容

AutoCAD 匯出圖片方法整理

 有時候會做簡報或是跟業主或同事溝通，想要簡單快速顯示想表達圖面的部分，通常會想用圖片呈現，但是不同方法又有不同優缺點，在此做些列出並比較。 一、指令輸出法（OUT系指令） 使用內建指令輸出圖片檔案。 可選檔案格式：JPG、PNG、BMP、TIF、WMF......等多種。 使用指令： BMPOUT 指令：將選取的物件儲存至獨立設備點陣圖格式(BMP檔)的檔案中。 JPGOUT 指令：將選取的物件儲存為 JPEG 檔案格式的檔案。 TIFOUT 指令：將選取的物件以 TIFF 檔案格式儲存至檔案。 PNGOUT 指令：將選取的物件儲存為可攜式網路圖形格式(PNG檔)的檔案。 WMFOUT 指令：將選取的物件儲存至 Windows 中繼檔(WMF檔)。（背景為透明）（會建立包含向量資料和 TrueType 字體） PSOUT 指令：從 DWG 檔建立 PostScript 檔案。 EXPORT 指令：將選取的物件儲存為其他檔案格式。（在儲存視窗選擇儲存格式） 使用方法：使用指令後，出現視窗選擇儲存位置及檔名後，選取要輸出物件，即可輸出檔案。 優點： 1. 可以快速輸出圖片檔案。             2. 可以選取需要的物件輸出。（未被選取不會輸出）             3. 選擇Windows 中繼檔(WMF檔)可以背景為透明。 缺點： 1. 此方法是類似 CAD 顯示畫面擷取，導致物件大小會跟顯示畫面內的物件相關             2. 匯出圖片長寬比跟顯示畫面相同             3. 匯出圖片會有選取的物件範圍旁容易有留白問題（不會因為選取的物件而裁減）             4. 在模型使用會有背景是黑色問題（WMF檔例外）             5. 無法使用類似出圖型式表(.ctb)來快速轉換替代色（例如：黃色轉黑色） 二、列印輸出法（PLOT指令） 使用...
張貼留言
閱讀完整內容

AutoCAD LISP 無法預覽DCL 因無法建立 DCL 的暫存檔

圖片
 問題： AutoCAD Visual LISP 編輯器中 想要預覽DCL 但顯示錯誤 ; 警告: 無法建立 DCL 的暫存檔: "C:/Program Files/Autodesk/AutoCAD 2024/$vld$.dcl" 下圖為在LISP編輯器預覽DCL方法 解決方法： 方法1：更改暫存檔路徑 選項 → 檔案 → 支援檔搜尋路徑 按"加入"按鈕，再按"瀏覽"進入瀏覽資料夾對話框中 選取 D:\\CAD 即可，建議將加入之路徑移至最上端。 參考： Autocad 論壇 方法2：未有寫入權限(改善方式：增加寫入權限) 在該資料夾新增 $vld$.dcl 檔案 對該檔案 → 右鍵 → 內容 → 安全性 → 選擇使用者 → 新增寫入權限 參考： Autodesk visual-lisp-autolisp-and-general 討論區  
張貼留言
閱讀完整內容

OpenDCL Studio (工作坊) 繁體中文版 下載

圖片
  OpenDCL Studio (工作坊) 繁體中文版 OpenDCL 是一個開源應用程式平台，專為希望以一組豐富的現代 Windows 使用者介面元素取代 AutoCAD 有限的 DCL（對話控制語言）使用者介面語言的 AutoLISP 程式設計師。  AutoCAD 應用程式開發人員和客製化人員可以使用 OpenDCL Studio 以互動方式設計現代、專業的使用者介面元素，以供 AutoCAD 中的 AutoLISP 程式碼使用。  OpenDCL Runtime 元件與應用程式一起部署，並為 OpenDCL 應用程式的最終使用者提供 AutoCAD 內部必要的執行時間框架。 這是AutoCAD對話框外掛，經由模組化後不用像舊的DCL一樣用程式碼做對話框， 而是像VBA一樣可以視覺化去設計版面。 下載分兩個部分 OpenDCL Studio    ＜--- 這是版面設計程式，只有設計者要安裝 OpenDCL Runtime ＜--- 這是 AutoCAD 外掛安裝檔，用來加載 OpenDCL 檔案，沒有這個無法執行(因為 OpenDCL 提供了 原本 DCL 更多的功能) OpenDCL Studio 繁體中文版 v9.1.5.2(翻譯版本14) 下載 協助中文版翻譯(目前翻譯未完全完成) Google 文件翻譯對照檔案 我是用簡體中文版進行翻譯(但看到裡面還有很多英文，所以心血來潮就進行翻譯) 所以有些可能會是對面用語 因為個人語言能力有限，有些還沒翻譯或不知道該如何翻就沒有翻譯 上面Google文件翻譯檔案只有介面翻譯檔案，沒有說明檔(因為原本官方提供是HTML檔，我還在想要怎麼處理) 回報翻譯問題
張貼留言
閱讀完整內容

AutoCAD LISP 分享K函數庫

圖片
 理念     在學習或是開發AutoCAD LISP的時候，經常因為需要的功能沒有在內部函數中，而需要自行寫出相對的功能，在重複使用相同功能下，則自行定義成函數會方便重複使用，但同時在初期學習或是開發階段，這個過程會花上許多時間，所以我嘗試分享自己寫的函數。     寫成函數的好處： 1. 方便重複利用，可以減少寫得程式碼 2. 解讀程式碼方便，因為對應函數是對應功能，進而快速理解程式碼是做什麼 下載：(內含有說明) K函數庫V1.3.2 K函數庫V1.3.1 (修正部分函數沒有載入) K函數庫V1.3 K函數庫V1.2 AutoCAD 如何載入LISP檔案 範例： ;;;輸出點座標到TXT檔案 ;;;作者：夜源 ;;;時間：2024/10/20 ;;;需載入K函數庫 (defun C:output-point-coordinates ( / ss file)     (princ "\n 選取點物件：")     (cond ((not (setq ss (ssget '((0 . "POINT"))))) (princ "\n 沒有選取點物件") );_ ((not(setq file (getfiled "輸出資料到" "" "txt" 1))) (princ "\n 沒有選擇儲存檔案。") );_ (T (k:file_write      file      (mapcar '(lambda (x)       (K:list-str-combine   (mapcar 'rtos (cdr (assoc 10 (entget x))))   ",")       ) (K:ss->list ss))) );_T );_cond   (princ)   );_end ;;;載入TXT檔案的點座標到圖面繪製點 ;;;作者：夜源 ;;;時間：2024/10/20 ;;;需載入K函數庫 (defun...
張貼留言
閱讀完整內容