阿貴多年來寫的 autolisp 小程式, 將陸續建立各程式的名稱, 功能, 展示程式的連結綱址. 所有 autolisp 程式都放在阿貴的雲端硬碟 [ LISP-PACKAGE ] 資料夾中: https://sites.google.com/site/yakuei88/Home 歡迎下載試用, 聯絡阿貴, 請用 E-mail: Yakuei88@gmail.com Face Book, LINE, Messenger 會收到無數的推銷訊息, 所以阿貴幾乎不會去看.
2024年11月29日 星期五
ATFI 選取 ARC, CIRCLE, ELLIPSE, HATCH, *POLYLINE, REGION, SPLINE 以計算 面積, 插入所選物件的 面積 值 .
2024年11月25日 星期一
選取 ARC,CIRCLE,ELLIPSE,HATCH,*POLYLINE,REGION,SPLINE 以計算面積, 插入 坪數
A2FP, 選取 ARC,CIRCLE,ELLIPSE,HATCH,*POLYLINE,REGION,SPLINE 以計算面積, 插入 坪數 值.
圖面單位: mm
程式插入面積的單位: 坪
面積 -> 欄位表達式
該程式允許使用者建立一個 MText 對象,
其中包含引用一個或多個選定對象的面積或面積總和的欄位表達式。
在 AutoCAD 命令列中發出指令語法「A2FP」後,系統會提示使用者選擇要擷取區域的物件;
如果選擇了多個對象,則結果 MText 欄位將顯示所有對象的累積面積。
選擇物件後,系統會提示使用者選擇一個點來建立 MText 欄位。
如果指定點位於 AutoCAD 表格儲存格內,程式將使用適當的欄位運算式填入表格儲存格。
此欄位將顯示所選物件的面積總和,並使用程式頂部指定的欄位格式代碼進行格式化
- 此格式代碼可以更改以滿足使用者的要求。
![]() |
個別選取一個物件, 插入面積-坪數. |
![]() |
同時選圓和矩形, 插入 A3 面積, 9.49 坪. |
![]() |
編輯矩形的物件後, 執行 regen 重生圖形, A2 和 A3 的面積立刻更新. 不需重新執行 A2FM, 重新抓新圖形的面積. |
A2FP 程式要在圖形的單位為 mm 時, 面積的坪數值才會正確.
使用程式頂部指定的欄位格式代碼進行格式化 - 此格式代碼可以更改以滿足使用者的要求。
A2FM, 計算面積, 插入 M² 值.
A2F, 計算面積, 插入 mm² 值.
同樣, 圖形的單位為 mm.
因為 ² 在插入 mtext 後, 無法解讀, 顯示 '?',
所以, A2FM, 面積顯示 "米平方",
A2FM, 面積顯示 "釐米平方".
2024年11月18日 星期一
贊助N註冊程式
2022年12月14日
如果大德發心贊助阿貴,
阿貴的收費標準是 [ NT$1 元 => 10 次 ] 來計費,
所有雲端資料夾看到的限次程式都均一價.
即 :
贊助 100 元, 可使用某一程式 1000 次,
贊助 500 元, 可使用某一程式 5000 次,
贊助 1000 元, 可使用某一程式 N 次,
( N -> 直到那台電腦掛掉為止
)
取得電腦配對檔案的程式 yk.vlx ( 點擊連結, 下載 )
請下載執行它,
在 Auto CAD 中, 指令行裡下 (load
"yk"),
再輸入 yk, 執行該程式,
以取得使用阿貴程式的電腦的 [ 配對碼 ],
然後將您要用的 [ 程式檔名 ] 和 [ 電腦配對碼檔案 ]
e-mail 給阿貴,
阿貴會回您專用的登錄次數的程式 ( ykr.vlx ) 給您.
請您用阿貴回給您的這個程式,
存在您取得 [ 電腦配對碼 ] 的那台電腦,
和阿貴的程式相同的資料夾內,
然後註冊即可.
同樣在指令行輸入 (load
"ykr") 載入 ykr.vlx 程式,
再輸入 ykr 執行註冊次數即可.
所有贊助大德, 阿貴都有登錄贊助資料,
如果您的電腦不幸掛點重灌作業系統,
請通知阿貴給您新的登錄次數的程式 (ykr.vlx) ,
可使用某一程式 N 次的您,
是無條件, 免費再註冊的.
贊助滙款資料如下:
【華南銀行代號】008
【帳號】710-20-507929-3
[ 郵局 ] 700
[ 帳號 ] 00410770785806
[ 戶名 ] 黃麟貴
--- 新版 yk.vlx ---
程式執行前的確認項目:
1.) 您所下載的 Auto Lisp 程式,
如: mbp.vlx ,
yk.vlx , sbt.vlx .....
已存放在 Auto CAD 的 [ 支援檔搜尋路徑 ]
清單內的路徑中. 如: D:\lisp , D:\mylisp , ...
2.) 建議將您下載, 常用的 Auto Lisp 程式,
在 [ 啟動套件 ] 加入.
--- yk.vlx 操作圖解 ---
1. 請將下載的 yk.vlx 存放在 阿貴寫的程式 存放路徑內, 如: d:\lisp 資料夾.
2. 在 Auto CAD 指令列下 (load "yk") , 載入 yk.vlx
程式
3. 在指令列下 yk , 執行 yk.vlx 程式
4. 在對話框中, 於 [ 程式名稱 ] 欄位內輸入一個您要
註冊的程式名稱.
如: mbp.vlx
切記只能輸入一個程式名稱,
不可以輸入兩個以上的名稱.
取得 [ 電腦配對碼 ],
新的 yk.vlx 會在 阿貴的程式相同的資料夾內,
建立一個類似 yk_code_xxxxxxxxxx.txt 的文字檔案.
請將這個檔案 e-mail 寄給阿貴...