文字输入

xcmdos

2. (vl-load-com)
   
3. (defun c:TT(/ fname fn x dclid lin )
   
4.   (setvar "CMDECHO" 0)
   
5.   (vl-cmdf "undo" "be")
   
6.   (setq fname (VL-FILENAME-MKTEMP nil nil ".dcl" ))
   
7.   (setq fn (open fname "w" ))
   
8.   (foreach x '(
   
9.     "  __CHENJINYI__ : dialog{"
   
10.     "  label="文字输入 V1.0";"
    
11.     "     :column{"
    
12.     "     :edit_box{label="文字输入:";key="_var1";edit_width=30;value="xxx";alignment=right;}"   
    
13.     "     :boxed_row{"
    
14.     "     :toggle{label="+系统时间";key="_var2";value=1;}"  
    
15.     "     :ok_button{label="确定";key="accept";}"
    
16.     "     :cancel_button{label="关闭";key="cancel";}"   
    
17.     "     }"
    
18.     "     }"
    
19.     "}"
    
20.     );end ;endlist
    
21.     (princ x fn)
    
22.     (write-line "" fn)
    
23.   );end foreach
    
24.   (close fn)  
    
25.   
    
26.   (setq fn (open fname "r" ))
    
27.   (setq dclid (load_dialog fname))
    
28.   
    
29.   (while (or
    
30.     (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn))))1 2)"//" )
    
31.     (eq (substr lin 1 (vl-string-search " " lin))"" )
    
32.     (not (eq (substr lin (+ (vl-string-search " " lin) 1)9)" : dialog" ))
    
33.     )
    
34.   )
    
35.   (new_dialog (substr lin 1 (vl-string-search " " lin))dclid)
    
36. 
    
37.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
38.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;控件响应设计
    
39.   (dcl_action '("accept" "cancel" "_var1" "_var2"))   
    
40.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
41.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文字输入
    
42.   (cond ((= (start_dialog) 1)
    
43.    
    
44.     (princ)
    
45.   ))
    
46.   (unload_dialog dclid)
    
47.   (close fn)
    
48.   (vl-file-delete fname)
    
49.   
    
50.   (if (atoi _var2_bak)
    
51.     (progn
    
52.       (setq p0 (getpoint "选择文字插入点："))
    
53.       (entmake
    
54.         (list
    
55.           '(0 . "TEXT")
    
56.           '(100 . "AcDbEntity")
    
57.           '(100 . "AcDbText")
    
58.           '(8 . "文字说明")
    
59.           '(40 . 3.0)
    
60.           '(41 . 0.7)
    
61.           '(62 . 7)   
    
62.           '(7   . "hcs")      
    
63.           (cons 1 _var1_bak)
    
64.           (cons 10 p0)
    
65.       
    
66.         )
    
67.       )   
    
68.     )
    
69.     (progn
    
70.       (setq p0 (getpoint "选择文字插入点："))
    
71.       (entmake
    
72.         (list
    
73.           '(0 . "TEXT")
    
74.           '(100 . "AcDbEntity")
    
75.           '(100 . "AcDbText")
    
76.           '(8 . "文字说明")
    
77.           '(40 . 3.0)
    
78.           '(41 . 0.7)
    
79.           '(62 . 7)   
    
80.           '(7   . "hcs")      
    
81.           (cons 1 _var1_bak)
    
82.           (cons 10 p0)
    
83.       
    
84.         )
    
85.       )   
    
86.     )   
    
87.   )  
    
88.   (vl-cmdf "undo" "e")
    
89.   (princ)
    
90. )
    
91. ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
92. ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
93. ;;每个控件赋一个变量xx_bak
    
94. (defun dcl_getkeys (keys / key)
    
95.   (foreach key keys
    
96.     (set (read (strcat key "_bak"))(get_tile key)))
    
97. )
    
98. ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
99. ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
100. ;;全部控件的点击动作触发
     
101. (defun action_keys (key value)
     
102.   (cond
     
103.     ((= key "accept")
     
104.       (dcl_getkeys '("_var1" "_var2"))
     
105.       (t (done_dialog 1))
     
106.     )      
     
107.     ((= key "cancel")(done_dialog 0))
     
108.   )
     
109. )
     
110. ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
     
111. ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
     
112. ;;还原控件+控件触发动作    ;by nonsmall
     
113. (defun dcl_action (keyslst)
     
114.   (foreach key keyslst
     
115.     (if (eval (read (strcat key "_bak")))(set_tile key (eval (read (strcat key "_bak")))))
     
116.     (action_tile key "(action_keys $key $value)")
     
117.   )
     
118. )
     
119. 
     

(vl-load-com)<br /> (defun c:TT(/ fname fn x dclid lin )<br />   (setvar "CMDECHO" 0)<br />   (vl-cmdf "undo" "be")<br />   (setq fname (VL-FILENAME-MKTEMP nil nil ".dcl" ))<br />   (setq fn (open fname "w" ))<br />   (foreach x '(<br />     "  __CHENJINYI__ : dialog{" <br />     "  label="文字输入 V1.0";"<br />     "     :column{" <br />     "     :edit_box{label="文字输入:";key="_var1";edit_width=30;value="xxx";alignment=right;}"   <br />     "     :boxed_row{"<br />     "     :toggle{label="+系统时间";key="_var2";value=1;}"  <br />     "     :ok_button{label="确定";key="accept";}"<br />     "     :cancel_button{label="关闭";key="cancel";}"    <br />     "     }" <br />     "     }" <br />     "}" <br />     );end ;endlist<br />     (princ x fn)<br />     (write-line "" fn)<br />   );end foreach<br />   (close fn)  <br />   <br />   (setq fn (open fname "r" ))<br />   (setq dclid (load_dialog fname))<br />   <br />   (while (or <br />     (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn))))1 2)"//" )<br />     (eq (substr lin 1 (vl-string-search " " lin))"" )<br />     (not (eq (substr lin (+ (vl-string-search " " lin) 1)9)" : dialog" ))<br />     )<br />   ) <br />   (new_dialog (substr lin 1 (vl-string-search " " lin))dclid)<br /> <br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;控件响应设计<br />   (dcl_action '("accept" "cancel" "_var1" "_var2"))   <br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文字输入<br />   (cond ((= (start_dialog) 1)<br />     <br />     (princ)<br />   )) <br />   (unload_dialog dclid)<br />   (close fn)<br />   (vl-file-delete fname)<br />   <br />   (if (atoi _var2_bak)<br />     (progn<br />       (setq p0 (getpoint "选择文字插入点："))<br />       (entmake <br />         (list <br />           '(0 . "TEXT") <br />           '(100 . "AcDbEntity") <br />           '(100 . "AcDbText") <br />           '(8 . "文字说明")<br />           '(40 . 3.0)<br />           '(41 . 0.7)<br />           '(62 . 7)   <br />           '(7   . "hcs")      <br />           (cons 1 _var1_bak) <br />           (cons 10 p0) <br />       <br />         )<br />       )    <br />     )<br />     (progn<br />       (setq p0 (getpoint "选择文字插入点："))<br />       (entmake <br />         (list <br />           '(0 . "TEXT") <br />           '(100 . "AcDbEntity") <br />           '(100 . "AcDbText") <br />           '(8 . "文字说明")<br />           '(40 . 3.0)<br />           '(41 . 0.7)<br />           '(62 . 7)   <br />           '(7   . "hcs")      <br />           (cons 1 _var1_bak) <br />           (cons 10 p0) <br />       <br />         )<br />       )    <br />     )    <br />   )  <br />   (vl-cmdf "undo" "e")<br />   (princ)<br /> )<br /> ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■<br /> ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■<br /> ;;每个控件赋一个变量xx_bak<br /> (defun dcl_getkeys (keys / key)<br />   (foreach key keys<br />     (set (read (strcat key "_bak"))(get_tile key)))<br /> )<br /> ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■<br /> ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■<br /> ;;全部控件的点击动作触发<br /> (defun action_keys (key value)<br />   (cond<br />     ((= key "accept")<br />       (dcl_getkeys '("_var1" "_var2"))<br />       (t (done_dialog 1))<br />     )      <br />     ((= key "cancel")(done_dialog 0))<br />   )<br /> )<br /> ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■<br /> ;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■<br /> ;;还原控件+控件触发动作    ;by nonsmall<br /> (defun dcl_action (keyslst)<br />   (foreach key keyslst<br />     (if (eval (read (strcat key "_bak")))(set_tile key (eval (read (strcat key "_bak")))))<br />     (action_tile key "(action_keys $key $value)")<br />   )<br /> )<br /> <br />

这段代码运行有问题，按下OK 后出现函数错误，麻烦亲们解答，谢谢

xcmdos

，自己先抢个沙发

llsheng_73

action_keys内cond语句错误

1. (defun action_keys (key value)
   
2.   (cond
   
3.     ((= key "accept")
   
4.      (dcl_getkeys '("_var1" "_var2"))
   
5.      (done_dialog 1))
   
6.     ((= key "cancel")(done_dialog 0))
   
7.   )
   
8. )

(defun action_keys (key value)<br />   (cond<br />     ((= key "accept")<br />      (dcl_getkeys '("_var1" "_var2"))<br />      (done_dialog 1))<br />     ((= key "cancel")(done_dialog 0))<br />   )<br /> )

loveu515

学习一下

xcmdos

llsheng_73 发表于 2023-7-5 08:44
action_keys内cond语句错误

一大早就收到您的解答，谢谢大神