預覽阿貴寫的 VLX 程式幻燈片影像

程式名稱 : yalp.vlx
載入指令 : (load "yalp")
執行指令 : yalp

*************************************************************
請輸入 yalp , 可預覽阿貴寫的 VLX 程式幻燈片影像

此為幻燈片影像對話框的範例,
可以瀏覽資料夾內所有的 .vlx 檔案的幻燈片影像.
預設的瀏覽資料夾存在 get_VLX_folder.LSP 檔案內,
可以更改預設的資料夾路徑.
幻燈片可以自行製作, 名稱同 .vlx 程式的主檔名, 副檔名
為 .sld
此檔僅作展示 AUTOLISP 影像對話框,
按
 左邊的文字選項, 右側的幻燈片會同步顯示,
按 右側的幻燈片, 左邊的文字選項會同步顯示;
按 [ 確定 ] 按鈕, 原程式會執行所選取的 .vlx 程式,
在此展示程式取消執行的動作,
只展示預覽的功能.

要瞭解執行的 autolisp 語法, 可參考 get_VLX_folder.LSP
和 vsd 程式的 vsd.lsp 和 vsd.dcl 內的 autolisp 語法.

畫帶有直部的月眉形板的 autolisp 程式

程式名稱 : arc_plank_with_straight.vlx
載入指令 : (load "arc_plank_with_straight")
執行指令 : arc_plank_with_straight


請輸入 arc_plank_with_straight , 以執行畫帶有直部的月眉形板程式.
相關聯的檔案: arc_plank_with_straight.lsp, arc_plank_with_straight.dcl

arc_plank_with_straight.vlx 程式開啟指令和對話框

畫上弦月眉形板

畫下弦月眉形板

畫兩直部不等長上弦月眉形板

畫一直部等於零下弦月眉形板

畫兩直部不等長上弦月眉形板, 圓弧角度需大於0, 小於 180.

畫月眉形板的 autolisp 程式

程式名稱 : arc_plank.vlx
載入指令 : (load "arc_plank")
執行指令 : arc_plank

*************************************************
請輸入 arc_plank , 以執行畫月眉形板程式
相關聯的檔案: arc_plank.lsp, arc_plank.dcl
*************************************************

arc_plank.vlx 程式開啟指令和對話框

畫上弦月眉形板

畫下弦月眉形板

可依客戶提供的數據是直徑或半徑,選擇在左側或右側輸入數值. 另一側的數值會同步計算後顯示相對應的數值.

LDC_匯出圖檔內的圓孔資料到指定檔

程式名稱 : ldc.vlx
載入指令 : (load "ldc")
執行指令 : ldc

*********************************************************************************
請輸入 ldc , 將圖檔中的圓孔的 [ 圓心 ] 座標X,Y值和 [ 直徑 ],
依客製化指定格式匯出至文字檔. 同時在圖形的圓心處標示編號.

1. 可指定機械加工原點座標.
2. 選取圓孔時, 預設為只選取 [ 圓 ] 的圖形, 不會選取直線, 弧, 標註, 文字, 圖塊...
3. 可指定顯示小數位數到小數點後第零, 一, 二, 三位.
4. 匯出文字檔的資料夾, 預設為同所開啟圖形的資料夾; 檔名也預設為同開啟的圖
    檔名稱, 但副檔名由 .dwg 或 .dxf 改為 .txt.  如果一個檔案內要先後匯出 2 個以
    上的文字檔, 程式會自動在匯出文字的檔名尾端加入時間碼, 存成不同的檔名.
5. 也可以依需要, 自行指定要存到哪個資料夾, 和另取匯出文字檔的檔案名稱.
6. 按 [ 匯出 ] 的按鈕後, 依客製化的指定格式匯出至指定的文字檔, 同時在圖形的
    圓心處標示編號, 圖層預設為 markstring, 字高設為 [ 直徑 / 3 ]. 編號是依直徑
    由小到大, 圓心座標也從小到大順序列示.

相關聯的檔案: ldc.lsp, ldc.dcl,...
*********************************************************************************
可以參考下面的程式說明:
https://docs.google.com/presentation/d/1GLUchNkXJv9ThVG-YUQLK2ufScoQYKcH8MXOWNUDiLA/edit#slide=id.g47c6fe7e_0117

CKD_檢查圖檔的標註尺寸是否為 1:1 的 autolisp 程式

程式名稱 : ckd.vlx
載入指令 : (load "ckd")
執行指令 : ckd

*********************************************************************************
檢查圖檔的標註尺寸是否為 1:1, 圖形是否 1:1 繪製

1. 將圖檔內所有”群組”分解成 線, 圓, 弧, 文字,...
2. 自動炸開圖檔內所有不含屬性的圖塊,分解成線, 圓, 弧, 文字,標註...
3. 自動炸開圖檔內所有的 “面域”.
4. 依 圖元的線形名稱, 將圖元歸放於相關的圖層.
5. 依 圖層的名稱, 將圖元歸放於相關的圖層.
6. 依 圖層內定的線形名稱, 將圖元歸放於相關的圖層.
    4~6 將虛線, 隱藏線的圖元, 其圖層名稱設為隱藏線;
    將中心線的圖元, 其圖層名稱設為中心線;
    將明確的實線, 輪廓線的圖元, 其圖層名稱設為 WHITE
7. 將”文字”, “多行文字”的圖元, 其圖層設成 checkdim.
8. 將所有”標註”類型的圖元, 其圖層設成 check尺寸.
9. 將 Hatch, BlockReference, AttributeDefinition, Solid
    的圖元, 其圖層設成 "假想線".
10. 執行所有標註圖元的檢查, 將所有 [ 整體標註比例 ] ,
      [ 線性標註比例 ] 值不為 1,
      [ 文字置換 ] 內有文字的標註, 其 [ 文字顏色 ] 改為
      淺藍色, 且將該標註圖元反白顯示.
11. 圖檔中如有存在某些特殊圖元, 會在執行 ckd 指令後,
      顯示於警示對話框內.
12. 炸開 acad_proxy_entity 圖元.

其餘在自己的樣板檔匯入客戶圖檔會容易產生誤用, 誤判的,
 將陸續在 ckd 程式加入判別式, 以避免誤用客戶圖檔的問題
一直不斷地發生.


*********************************************************************************