2023年2月8日 星期三

uns-將圖框中的縮放比例寫入nip的圖塊插入比例的屬性欄內,並縮放圖塊

 uns.zelx 將 圖框 中的 縮放比例 寫入 nip 的 圖塊插入比例 的屬性欄內, 並 縮放圖塊


uns.zelx 將 [ 圖框 ] 中的縮放比例寫入 [ nip ] 的圖塊插入比例的屬性欄內,並縮放圖塊. 使圖框和工件兩圖塊的 縮放比例 相同. 圖紙中的文字, 標註和圖形, 每張都會一致, 不會忽大忽小.

右圖為範例, 圖框右側中間的 3.00 和 工件圖塊左下角的 3 是各自的 縮放比例.

點選圖框, 在 [ 性質 ] 縮放比例 修改為 4.

圖檔未 regen 前, 圖框的圖塊屬性無更新, 仍舊是 3.00

執行 uns 前的圖框內看起來如上圖.


執行 uns.zelx , 按 << 縮放 nip 圖塊 >> 即可同步 縮放比例 的值.


結果如上, 紅框所示, 全為 4.00

如要 標註 也調成相同比例. 其調整的項目為, 標註整體比例.

cds.zelx 可以一次調整圖框內所有標註的標註整體比例, 如上圖所示.
即 圖框, 工件圖塊, 標註 三者的縮放比例都一致, 為 4.00


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".   如此, 應可確保一個月內的更名都不會相同.

2022年12月22日 星期四

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,

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

2022年12月21日 星期三

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

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



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

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