<<<**** 簡易多功能dcl創建+參數式轉lisp檔 *****>>>

lee50310

**** 簡易多功能dcl創建+參數式轉lisp檔  *****

簡單的說你只要你熟悉規則 ,自行撰寫 dlst列表 將其帶入 兩個函數並設好參數(a.起始對話框函數 與 b.結束對話框函數)
可用此程式 快速建立dcl檔 並利用內部參數0,1,2,3順便轉檔 要轉換成何種格式可自行決定填入的參數
並用轉出的lisp檔繼續寫作 不必在依附 great-dcl.fas 此程式
(ps: dlst列表內 不可加// 註解符號 ,可轉成dcl檔後再自行加入)

此DCL創建 共分為 3步驟
(1)載入DCL轉換函數 great-dcl.fas
(2)需自行撰寫dlst列表
(3)a.輸入 起始對話框函數並設置參數 ,b.輸入 結束對話框函數並設置參數

內附6個 程式範例檔 裡面有撰寫 dlst列表 的格試範例
可供作參考 (執行指令分別為 tt1,tt2,tt3,tt4,tt5,tt6)及使用說明 ...等

如何編寫 dlst列表 及DCL啟動函數之參數 規則寫在說明內 使用前請詳看 說明
程式檔案路徑
                   簡體版=>設置 D:\\great_dcl_chs\\
                   繁體版=>設置:D:\\great_dcl_cht\\
若所存放的檔案及路徑與此不同需修改程式內此值

lee50310

將他帶入轉換程式並寫成執行檔如下

1. (defun c:tt3()
   
2.    (vl-load-com)
   
3.    (setq path "D:\\great_dcl_chs\\"   A_husk "supper\\"  Bpath (strcat path "SLD\\") )
   
4.    (setvar "SECURELOAD" 0) ;關閉安全性提示
   
5.    (if(setq LOA0 (strcat path A_husk "Great-DCL.fas")) (load LOA0)) ;載入DCL面板轉換程式     
   
6.    (setvar "SECURELOAD" 1) ;打開安全性提示
   
7.    
   
8. (setq Dlst '(
   
9.              ":row{"
   
10.              ("image_button" "" "豎直" "16" "8" "" "-2" "#allow_accept=true;")
    
11.              ("image_button" "" "上"   "16" "8" "" "-2" "#allow_accept=true;")
    
12.              ("image_button" "" "水平" "16" "8" "" "-2" "#allow_accept=true;")
    
13.              "}"
    
14.              ":row{"
    
15.              ("image_button" "" "左" "16" "8" "" "-2" "#allow_accept=true;")
    
16.              ("image_button" "" "下" "16" "8" "" "-2" "#allow_accept=true;")
    
17.              ("image_button" "" "右" "16" "8" "" "-2" "#allow_accept=true;")
    
18.              }
    
19.              ("@image_button" "" "雙向居中" "50" "8" "" "-2" )
    
20.             
    
21.        )
    
22.       )  
    
23. 
    
24. ;<< DCL起始對話框函數 >>,第3數為 0 不配置按鈕 ,第4參數為0 不轉換,為 1 轉換為dcl 文字檔        
    
25.    (DCL:STATE  Dlst "【物體對齊】" 0 1)                    
    
26. 
    
27.   
    
28.     (setq dd(DCL:END))    ;<<  DCL結束對話框函數 >>               
    
29.                            
    
30. )      
    
31.    

(defun c:tt3()<br />    (vl-load-com)<br />    (setq path "D:\\great_dcl_chs\\"   A_husk "supper\\"  Bpath (strcat path "SLD\\") )<br />    (setvar "SECURELOAD" 0) ;關閉安全性提示<br />    (if(setq LOA0 (strcat path A_husk "Great-DCL.fas")) (load LOA0)) ;載入DCL面板轉換程式     <br />    (setvar "SECURELOAD" 1) ;打開安全性提示 <br />    <br /> (setq Dlst '(<br />              ":row{"<br />              ("image_button" "" "豎直" "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "上"   "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "水平" "16" "8" "" "-2" "#allow_accept=true;")<br />              "}"<br />              ":row{"<br />              ("image_button" "" "左" "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "下" "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "右" "16" "8" "" "-2" "#allow_accept=true;")<br />              }<br />              ("@image_button" "" "雙向居中" "50" "8" "" "-2" )<br />             <br />        )<br />       )  <br /> <br /> ;<< DCL起始對話框函數 >>,第3數為 0 不配置按鈕 ,第4參數為0 不轉換,為 1 轉換為dcl 文字檔        <br />    (DCL:STATE  Dlst "【物體對齊】" 0 1)                    <br /> <br />   <br />     (setq dd(DCL:END))    ;<<  DCL結束對話框函數 >>                <br />                            <br /> )      <br />    

可將上面的 Dlst列表串 與下面轉換的dcl 做比較
例上面簡寫程式碼找到此行 ("image_button" "" "豎直" "16" "8" "" "-2" "#allow_accept=true;")
對照下面 透過程式幫你轉成DCL 檔案格式找到轉換後的此行如下
                 :image_button{ key="豎直"; width=16; height=8; color=-2;  allow_accept=true; }
也就是說下面所生成的DCL檔 才是一般我們需要寫的檔案格式
但如今只需透過這個轉換程式
採用上面的簡略格式寫法 + 兩函數 透過參數 1,2,3設定 便可生成DCL檔, DCL轉LSP檔, DCL轉LSP檔(Write 格式)


DCL起始對話框函數 第4參數=1 生成一般的dcl檔 (若要保存需另存新檔) 轉好的DCL 文字檔如下

2. 
   
3. NextSetting :dialog{ label = "【物體對齊】";
   
4. :row{
   
5. :image_button{ key="豎直"; width=16; height=8; color=-2;  allow_accept=true; }
   
6. :image_button{ key="上"; width=16; height=8; color=-2;  allow_accept=true; }
   
7. :image_button{ key="水平"; width=16; height=8; color=-2;  allow_accept=true; }
   
8. }
   
9. :row{
   
10. :image_button{ key="左"; width=16; height=8; color=-2;  allow_accept=true; }
    
11. :image_button{ key="下"; width=16; height=8; color=-2;  allow_accept=true; }
    
12. :image_button{ key="右"; width=16; height=8; color=-2;  allow_accept=true; }
    
13. }
    
14. :image_button{ key="雙向居中"; width=50; height=8; color=-2; is_cancel=true; }
    
15.   }
    

<br /> NextSetting :dialog{ label = "【物體對齊】";<br /> :row{<br /> :image_button{ key="豎直"; width=16; height=8; color=-2;  allow_accept=true; }<br /> :image_button{ key="上"; width=16; height=8; color=-2;  allow_accept=true; }<br /> :image_button{ key="水平"; width=16; height=8; color=-2;  allow_accept=true; }<br /> }<br /> :row{<br /> :image_button{ key="左"; width=16; height=8; color=-2;  allow_accept=true; }<br /> :image_button{ key="下"; width=16; height=8; color=-2;  allow_accept=true; }<br /> :image_button{ key="右"; width=16; height=8; color=-2;  allow_accept=true; }<br /> }<br /> :image_button{ key="雙向居中"; width=50; height=8; color=-2; is_cancel=true; }<br />   }<br />

DCL起始對話框函數 第4參數=2 轉成 dcl-lisp檔  另存檔案a2.lsp 如下

1. ;***********************************************************************************************
   
2. ;<<<<<<   設定 DCL  >>>>>>
   
3. 
   
4. (defun NextSetting_DCL ()
   
5.     (not (and (setq dcl_file (open (setq tmp (vl-filename-mktemp nil nil  ".DCL")) "w"))
   
6.               (progn
   
7.                  (foreach x
   
8.                    '(  
   
9. 
   
10.                      "NextSetting :dialog{"  
    
11.                      "label = \"【物體對齊】\";"  
    
12.                      ":row{"  
    
13.                      ":image_button{"  
    
14.                      "key=\"豎直\";"  
    
15.                      "width=16;"  
    
16.                      "height=8;"  
    
17.                      "color=-2;"  
    
18.                      ""  
    
19.                      "allow_accept=true;"  
    
20.                      "}"  
    
21.                      ":image_button{"  
    
22.                      "key=\"上\";"  
    
23.                      "width=16;"  
    
24.                      "height=8;"  
    
25.                      "color=-2;"  
    
26.                      ""  
    
27.                      "allow_accept=true;"  
    
28.                      "}"  
    
29.                      ":image_button{"  
    
30.                      "key=\"水平\";"  
    
31.                      "width=16;"  
    
32.                      "height=8;"  
    
33.                      "color=-2;"  
    
34.                      ""  
    
35.                      "allow_accept=true;"  
    
36.                      "}"  
    
37.                      "}"  
    
38.                      ":row{"  
    
39.                      ":image_button{"  
    
40.                      "key=\"左\";"  
    
41.                      "width=16;"  
    
42.                      "height=8;"  
    
43.                      "color=-2;"  
    
44.                      ""  
    
45.                      "allow_accept=true;"  
    
46.                      "}"  
    
47.                      ":image_button{"  
    
48.                      "key=\"下\";"  
    
49.                      "width=16;"  
    
50.                      "height=8;"  
    
51.                      "color=-2;"  
    
52.                      ""  
    
53.                      "allow_accept=true;"  
    
54.                      "}"  
    
55.                      ":image_button{"  
    
56.                      "key=\"右\";"  
    
57.                      "width=16;"  
    
58.                      "height=8;"  
    
59.                      "color=-2;"  
    
60.                      ""  
    
61.                      "allow_accept=true;"  
    
62.                      "}"  
    
63.                      "}"  
    
64.                      ":image_button{"  
    
65.                      "key=\"雙向居中\";"  
    
66.                      "width=50;"  
    
67.                      "height=8;"  
    
68.                      "color=-2;"  
    
69.                      "is_cancel=true;"  
    
70.                      "}"  
    
71.                      ""  
    
72.                      "}"  
    
73.      ) (write-line x dcl_file) )
    
74.      (setq dcl_file (close dcl_file))
    
75.          (< 0 (setq dcl_id (load_dialog tmp)))
    
76.              )   (if (not (new_dialog "NextSetting" dcl_id)) (exit))
    
77.                  )   )   )
    
78. 
    
79. (defun c:a2()
    
80. ;***********************************************************************************************
    
81. ;<<<<<<   設定 DCL  >>>>>>
    
82. 
    
83.                                    
    
84.           (vl-load-com) (NextSetting_DCL)  ; 在螢幕上顯示DCL
    
85. ;;<-- 編輯區1 -->
    
86.    
    
87.    
    
88.    
    
89. (action_tile "accept" "(done_dialog 1)")
    
90. (action_tile "cancel" "(done_dialog 0)")
    
91.            (setq dd (start_dialog))
    
92. (unload_dialog dcl_id)
    
93. (vl-file-delete tmp)
    
94. ;;<-- 編輯區2 -->
    
95. (cond
    
96. ((= dd 0)      );execute cancel button
    
97. ((= dd 1)      );execute accept button
    
98.    
    
99. );end_cond
    
100.    
     
101. (princ)
     
102. )
     

;***********************************************************************************************<br /> ;<<<<<<   設定 DCL  >>>>>> <br /> <br /> (defun NextSetting_DCL ()<br />     (not (and (setq dcl_file (open (setq tmp (vl-filename-mktemp nil nil  ".DCL")) "w"))<br />               (progn<br />                  (foreach x <br />                    '(  <br /> <br />                      "NextSetting :dialog{"  <br />                      "label = \"【物體對齊】\";"  <br />                      ":row{"  <br />                      ":image_button{"  <br />                      "key=\"豎直\";"  <br />                      "width=16;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      ""  <br />                      "allow_accept=true;"  <br />                      "}"  <br />                      ":image_button{"  <br />                      "key=\"上\";"  <br />                      "width=16;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      ""  <br />                      "allow_accept=true;"  <br />                      "}"  <br />                      ":image_button{"  <br />                      "key=\"水平\";"  <br />                      "width=16;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      ""  <br />                      "allow_accept=true;"  <br />                      "}"  <br />                      "}"  <br />                      ":row{"  <br />                      ":image_button{"  <br />                      "key=\"左\";"  <br />                      "width=16;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      ""  <br />                      "allow_accept=true;"  <br />                      "}"  <br />                      ":image_button{"  <br />                      "key=\"下\";"  <br />                      "width=16;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      ""  <br />                      "allow_accept=true;"  <br />                      "}"  <br />                      ":image_button{"  <br />                      "key=\"右\";"  <br />                      "width=16;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      ""  <br />                      "allow_accept=true;"  <br />                      "}"  <br />                      "}"  <br />                      ":image_button{"  <br />                      "key=\"雙向居中\";"  <br />                      "width=50;"  <br />                      "height=8;"  <br />                      "color=-2;"  <br />                      "is_cancel=true;"  <br />                      "}"  <br />                      ""  <br />                      "}"  <br />      ) (write-line x dcl_file) )<br />      (setq dcl_file (close dcl_file))<br />          (< 0 (setq dcl_id (load_dialog tmp)))<br />              )   (if (not (new_dialog "NextSetting" dcl_id)) (exit))<br />                  )   )   )<br /> <br /> (defun c:a2()<br /> ;***********************************************************************************************<br /> ;<<<<<<   設定 DCL  >>>>>> <br /> <br />                                    <br />           (vl-load-com) (NextSetting_DCL)  ; 在螢幕上顯示DCL <br /> ;;<-- 編輯區1 --><br />    <br />    <br />    <br /> (action_tile "accept" "(done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br />            (setq dd (start_dialog))<br /> (unload_dialog dcl_id)<br /> (vl-file-delete tmp)<br /> ;;<-- 編輯區2 --><br /> (cond<br /> ((= dd 0)      );execute cancel button<br /> ((= dd 1)      );execute accept button<br />    <br /> );end_cond<br />    <br /> (princ)<br /> )<br />

儲存檔案名稱即為 指令名稱  將a2.lsp載入執行 後 輸入指令 a2 便可顯示空白的幻燈片對話框  如圖片所示

DCL起始對話框函數 第4參數=3 轉成 dcl-lisp檔 (write格式)  另存檔案a3.lsp 如下

1. (defun c:a3()
   
2. (setq fname (vl-filename-mktemp nil nil ".dcl"))
   
3. (setq fn (open fname "w"))
   
4. (write-line "NextSetting :dialog{" fn)
   
5. (write-line "label = \"【物體對齊】\";" fn)
   
6. (write-line ":row{" fn)
   
7. (write-line ":image_button{" fn)
   
8. (write-line "key=\"豎直\";" fn)
   
9. (write-line "width=16;" fn)
   
10. (write-line "height=8;" fn)
    
11. (write-line "color=-2;" fn)
    
12. (write-line "" fn)
    
13. (write-line "allow_accept=true;" fn)
    
14. (write-line "}" fn)
    
15. (write-line ":image_button{" fn)
    
16. (write-line "key=\"上\";" fn)
    
17. (write-line "width=16;" fn)
    
18. (write-line "height=8;" fn)
    
19. (write-line "color=-2;" fn)
    
20. (write-line "" fn)
    
21. (write-line "allow_accept=true;" fn)
    
22. (write-line "}" fn)
    
23. (write-line ":image_button{" fn)
    
24. (write-line "key=\"水平\";" fn)
    
25. (write-line "width=16;" fn)
    
26. (write-line "height=8;" fn)
    
27. (write-line "color=-2;" fn)
    
28. (write-line "" fn)
    
29. (write-line "allow_accept=true;" fn)
    
30. (write-line "}" fn)
    
31. (write-line "}" fn)
    
32. (write-line ":row{" fn)
    
33. (write-line ":image_button{" fn)
    
34. (write-line "key=\"左\";" fn)
    
35. (write-line "width=16;" fn)
    
36. (write-line "height=8;" fn)
    
37. (write-line "color=-2;" fn)
    
38. (write-line "" fn)
    
39. (write-line "allow_accept=true;" fn)
    
40. (write-line "}" fn)
    
41. (write-line ":image_button{" fn)
    
42. (write-line "key=\"下\";" fn)
    
43. (write-line "width=16;" fn)
    
44. (write-line "height=8;" fn)
    
45. (write-line "color=-2;" fn)
    
46. (write-line "" fn)
    
47. (write-line "allow_accept=true;" fn)
    
48. (write-line "}" fn)
    
49. (write-line ":image_button{" fn)
    
50. (write-line "key=\"右\";" fn)
    
51. (write-line "width=16;" fn)
    
52. (write-line "height=8;" fn)
    
53. (write-line "color=-2;" fn)
    
54. (write-line "" fn)
    
55. (write-line "allow_accept=true;" fn)
    
56. (write-line "}" fn)
    
57. (write-line "}" fn)
    
58. (write-line ":image_button{" fn)
    
59. (write-line "key=\"雙向居中\";" fn)
    
60. (write-line "width=50;" fn)
    
61. (write-line "height=8;" fn)
    
62. (write-line "color=-2;" fn)
    
63. (write-line "is_cancel=true;" fn)
    
64. (write-line "}" fn)
    
65. (write-line "" fn)
    
66. (write-line "}" fn)
    
67. (close fn)
    
68. 
    
69. ;;************************************
    
70. (setq dclid (load_dialog fname))
    
71. (new_dialog"NextSetting" dclid)
    
72. ;;<-- 編輯區1 -->
    
73.    
    
74.    
    
75.    
    
76. (action_tile "accept" "(done_dialog 1)")
    
77. (action_tile "cancel" "(done_dialog 0)")
    
78. (setq dd (start_dialog))
    
79. (unload_dialog dcl_id)
    
80. (vl-file-delete tmp)
    
81. ;;<-- 編輯區2 -->
    
82. (cond
    
83. ((= dd 0)      );execute cancel button
    
84. ((= dd 1)      );execute accept button
    
85.    
    
86. );end_cond
    
87.    
    
88. (princ)
    
89. )
    

(defun c:a3()<br /> (setq fname (vl-filename-mktemp nil nil ".dcl"))<br /> (setq fn (open fname "w"))<br /> (write-line "NextSetting :dialog{" fn)<br /> (write-line "label = \"【物體對齊】\";" fn)<br /> (write-line ":row{" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"豎直\";" fn)<br /> (write-line "width=16;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "" fn)<br /> (write-line "allow_accept=true;" fn)<br /> (write-line "}" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"上\";" fn)<br /> (write-line "width=16;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "" fn)<br /> (write-line "allow_accept=true;" fn)<br /> (write-line "}" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"水平\";" fn)<br /> (write-line "width=16;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "" fn)<br /> (write-line "allow_accept=true;" fn)<br /> (write-line "}" fn)<br /> (write-line "}" fn)<br /> (write-line ":row{" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"左\";" fn)<br /> (write-line "width=16;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "" fn)<br /> (write-line "allow_accept=true;" fn)<br /> (write-line "}" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"下\";" fn)<br /> (write-line "width=16;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "" fn)<br /> (write-line "allow_accept=true;" fn)<br /> (write-line "}" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"右\";" fn)<br /> (write-line "width=16;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "" fn)<br /> (write-line "allow_accept=true;" fn)<br /> (write-line "}" fn)<br /> (write-line "}" fn)<br /> (write-line ":image_button{" fn)<br /> (write-line "key=\"雙向居中\";" fn)<br /> (write-line "width=50;" fn)<br /> (write-line "height=8;" fn)<br /> (write-line "color=-2;" fn)<br /> (write-line "is_cancel=true;" fn)<br /> (write-line "}" fn)<br /> (write-line "" fn)<br /> (write-line "}" fn)<br /> (close fn)<br /> <br /> ;;************************************<br /> (setq dclid (load_dialog fname))<br /> (new_dialog"NextSetting" dclid)<br /> ;;<-- 編輯區1 --><br />    <br />    <br />    <br /> (action_tile "accept" "(done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> (setq dd (start_dialog))<br /> (unload_dialog dcl_id)<br /> (vl-file-delete tmp)<br /> ;;<-- 編輯區2 --><br /> (cond<br /> ((= dd 0)      );execute cancel button<br /> ((= dd 1)      );execute accept button<br />    <br /> );end_cond<br />    <br /> (princ)<br /> )<br />

儲存檔案名稱即為 指令名稱  將a3.lsp載入執行 後 輸入指令 a3 便可顯示空白的幻燈片對話框 如圖片所示

lee50310

假設你已熟讀規則並可自行撰寫 dlst列表 以範例3 幻燈片來說明
下面這個是寫好的 dlst列表  可透過轉換函數轉成 DCL檔 (比起一般撰寫DCL檔要簡單方便很多)

1. (setq Dlst '(
   
2.              ":row{"
   
3.              ("image_button" "" "豎直" "16" "8" "" "-2" "#allow_accept=true;")
   
4.              ("image_button" "" "上"   "16" "8" "" "-2" "#allow_accept=true;")
   
5.              ("image_button" "" "水平" "16" "8" "" "-2" "#allow_accept=true;")
   
6.              "}"
   
7.              ":row{"
   
8.              ("image_button" "" "左" "16" "8" "" "-2" "#allow_accept=true;")
   
9.              ("image_button" "" "下" "16" "8" "" "-2" "#allow_accept=true;")
   
10.              ("image_button" "" "右" "16" "8" "" "-2" "#allow_accept=true;")
    
11.              }
    
12.              ("@image_button" "" "雙向居中" "50" "8" "" "-2" )
    
13.             
    
14.        )
    
15.       )
    

(setq Dlst '(<br />              ":row{"<br />              ("image_button" "" "豎直" "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "上"   "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "水平" "16" "8" "" "-2" "#allow_accept=true;")<br />              "}"<br />              ":row{"<br />              ("image_button" "" "左" "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "下" "16" "8" "" "-2" "#allow_accept=true;")<br />              ("image_button" "" "右" "16" "8" "" "-2" "#allow_accept=true;")<br />              }<br />              ("@image_button" "" "雙向居中" "50" "8" "" "-2" )<br />             <br />        )<br />       ) <br />

這是轉換程式Great-DCL.fas內的兩個重要函數 一個是DCL起始函數 及 結束函數 如下

1. ;參數項       1        2       3  4  
   
2. (DCL:STATE  Dlst "【物體對齊】" 0  1 ) ;DCL起始函數
   
3. 
   
4. (setq dd(DCL:END)) ;結束函數
   

;參數項       1        2       3  4  <br /> (DCL:STATE  Dlst "【物體對齊】" 0  1 ) ;DCL起始函數<br /> <br /> (setq dd(DCL:END)) ;結束函數<br />

DCL起始函數有4個參數
第1項參數 Dlst 列表項
第2參數 DCL對話框之標題名稱
第3參數 OK或Cancel 按鈕生成選項 參數值 0至 5 詳使用說明
第ˋ4參數 是否生成 dcl文字檔
   0 =>不生成
   1 =>生成dcl檔
   2 =>dcl轉成lisp檔
   3 =>dcl轉成lisp檔(Write格式)

建議剛開始編寫 dlst列表 此函數第4 項參數先設0 =>不生成dcl
執行程式 若編寫的 dlst列表無誤 會在cad螢幕顯示 所寫的對話框
若沒顯示出對話框 表示 dlst列表內容有錯誤 須修正
等沒有錯誤 再改此參數 生成你要輸出的項目

lee50310

水洗可口可乐 发表于 2023-6-24 18:09
大佬你这个 有具体应用吗

(需要会 lisp + dcl 写作基础才能看得懂)
这个是应用在 程式写作 需要dcl对话框时ˊ 可用此辅助程式帮助你快速生成dcl 并转成lisp档
可利用转好的 lisp档 继续程式写作节省时间并减少错误

有阿! ! 不是提供 ˊ6 个程式范例  

具体应用就要看你要写 哪种( lisp+dcl)程式 例如 你的dcl程式中有 按钮 ,有下拉式选项 ,有点选钮
那 dlst列表 编写方式 可参考 范例的 6.综合.lsp 去改成你要的格式

简单的说 你有看过院长写的(lisp+dcl)程式吗?
是不是 一個列表項 + 简短几个步骤 就生成dcl对话框
若你会写(lisp+dcl)程式 有了这个 转换程式 你也可以 像他一样快速建立

lee50310

將生成後的空白 dcl  再自行填入 幻燈片載入路徑,初始參數設定及所需函數即可

loveu515

大佬又来分享好东西了，好好学学

caoliu023

講真說，我好希望你們改為簡體字，不費眼，新加坡就不錯不守舊

434939575

caoliu023 发表于 2023-6-24 16:58
講真說，我好希望你們改為簡體字，不費眼，新加坡就不錯不守舊

他可能不太习惯简体

水洗可口可乐

大佬你这个 有具体应用吗

水洗可口可乐

lee50310 发表于 2023-6-24 18:37
(需要會 lisp + dcl 寫作基礎才能看得懂)
這個是應用在 程式寫作 需要dcl對話框時ˊ 可用此輔助程式幫 ...

谢谢了，我消化一下