<***一個好用的 List_Box 文字列表 隨機點選組合函數 ***>>

lee50310

<***一個好用的 List_Box 文字列表 隨機點選組合函數  ***>>
函數 (ahl-box lab  lst  n) 是一個自設的 文字列表 隨機點選組合函數


  只需把三個參數 跟 回傳 結果儲存的變數data設好 就可簡單使用


使用功能說明如圖

lee50310

程式使用範例:

若路徑存放與所設不同 修改程式此行  (setq path "d:\\temp\\ahl-box_chs.lsp")
                                      繁體版需 將 ahl-box_chs.lsp 改為 ahl-box_cht.lsp

1. ;;
   
2. ;;List_Box 文字列表 隨機點選組合函數
   
3. ;;by lee50310 2022/12/31
   
4. ;;範例程式
   
5. ;;-----------------------------------------
   
6. (defun c:tt()
   
7. (setq path "d:\\temp\\ahl-box_chs.lsp")
   
8. (load path )
   
9. (setq lst (list "◆.蘋果" "◆.香蕉" "◆.蓮霧" "◆.芭樂" "◆.榴槤" "◆.葡萄"
   
10.                  "◆.橘子" "◆.西瓜" "◆.芒果" "◆.木瓜" "◆.李子" "◆.荔枝"))
    
11. (setq lab "【選擇喜歡吃的水果】"  str "")
    
12. (setq data (ahl-box lab lst 0))
    
13.     (foreach x data (setq str(strcat x "\n" str)))   
    
14.     (setq str(strcat lab ":\n" str))
    
15.   (alert str)
    
16.   (princ)  
    
17. )
    
18. ;;-----------------------------------------

;;<br /> ;;List_Box 文字列表 隨機點選組合函數<br /> ;;by lee50310 2022/12/31<br /> ;;範例程式<br /> ;;----------------------------------------- <br /> (defun c:tt()<br /> (setq path "d:\\temp\\ahl-box_chs.lsp")<br /> (load path )<br /> (setq lst (list "◆.蘋果" "◆.香蕉" "◆.蓮霧" "◆.芭樂" "◆.榴槤" "◆.葡萄" <br />                  "◆.橘子" "◆.西瓜" "◆.芒果" "◆.木瓜" "◆.李子" "◆.荔枝"))<br /> (setq lab "【選擇喜歡吃的水果】"  str "")<br /> (setq data (ahl-box lab lst 0))<br />     (foreach x data (setq str(strcat x "\n" str)))   <br />     (setq str(strcat lab ":\n" str))<br />   (alert str)<br />   (princ)  <br /> )<br /> ;;-----------------------------------------

執行效果:

lee50310

      把上面 tt.lsp 的內容修改     
           將 標題  設  (setq lab "(電)負載【分路盤】計算轉 CAD表格插入(B) V2.6版\" )

     顯示文字字串設  (setq lst   '("燈:KVA" "插:KVA" "廚專:KVA" "洗衣專插:KVA"
                                              "浴廁專插:KVA" "力:HP" "熱:KW" "電灶:KW" ))

                             (setq data (ahl-box lab lst  1)

此三行  就如同可將此程式應用行業中 例如: 在電氣-分電盤的負載選擇項 做組合是非常方便的

cchessbd

lee50310 发表于 2022-12-31 17:05
把上面 tt.lsp 的內容修改     
           將 標題  設  (setq lab "(電)負載【分路盤】計算轉 CAD ...

楼主太牛了，但是行外人不知道咋用。顺便说一句，我用了您的pcom5e_chs.fas，分幅很有问题，应该是旋转出错。

lee50310

cchessbd 发表于 2023-1-4 08:02
楼主太牛了，但是行外人不知道咋用。顺便说一句，我用了您的pcom5e_chs.fas，分幅很有问题，应该是旋转出 ...

你沒有截圖使用前後的 關係 這樣說實在看不出你分幅時問題出在哪裡?

一张单程票

谢谢分享

edsion24

这个真的牛

edsion24

lee50310 发表于 2022-12-31 17:05
把上面 tt.lsp 的內容修改     
           將 標題  設  (setq lab "(電)負載【分路盤】計算轉 CAD ...

这个程序能分享一下吗，也是电气专业的非常需要

lee50310

edsion24 发表于 2023-1-4 08:52
这个程序能分享一下吗，也是电气专业的非常需要

,這款個是台灣設計電氣 的規格電壓 及計算方式  (適用於 :集合住宅 ,透天店舖,小型工廠...)
不知你們這裡 使否適用?

chenyizhen28

程序运行不了。