阿貴的 autolisp 小程式集: 12月 2022

2022年12月28日星期三

CBLK.zelx__統計圖塊數量的表格清單

程式名稱 : CBLK.zelx

載入指令 : (load "CBLK")

執行指令 : CBLK

BTN.vlx__畫序號球

程式名稱 : BTN.vlx

載入指令 : (load "BTN")

執行指令 : BTN

BTN.zelx for zwcad

adim.zelx__批次自動以座標標註方式標註圓心的座標值

adim.zelx 批次自動以座標標註方式標註圓心的座標值.

CDM_檢查圖形尺寸標註是否為一比一 for ZWCAD

CDM.zelx 可以在模型空間炸開不含屬性的圖塊, 並將圖元依條件歸到特定圖層, 再檢查標註尺寸是否為 1 : 1 .

Design: ya-kuei88,

date : 2011.05.18,

modified : 2021.07.02

2021.12.17

修改適用於 ZWCAD 版本

2021.12.23

modified ACAD.lin -> ZWCADiso.lin, divide -> PHANTOM

2022.01.14

新加 (check_layer) 和 (check_dim_style) 兩個副程式.

2022.01.28

加入 (/= sent_layer "反壓折線") 判別, 不將反壓折線歸入隱藏線.

2022.06.23

[check_layer] 新增/設定顏色,出圖筆寬 LineWeight ; 適用於物件的 Linetype / Lineweight / Color 三項設為 Bylayer

2022.07.26

新增線型名稱, [ AM_ISO02W050x2, ACAD_ISO02W100 -> 隱藏線 ], [ DASHDOT, ACAD_ISO10W100 -> 中心線 ]

2022.08.17

各項依 xx 變更圖層名稱的先後執行順序, 稍做調整. 從最直接相關到可能相關, 次第順序執行.

2022.08.22

修改圖塊/標註名稱更名的尾部流水號 為 CDATE 系統變數中的時分秒共六碼. 例如 : "20220822.08375579" -> "22" + "083755". 如此, 應可確保一個月內的更名都不會相同.

qqq.zelx__將 nip 圖塊屬性資訊, 匯出到 CSV 檔案

程式名稱 : qqq.zelx

載入指令 : (load "qqq")

執行指令 : qqq

BTBE.zelx__用於將資料夾 ( 含子資料夾 ) 中的所有 DXF 檔, 批次做 [ 文字 ] 轉換為 [ 聚合線 ], 並縮放圖形到實際範圍後, 再存檔.

程式名稱 : btbe.zelx

載入指令 : (vl-load-all "btbe")

執行指令 : btbe

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

BTBE.zelx 用於將資料夾 ( 含子資料夾 ) 中的所有 DXF 檔, 批次做 [ 文字 ] 轉換為 [ 聚合線 ], 並縮放圖形到 實際範圍 後, 再存檔...

atv.zelx__批次修改單一個帶屬性圖塊的全部單項屬性值的程式

atv.zelx

批次修改 單一個 帶屬性圖塊 的全部單項屬性值 的程式

如:

我建立的 圖框 圖塊名稱為 fde,

屬性標籤有: 客戶名稱, 客戶編號, 工令編號, 接單日期, 交貨日期, 材質, 板厚, ....

2PL.zelx__可以將 line, arc, pline 轉成 LWPOLYLINE, 並組成連續或封閉的 LWPOLYLINE

2PL.zelx

將 line, arc, pline 轉成 LWPOLYLINE, 並組成連續或封閉的 LWPOLYLINE.

---------------------------------------------------------------------------------------------

2PL.zelx 可以將 line, arc, pline 轉成 LWPOLYLINE, 並組成連續或封閉的LWPOLYLINE.

EPL.zelx 則是將 LWPOLYLINE 炸開成 line, arc, 也可以用炸開指令 EXPLODE

---------------------------------------------------------------------------------------------

轉成 LWPOLYLINE 之後, 可以 CPC.ZELX 選取 polyline 圖元, 以顯示 polyline 是否為封閉聚合線, 未封閉的 polyline 反白顯示, 並在起點和終點畫點, 可看出未封閉的位置所在. 即: 看到 2 點, 表示 2 點之間未封閉, 可能有間隙, 也可能有重疊圖元, 或是外形沒有封閉, 分成多段, 可以在青色點附近快速找到未封閉的原因.

要檢查輪廓是否有形成封閉, 以 2pl.zelx 先將圖元建立成 LWPOLYLINE, 再用 cpc.zelx 快速檢查 LWPOLYLINE 是否有封閉, 是最快的方式.

也可以用邊界 boundary 指令試試建立封閉的 polyline 曲線. 執行前, 建議將目前的圖層, 設成和欲選取範圍的圖元, 不同的圖層, 這樣比較容易看到所建立的曲線和原先的圖元.

如果是有重疊圖元所造成的未封閉, 可以 oko.zelx 來消除多餘的或重疊的圖元. 但有可能也會誤判, 刪除了不該刪的重要圖元. 執行後, 還是要稍微檢查一遍.

另外也可能在所選範圍中有一些長度為 0 的線段, 可以用 dnz.zelx 以執行刪除長度小於指定值的圖元.

~~目前為止, 若要縮減曲線的分段數, 又不會變形太多. 用 trumpf 排版軟體的消點程式, 可得到最快速, 最少點數, 最少變形量的曲線.~~

ctp.zelx 比較適用於純弧形, 無直線段的曲線, 可以快速得到較少段數的曲線.

以 nip 程式建立工件資訊圖塊時, 右上方的框線內有異常.

實際重量為負值, 不合理. 表示外輪廓未封閉.

執行 2pl.zelx 建立 pline 曲線

點選外輪廓, 為一聚合線, 但未封閉.

執行 cpc.zelx 後

圖形左下角線條接合後, nip 的重量值皆大於零, 正常了.

YK_擷取電腦註冊次數的配對檔案

程式名稱 : YK.vlx

載入指令 : (load "YK")

執行指令 : YK

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

請輸入 YK 指令, 用於取得 vlx 檔的 [ 配對碼 ] 以設定新的使用次數.

相關聯的檔案: YK.lsp, YK.sld

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

1. 首先輸入您所下載使用的 .VLX 檔案名稱. 如: MBP.VLX, NIP.VLX, SBT.VLX,..... 等完整單一個檔案名稱.
如果找到這個檔案, 在步驟 2, 會顯示配對碼和匯出檔案.
請按確定, 退出此程式. 並將匯出檔案 ( yk_code_xxxxxxxxx.txt ) e-mail 給阿貴, 方便阿貴製作註冊檔 ykr.vlx
yk_code_xxxxxxxxx.txt 的內容如下:

D:\lisp\yk_code_749600296.txt
MASTER13
MASTER13
Administrator
749600296
((C 2 1149681640) (D 2 749600296) (E 2 215386203) (F 4 nil) (X 3 -795965760) (Y 3 -795965760) (Z 3 -795965760))

阿貴取其中數碼作為配對碼, 寫入 ykr.vlx 中, 執行 ykr.vlx 時, 由程式找尋該電腦中, 是否存在唯一的配對碼, 存在相同的配對碼, 即執行註冊使用次數.

ykr.vlx 程式中, 可以建立多個配對碼, 組成配對碼清單. 即 此程式可以在多台電腦上, 執行 ykr.vlx 註冊特定的阿貴寫的 autolisp 程式.

註冊多個 .vlx 程式, 使用次數要一致, 才方便 ykr.vlx 程式執行.

在指令行 (load "yk"), 以載入 YK.vlx , 然後下 YK, 以執行 yk.vlx 程式.

在 [程式名稱] 欄位, 輸入您所下載的 AutoLisp 程式的全名, 如 sbt.vlx
程式確定找到 sbt.vlx 則會在第二項顯示配對碼及匯出檔案的路徑和檔名.

如上圖所示, 配對碼為 749600296, 匯出檔案為 D:\lisp\yk_code_749600296.txt
即檔案名稱為yk_code_749600296.txt
儲存在 D:\lisp\ 磁碟機資料夾內.
通常是在您使用的 .vlx 檔案相同的資料夾.

D:\lisp\yk_code_749600296.txt
檔案的內容大致如上圖所示.
請將這個檔案, e-mail 給阿貴, 並註明程式名稱, 註冊金額, 即可為您製作 ykr.vlx 註冊使用次數.

RCON_畫正大小頭展開

程式名稱 : rcone.vlx

載入指令 : (load "rcone")

執行指令 : rcone

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

請輸入 rcone , 以執行畫大小頭展開程式.

相關聯的檔案: rcon.lsp, rcon.dcl, right_cone_1.sld, right_cone_10.sld,

right_cone_11.sld, right_cone.sld

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

程式名稱 : ricon.vlx

載入指令 : (load "ricon")

執行指令 : ricon

ricon.zelx for zwcad

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

請輸入 ricon , 以執行畫大小頭展開程式.

相關聯的檔案: ricon.lsp, ricon.dcl

2011.12.26 Ya-Kuei -> 原始程式為 right_cone.lsp

2021.07.01 modified-> right_cone.lsp 原幻燈片影像,改為預覽向量視圖

2021.07.01 建立新檔名為 ricon.lsp, 對話框檔名 ricon.dcl

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

此程式只能展開正大小頭, 即: 從上視圖看, 大,小圓同圓心.

三視圖中有標示, 可穿過的最小捲圓軸心尺寸值.

PR2C_圓和矩形平行的四角轉圓展開

程式名稱 : PR2C.vlx

載入指令 : (load "PR2C")

執行指令 : PR2C

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

請輸入 PR2C , 以執行四角轉圓展開程式.

相關聯的檔案: PR2C.lsp, PR2C.dcl, PR2C_x.sld

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

四角轉圓展開程式條件:

適用於 [ 圓 ] 和 [ 矩形 ] 相互平行的四角轉圓.
矩形的四個角點無圓弧角, 且皆為 90 度.
展開依據: 圓形取板厚的中心圓來做交線展開; 矩形取內尺寸來做交線展開.
原則上, 以矩形短邊中點為切開方位.
可依客戶的視圖, 採用相同的視角, 分為 [ 上圓下方 ] 和 [ 上方下圓 ].
可選擇是否要割矩形往圓方向的切割線, 以方便壓折成型.
可指定畫線長度.
內定展開圖的圓弧曲線為三點畫弧的圓弧線, 可以指定改為直線所構成的曲線.
四角轉圓展開, 固定拆成兩半. 展開圖形為內側展開, 以方便加壓折線, 易於壓折成型.

適用的四角轉圓類型:

正四角轉圓.
單向偏心四角轉圓.
雙向偏心四角轉圓.

畫圓形和矩形相互平行的 [ 四角轉圓 ] 展開圖及成型圖

mrtc.vlx 是直接用輸入數據, 加減兩個板厚做為矩形的外,內尺寸; 加減一個板厚做為圓的假想中心圓尺寸.

這樣做展開, 對於斜邊角度接近90度的較沒有問題, 對於斜邊角度趨近0度的外尺寸輸入會有較大的展開誤差.

pr2c.vlx 主要是修正這個問題而寫的四角轉圓程式.

輸入內尺寸數據, 只需修正展開用的假想圓直徑到接近理想值, 輸入外尺寸數據, 則需增加修正矩形展開用的內尺寸值.

綠色輪廓線是輸入值所畫出的圖形, 紅色輪廓線是取要用來展開的尺寸.

綠色框內的值是三視圖中, 矩形取內尺寸, 圓取近似板中心.

PIPE_TO_CONE___大小頭插圓管展開

程式名稱 : PIPE_TO_CONE.vlx

載入指令 : (load "PIPE_TO_CONE")

執行指令 : PIPE_TO_CONE

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

請輸入 pipe_to_cone , 以執行 [ 大小頭插圓管 ] 展開程式....

相關聯的檔案: PIPE_TO_CONE.lsp, PIPE_TO_CONE.dcl, PIPE_TO_CONE.sld.

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

[ 中心軸線夾角 ] 的值, 須介於 5 度到 85 度之間. 極限值 1 ~ 89 度.

2015/01/21

展開方式拆成兩種:

[ 畫板中心交線展開圖 ] -> 大小頭和圓管都以板厚中心線做交線展開的依據.

[ 畫配合件取外尺寸做交線展開圖 ] ->展開大小頭時, 大小頭取板厚中心線, 圓管取外尺寸做交線展開; 展開圓管時, 圓管取板厚中心線, 大小頭取外尺寸做交線展開.

可以預覽所輸入數值的三視圖形狀.

NP_在 [ 模型空間 ] 多圖框改頁碼程式

程式名稱 : np.vlx

載入指令 : (load "np")

執行指令 : np

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

請輸入 np , 以執行在 [ 模型空間 ] 多圖框編頁碼程式.

相關聯的檔案: np.lsp, np.dcl

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

此程式執行的必要條件為 :

Auto CAD 的圖檔內, 必須先建含有 [頁數] 和 [總頁數] 的圖塊屬性標籤.

內定的圖框名稱為 fde, 執行 np.vlx 會預先找出圖檔中的 fde 圖框的總數量.

圖框只要有頁數和總頁數兩個屬性標籤, 就可以用 np.vlx 來編碼.

編碼原則是由左至右, 頁碼由小到大來建頁碼.

左邊為頁數, 右邊是總頁數.

編碼只需在畫完全部的圖, 放入圖框, ,再一次執行 np.vlx 即可.

NC_統計圓直徑數量

程式名稱 : nc.vlx

載入指令 : (load "nc")

執行指令 : nc

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

請輸入 nc , 以執行 [ 統計圓直徑數量 ] 的程式.

相關聯的檔案: nc.lsp, nc.dcl

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

2014/11/11

將 OVERKILLSUP.vlx 清除圖檔中重疊的圖元的程式獨立出來, 由使用者自行決定是否要執行清除重疊圖元. 如果是客戶的圖檔, 最好要先執行清除重疊圖元的動作.

點按 [ 插入圓孔 - 數量數據到圖中 ] 按鈕, 可將 直徑-數量 的數據插入圖形中, 以便檢查, 碓認. 在工件中有很多不同孔徑, 數量時, 可以快速確認是否畫正確.

KL_選取曲線圖元來統計總線長

程式名稱 : KL.vlx

載入指令 : (load "KL")

執行指令 : KL

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

請輸入 KL, 執行選取曲線圖元, 來統計總線長...

曲線圖元:

LINE, ARC, CIRCLE, POLYLINE, LWPOLYLINE, SPLINE, ELLIPSE

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

選取的4個圖元, 不是曲線, 是四個角落的四個點 point .

2022年12月20日星期二

RCTB_[ 圓管切角度 ] 展開程式

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

***********************************************************************
請輸入 rctb , 以執行 [ 圓管切角度 ] 展開程式....
相關聯的檔案: rctb.lsp, rctb.dcl, rctb.sld

可以展開的類型:

正圓管上, 下不切邊展開
正圓管上或下不切邊展開
正圓管上,下皆切邊展開
切邊夾角約 +-75度.
上切邊可以再徑向旋轉角度.

功能:

可加畫四分圓線, 並指定短線的長度.
設定角度後, 程式可建議最小中心線距離.
展開以中心圓為基礎, 有相同切邊角度的兩支單切邊圓管可以共用切邊, 組合成矩形, 以節省用料.

2013.11.28 新增圓管中心圓的圓管立體圖

圓管立體圖可以方便核對展開圖的展開方位是否正確.

SBT_[ 彎頭 ] 板金展開程式

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

*******************************************************************************
請輸入 sbt , 以執行 [ 彎頭 ] 板金展開程式
相關聯的檔案: sbt.lsp, sbt.dcl, sbt.sld, bt_fish.sld
*******************************************************************************

功能: