<***一個好用的 List_Box 文字列表 隨機點選組合函數 ***>>
本帖最后由 lee50310 于 2023-1-1 11:38 编辑<***一個好用的 List_Box 文字列表 隨機點選組合函數***>>
函數 (ahl-box lablstn) 是一個自設的 文字列表 隨機點選組合函數
只需把三個參數 跟 回傳 結果儲存的變數data設好 就可簡單使用
使用功能說明如圖
本帖最后由 lee50310 于 2023-1-1 07:34 编辑
程式使用範例:
若路徑存放與所設不同 修改程式此行(setq path "d:\\temp\\ahl-box_chs.lsp")
繁體版需 將 ahl-box_chs.lsp 改為 ahl-box_cht.lsp
;;
;;List_Box 文字列表 隨機點選組合函數
;;by lee50310 2022/12/31
;;範例程式
;;-----------------------------------------
(defun c:tt()
(setq path "d:\\temp\\ahl-box_chs.lsp")
(load path )
(setq lst (list "◆.蘋果" "◆.香蕉" "◆.蓮霧" "◆.芭樂" "◆.榴槤" "◆.葡萄"
"◆.橘子" "◆.西瓜" "◆.芒果" "◆.木瓜" "◆.李子" "◆.荔枝"))
(setq lab "【選擇喜歡吃的水果】"str "")
(setq data (ahl-box lab lst 0))
(foreach x data (setq str(strcat x "\n" str)))
(setq str(strcat lab ":\n" str))
(alert str)
(princ)
)
;;-----------------------------------------
執行效果:
本帖最后由 lee50310 于 2023-1-1 07:24 编辑
把上面 tt.lsp 的內容修改
將 標題設(setq lab "(電)負載【分路盤】計算轉 CAD表格插入(B) V2.6版\" )
顯示文字字串設(setq lst '("燈:KVA" "插:KVA" "廚專:KVA" "洗衣專插:KVA"
"浴廁專插:KVA" "力:HP" "熱:KW" "電灶:KW" ))
(setq data (ahl-box lab lst1)
此三行就如同可將此程式應用行業中 例如: 在電氣-分電盤的負載選擇項 做組合是非常方便的
lee50310 发表于 2022-12-31 17:05
把上面 tt.lsp 的內容修改
將 標題設(setq lab "(電)負載【分路盤】計算轉 CAD ...
楼主太牛了，但是行外人不知道咋用。顺便说一句，我用了您的pcom5e_chs.fas，分幅很有问题，应该是旋转出错。 本帖最后由 lee50310 于 2023-1-4 18:42 编辑
cchessbd 发表于 2023-1-4 08:02
楼主太牛了，但是行外人不知道咋用。顺便说一句，我用了您的pcom5e_chs.fas，分幅很有问题，应该是旋转出 ...
你沒有截圖使用前後的 關係 這樣說實在看不出你分幅時問題出在哪裡?
谢谢分享 这个真的牛
lee50310 发表于 2022-12-31 17:05
把上面 tt.lsp 的內容修改
將 標題設(setq lab "(電)負載【分路盤】計算轉 CAD ...
这个程序能分享一下吗，也是电气专业的非常需要 本帖最后由 lee50310 于 2023-1-4 10:47 编辑
edsion24 发表于 2023-1-4 08:52
这个程序能分享一下吗，也是电气专业的非常需要
,這款個是台灣設計電氣 的規格電壓 及計算方式(適用於 :集合住宅 ,透天店舖,小型工廠...)
不知你們這裡 使否適用? 程序运行不了。
页:
[1]
2