2022年12月28日 星期三

BTN.vlx__畫序號球

程式名稱 : BTN.vlx

載入指令 : (load "BTN")

執行指令 : BTN


BTN.zelx for zwcad



請輸入 BTN 指令, 執行 動態畫序號球 的 autolisp 程式.



序號球 :


1. [ 序號球的半徑 ], 內定值 = DIMSCALE * DIMTXT

   ( 以 [ 標註比例 ] 值 * [ 標註文字高度 ] 值 為半徑值 )


2. 0 <= [ 字母符號的字數 ] <= 3,

   即: [ 字母符號的字數 ] 介於 0 ~ 3 之間.

   如: [ 字母符號 ] 可設為 "", A, B, A-, S-, DA-, SX-,....


3. [ 起始序號 ], 內定為 1.   須為 大於零的整數值.


4. 序號球的 文字串 = [ 字母符號 ] + [ 序號 ],

   如: A1, B2X-1Y-10WA-101PL106,  ....


5. 選取 零件端 小圓球的插入點後, 即開始動態提示 序號球 插入點的位置.

   移動滑鼠, 會顯示 序號球 的動態拖曳圖形;

   按下滑鼠左鍵, 即指定該點為 序號球 的圓心.

   並進入 下一序號 的插入點選項.


   按下滑鼠右鍵, 或 取消選取插入點, 即 結束此程式.



字母符號 和 起始序號 的輸入值皆按 enter, 表示接受 預設值.






字母符號 是在 序號 的前面.
如:
A1, B-2, C_5, ...