一个简单的ODCL列表应用

eachy

1. (defun ODCL::GetInput (lst
   
2.                        /
   
3.                        string
   
4.                        c:test_Form1_OnCancel
   
5.                        c:test_Form1_Cancel_OnClicked
   
6.                        c:test_Form1_Ok_OnClicked
   
7.                        c:test_Form1_Cancel_OnClicked
   
8.                       )
   
9.   (setq        string
   
10.          (apply
    
11.            'strcat
    
12.            '("YWt6Aw0PAACNn65IBuKbKDUxLT9qgCSlTIwuPPw09nf3Ziem2j5X6ttxbGEm+nvk7h7X0157bFuk"
    
13.              "1q/bWBIi5+bGHpe8eVjAnLTGrONVnbxhHtzWVUlWi+KXm7DjHXU7NkoG7ceJAAmwAhmY4o2zotOH"
    
14.              "u0LiaOY4ZJlPc2H+yWu+GAQMOQ1qI5a6F7rWy99jH4PyLHWtQ/1Go7027CviJOZSxG6vqGfarvRw"
    
15.              "BMivSZNWsfJPPNNmX/nTpFQyqONKWJ1OuEqxdo9rZu0aqztCsuxYal+VWste1ObqGTK6BxL5jL9x"
    
16.              "mdzQHnHYDnBtmjnDOKMs8R3chG/+mSypSuvAQGzhxP3ufQOSOYPKDgN0oyb0pE7y1R9aTveDSrs3"
    
17.              "dD5kJ9Z1/NewBgS34EH2gPVoECagrV8UHapNOGDNCsE66JTnj96piDqe2XxBaAY/slZZDrYZnWFY"
    
18.              "6DLa0N28M3q5DCm3usLcQuT/LhFSNdZoRShEm0Lc9MFKtOr5BPZJN7KXbDeJPcf1MmaUaLhf9VSO"
    
19.              "gBTSgYzr5z8rV2hJF6criRx+M6o4C8zNigD+kBnesMSddDXlbAa8i5GFsD9kaYMn/xvWQhsK7Q/D"
    
20.              "v8I2qxmODbi5O4EQ//F3hV3cVvB0olWOH/+fzZ1YLcU5uqvtlEdG1xj1FIBs79eIWU7AHPRD5IC4"
    
21.              "XzD2W6VXiQ20Ky6qCAuHFGIJq7E0Mm8wrZjbmLowjTZSgt8uqX3/kXUCMZ4B2z4h5pawzQOuUyZD"
    
22.              "35t0BnmdJRxj4PzQ+yOuIl4UOLqfyKcLSgHdvmB/4hzCFpjRgwNvlecJnSaegVp0htX38ciBkoRV"
    
23.              "nhhPoF3GJ6b8FbxEdhBrfJX9Xc4ziiy9IYiAyOkkGSaHBRdPH8Nlxk/P/M4I6GjoCVzVa+a4ZTse"
    
24.              "FW6uVhJ/4z5vf7dtHN13GnNZ7FXmNASnvCHE2x4WRB3EBIkvk5i0hn+P4jB14oD+p1HLBfHWXPLF"
    
25.              "cxAeIl2sqVe0IHSQAe/3Qvno7zNwOxoNzo61n7gbLtIN2w0XJZ+RqmNRG6hYnGBrgDHo6NuIKVWE"
    
26.              "pTOjFsBfr6FfgoM7J5UTtF2VxSZ5J7mPuczgC+DBfkmytJs="
    
27.             )
    
28.          )
    
29.   )
    
30.   (defun c:test_Form1_OnCancel (/)
    
31.     (dcl_form_close test_form1)
    
32.   )
    
33.   (defun c:test_Form1_Ok_OnClicked (/)
    
34.     (setq sel (dcl_ListBox_GetSelectedItems test_Form1_ListBox1))
    
35.     (dcl_form_close test_form1)
    
36.   )
    
37.   (defun c:test_Form1_Cancel_OnClicked (/)
    
38.     (dcl_form_close test_form1)
    
39.   )
    
40.   (defun c:test_Form1_OnInitialize (/)
    
41.     (dcl_ListBox_AddList test_Form1_ListBox1 lst)
    
42.   )
    
43.   (dcl_project_import string)
    
44.   (dcl_form_show test_form1)
    
45.   sel
    
46. )
    
47. (defun c:tt (/ lst key)
    
48.   (setq        lst '(("直线" ".Line")
    
49.               ("圆" ".Circle")
    
50.               ("圆弧" ".Arc")
    
51.               ("多义线" ".Pline")
    
52.              )
    
53.   )
    
54.   (if (and (setq key (ODCL::GetInput (mapcar 'car lst)))
    
55.            key
    
56.            (/= key "")
    
57.       )
    
58.     (progn
    
59.       (princ "\n你选择了 ")
    
60.       (princ (car key))
    
61.       (princ "\n执行命令为 ")
    
62.       (princ (cadr (assoc(car key) lst)))
    
63.     )
    
64.   )
    
65.   (princ)
    
66. )

(defun ODCL::GetInput (lst<br />                        /<br />                        string<br />                        c:test_Form1_OnCancel<br />                        c:test_Form1_Cancel_OnClicked<br />                        c:test_Form1_Ok_OnClicked<br />                        c:test_Form1_Cancel_OnClicked<br />                       )<br />   (setq        string<br />          (apply<br />            'strcat<br />            '("YWt6Aw0PAACNn65IBuKbKDUxLT9qgCSlTIwuPPw09nf3Ziem2j5X6ttxbGEm+nvk7h7X0157bFuk"<br />              "1q/bWBIi5+bGHpe8eVjAnLTGrONVnbxhHtzWVUlWi+KXm7DjHXU7NkoG7ceJAAmwAhmY4o2zotOH"<br />              "u0LiaOY4ZJlPc2H+yWu+GAQMOQ1qI5a6F7rWy99jH4PyLHWtQ/1Go7027CviJOZSxG6vqGfarvRw"<br />              "BMivSZNWsfJPPNNmX/nTpFQyqONKWJ1OuEqxdo9rZu0aqztCsuxYal+VWste1ObqGTK6BxL5jL9x"<br />              "mdzQHnHYDnBtmjnDOKMs8R3chG/+mSypSuvAQGzhxP3ufQOSOYPKDgN0oyb0pE7y1R9aTveDSrs3"<br />              "dD5kJ9Z1/NewBgS34EH2gPVoECagrV8UHapNOGDNCsE66JTnj96piDqe2XxBaAY/slZZDrYZnWFY"<br />              "6DLa0N28M3q5DCm3usLcQuT/LhFSNdZoRShEm0Lc9MFKtOr5BPZJN7KXbDeJPcf1MmaUaLhf9VSO"<br />              "gBTSgYzr5z8rV2hJF6criRx+M6o4C8zNigD+kBnesMSddDXlbAa8i5GFsD9kaYMn/xvWQhsK7Q/D"<br />              "v8I2qxmODbi5O4EQ//F3hV3cVvB0olWOH/+fzZ1YLcU5uqvtlEdG1xj1FIBs79eIWU7AHPRD5IC4"<br />              "XzD2W6VXiQ20Ky6qCAuHFGIJq7E0Mm8wrZjbmLowjTZSgt8uqX3/kXUCMZ4B2z4h5pawzQOuUyZD"<br />              "35t0BnmdJRxj4PzQ+yOuIl4UOLqfyKcLSgHdvmB/4hzCFpjRgwNvlecJnSaegVp0htX38ciBkoRV"<br />              "nhhPoF3GJ6b8FbxEdhBrfJX9Xc4ziiy9IYiAyOkkGSaHBRdPH8Nlxk/P/M4I6GjoCVzVa+a4ZTse"<br />              "FW6uVhJ/4z5vf7dtHN13GnNZ7FXmNASnvCHE2x4WRB3EBIkvk5i0hn+P4jB14oD+p1HLBfHWXPLF"<br />              "cxAeIl2sqVe0IHSQAe/3Qvno7zNwOxoNzo61n7gbLtIN2w0XJZ+RqmNRG6hYnGBrgDHo6NuIKVWE"<br />              "pTOjFsBfr6FfgoM7J5UTtF2VxSZ5J7mPuczgC+DBfkmytJs="<br />             )<br />          )<br />   )<br />   (defun c:test_Form1_OnCancel (/)<br />     (dcl_form_close test_form1)<br />   )<br />   (defun c:test_Form1_Ok_OnClicked (/)<br />     (setq sel (dcl_ListBox_GetSelectedItems test_Form1_ListBox1))<br />     (dcl_form_close test_form1)<br />   )<br />   (defun c:test_Form1_Cancel_OnClicked (/)<br />     (dcl_form_close test_form1)<br />   )<br />   (defun c:test_Form1_OnInitialize (/)<br />     (dcl_ListBox_AddList test_Form1_ListBox1 lst)<br />   )<br />   (dcl_project_import string)<br />   (dcl_form_show test_form1)<br />   sel<br /> )<br /> (defun c:tt (/ lst key)<br />   (setq        lst '(("直线" ".Line")<br />               ("圆" ".Circle")<br />               ("圆弧" ".Arc")<br />               ("多义线" ".Pline")<br />              )<br />   )<br />   (if (and (setq key (ODCL::GetInput (mapcar 'car lst)))<br />            key<br />            (/= key "")<br />       )<br />     (progn<br />       (princ "\n你选择了 ")<br />       (princ (car key))<br />       (princ "\n执行命令为 ")<br />       (princ (cadr (assoc(car key) lst)))<br />     )<br />   )<br />   (princ)<br /> )

守仁格竹GM

这么好的帖子，回复是一种美德

st788796

嗯，不错，对话框做成函数有一大部分应用可以用这个方式

sachindkini

Command: AP APPLOAD ODCLGetInput.lsp successfully loaded.
Command:
Command:
Command: TT ; error: no function definition: DCL_PROJECT_IMPORT

434939575

还看不懂！先下载学习。

tension33

命令: TT Error: no function definition: DCL_PROJECT_IMPORT

运行出错！