乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 77|回复： 2

[编程交流] 编辑框的验证

[复制链接]
aloy

53

主题

302

帖子

249

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
265
发表于 2022-7-5 16:21:09 | 显示全部楼层 |阅读模式
大家好，
下面是李·麦克对lisp对话代码的改编。我想用提供的代码验证编辑框。但是，初始化后提供的值无法验证。
 
有什么问题吗？。
 
提前感谢，
芦荟
  2. samp11 : dialog {                                //dialog name
  3.      label = "Pipe Lines" ;      //give it a label
  5.       : row {                                        //define row
  7.       :boxed_column {                        //define radio column
  8.       label = "Pipe diameters used (mm)" ; //give it a label
  10.        : toggle {                        //define toggle
  11.               key = "tog1" ;                                //give it a name
  12.               label = "150" ;                        //give it a label
  13.                                                 
  14.               }                                        
  16.             : toggle {                        //define toggle
  17.               key = "tog2" ;                                //give it a name
  18.               label = "200" ;                //give it a label
  19.             }                                
  21.             : toggle {                        //define toggle
  22.               key = "tog3" ;                                //give it a name
  23.               label = "225" ;                        //give it a label
  24.               }                                        
  26.             : toggle {                        //define toggle
  27.               key = "tog4" ;                                //give it a name
  28.               label = "250" ;                        //give it a label
  29.             }                                        
  31.             : toggle {                        //define toggle
  32.               key = "tog5" ;                                //give it a name
  33.               label = "300" ;                       //give it a label
  34.               }                                        
  36.             : toggle {                        //define toggle
  37.               key = "tog6" ;                                //give it a name
  38.               label = "375" ;                        //give it a label
  39.             }
  41.             : toggle {                        //define toggle
  42.               key = "tog7" ;                                //give it a name
  43.               label = "450" ;                        //give it a label
  44.             }
  46.             : toggle {                        //define toggle
  47.               key = "tog8" ;                                //give it a name
  48.               label = "600" ;                       //give it a label
  49.             }
  51.        }                                        //end toggle collumn
  53.        : boxed_column {                        //define boxed column
  54.        label = "Variables" ;
  55.        
  56.        
  58.             : edit_box {                                //edit box
  59.        key = "eb1" ;
  60.        label = "Manning 'n'" ;                   
  61.        edit_width = 10 ;                                
  62.        
  63.        
  64.        }
  66.        : edit_box {                                //edit box
  67.        key = "eb2" ;                                   
  68.        label = "% part full" ;
  69.        edit_width = 10 ;                
  70.        }
  72.       }                                        //end boxed collumn
  73.       
  75.      
  76.        }                                
  78.     ok_cancel ;                                //predifined OK/Cancel 
  79.    
  80.                                            //end text
  82. (defun c:samp14 ( / bit cnt dch rtn lst )
  83.    (setq lst
  84.       '(
  85.            ((150.0 120.0) (150.0 110.0) (150.0 100.0))
  86.            ((200.0 150.0) (200.0 140.0) (200.0 120.0))
  87.            ((225.0 180.0) (225.0 170.0) (225.0 160.0) (225.0 150.0))
  88.            ((250.0 200.0) (250.0 180.0) (225.0 170.0) (225.0 160.0))
  89.            ((300.0 300.0) (300.0 280.0) (300.0 260.0) (300.0 250.0) (300.0 240.0) (300.0 220.0) (300.0 200.0) (300.0 180.0))
  90.            ((375.0 350.0) (375.0 320.0) (375.0 300.0) (375.0 280.0))
  91.            ((450.0 400.0) (450.0 370.0) (450.0 350.0) (450.0 320.0))
  92.            ((600.0 500.0) (600.0 450.0) (600.0 420.0) (600.0 400.0))
  93.        )
  94.    )
  95.    (if
  96.           (<= (setq dch (load_dialog "samp11.dcl")) 0)
  97.            (princ "\nsamp11.dcl not found or could not be loaded.")
  98.        )
  99.    
  100.      (if      (not (new_dialog "samp11" dch))
  101.            (princ "\nError in samp11.dcl file.")
  102.       )
  103.       (my_init_dialog)       
  104.          (setq bit 1 cnt 1 rtn 0)
  105.            (repeat (length lst)
  106.                (action_tile
  107.                    (strcat "tog" (itoa cnt))
  108.                    (strcat "(setq rtn (boole (+ 4 (* 3 (atoi $value))) " (itoa bit) " rtn))")
  109.                )
  110.                (setq bit (lsh bit 1) cnt (1+ cnt))
  111.            )
  112.            (if (= 1 (start_dialog))
  113.                (setq bit 1
  114.                      lst
  115.                    (vl-remove-if
  116.                       '(lambda ( x / flg ) (setq flg (zerop (logand bit rtn)) bit (lsh bit 1)) flg)
  117.                        lst
  118.                    )
  119.                )
  120.            )
  121.        
  122.    (my_init_dialog)
  123.  (action_tile "eb1" "(update_manning (setq man $value))")
  124.  (action_tile "eb2" "(update_percentage (setq pf $value))")
  125.  
  126.    (if (< 0 dch) (unload_dialog dch))
  127.  (setq dl lst)
  128.  (setq dl(apply 'append dl))
  129.    (princ)
  130. )
  132. (defun my_init_dialog ()      
  133.      (setq man "0.013"
  134.            pf  "50")
  135.      (set_tile "eb1" man)
  136.      (set_tile "eb2" pf)
  137.     
  138.    )
  139. (defun update_manning (val)
  140.      (cond
  141. ((equal (distof val) nil) (progn (set_tile "eb1" "invalid" (setq man "invalid")))
  142.            ((<= (distof val) 0.009) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  143.            ((>= (distof val) ) 0.018) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  144.            (t (progn (set_tile "eb1" val) (setq man val)))))
  145. (defun update_percentage (val)
  146.      (cond
  147. ((equal (distof val) nil) (progn (set_tile "eb2" "invalid" (setq pf "invalid")))
  148.            ((< (distof val) 50) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  149.            ((> (distof val) ) 66) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  150.            (t (progn (set_tile "eb2" val) (setq man val)))))
  151.    

172110kgag2rgb6to2nt0o.png
回复

使用道具 举报

aloy

53

主题

302

帖子

249

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
265
发表于 2022-7-5 16:55:00 | 显示全部楼层
在消除验证定义函数括号中的错误并按如下方式重新定位初始化函数后，其工作正常：
  2. (defun C:samp16 ()
  3.  (setq lst
  4.       '(
  5.            ((150.0 120.0) (150.0 110.0) (150.0 100.0))
  6.            ((200.0 150.0) (200.0 140.0) (200.0 120.0))
  7.            ((225.0 180.0) (225.0 170.0) (225.0 160.0) (225.0 150.0))
  8.            ((250.0 200.0) (250.0 180.0) (225.0 170.0) (225.0 160.0))
  9.            ((300.0 300.0) (300.0 280.0) (300.0 260.0) (300.0 250.0) (300.0 240.0) (300.0 220.0) (300.0 200.0) (300.0 180.0))
  10.            ((375.0 350.0) (375.0 320.0) (375.0 300.0) (375.0 280.0))
  11.            ((450.0 400.0) (450.0 370.0) (450.0 350.0) (450.0 320.0))
  12.            ((600.0 500.0) (600.0 450.0) (600.0 420.0) (600.0 400.0))
  13.        )
  14.    )
  15.   (setq dcl_id% (load_dialog "samp11.dcl"))
  16.    (if(not(new_dialog "samp11" dcl_id%)
  17.       )
  18.      (exit)
  19.    )
  20.  (my_init_dialog)
  21. (action_tile "eb1" "(update_manning (setq man $value))")
  22. (action_tile "eb2" "(update_percentage (setq pf $value))")
  23. (action_tile "cancel" "(done_dialog) (setq userclick nil)")
  24. (action_tile "accept" "(done_dialog) (setq userclick T)")
  25.  
  26.  (setq bit 1 cnt 1 rtn 0)
  27.            (repeat (length lst)
  28.                (action_tile
  29.                    (strcat "tog" (itoa cnt))
  30.                    (strcat "(setq rtn (boole (+ 4 (* 3 (atoi $value))) " (itoa bit) " rtn))")
  31.                )
  32.                (setq bit (lsh bit 1) cnt (1+ cnt))
  33.            )
  34.            (if (= 1 (start_dialog))
  35.                (progn(setq bit 1
  36.                      lst
  37.                    (vl-remove-if
  38.                       '(lambda ( x / flg ) (setq flg (zerop (logand bit rtn)) bit (lsh bit 1)) flg)
  39.                        lst
  40.                    )                            
  41.                )                
  42.            )    
  43.           )  
  44.  (setq dl lst)
  45.  (setq dl(apply 'append dl))
  46. (unload_dialog dcl_id%)  
  47. )
  48. (princ)
  49. (defun my_init_dialog ()      
  50.      (setq man "0.013"
  51.            pf  "50")
  52.      (set_tile "eb1" man)
  53.      (mode_tile "eb1" 2)
  54.      (set_tile "eb2" pf)
  55.      (mode_tile "eb2" 2)
  56.     
  57.    )
  58. (defun update_manning (val)
  59.      (cond
  60. ((equal (distof val) nil) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  61.            ((<= (distof val) 0.009) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  62.            ((>= (distof val) 0.018) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  63.            (t (progn (set_tile "eb1" val) (setq man val)))))
  64. (defun update_percentage (val)
  65.      (cond
  66. ((equal (distof val) nil) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  67.            ((< (distof val) 50) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  68.            ((> (distof val) 66) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  69.            (t (progn (set_tile "eb2" val) (setq man val)))))
  70.    

我感谢那些看过帖子的人。
芦荟
回复

使用道具 举报

aloy

53

主题

302

帖子

249

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
265
发表于 2022-7-5 17:25:27 | 显示全部楼层
可能已经注意到，我的帖子2中的lisp代码只验证了这两个变量，没有选择管道尺寸；它返回管道的完整列表。为了消除错误，我必须遵循李的方法，如下所示：
  2. samp11 : dialog {                                //dialog name
  3.      label = "Pipe Lines" ;      //give it a label
  5.       : row {                                        //define row
  7.       :boxed_column {                        //define radio column
  8.       label = "Pipe diameters used (mm)" ; //give it a label
  10.        : toggle {                        //define toggle
  11.               key = "tog1" ;                                //give it a name
  12.               label = "150" ;                        //give it a label
  13.                                                 
  14.               }                                        
  16.             : toggle {                        //define toggle
  17.               key = "tog2" ;                                //give it a name
  18.               label = "200" ;                //give it a label
  19.             }                                
  21.             : toggle {                        //define toggle
  22.               key = "tog3" ;                                //give it a name
  23.               label = "225" ;                        //give it a label
  24.               }                                        
  26.             : toggle {                        //define toggle
  27.               key = "tog4" ;                                //give it a name
  28.               label = "250" ;                        //give it a label
  29.             }                                        
  31.             : toggle {                        //define toggle
  32.               key = "tog5" ;                                //give it a name
  33.               label = "300" ;                       //give it a label
  34.               }                                        
  36.             : toggle {                        //define toggle
  37.               key = "tog6" ;                                //give it a name
  38.               label = "375" ;                        //give it a label
  39.             }
  41.             : toggle {                        //define toggle
  42.               key = "tog7" ;                                //give it a name
  43.               label = "450" ;                        //give it a label
  44.             }
  46.             : toggle {                        //define toggle
  47.               key = "tog8" ;                                //give it a name
  48.               label = "600" ;                       //give it a label
  49.             }
  51.        }                                        //end toggle collumn
  53.        : boxed_column {                        //define boxed column
  54.        label = "Variables" ;
  55.        
  56.        
  58.             : edit_box {                                //edit box
  59.        key = "eb1" ;
  60.        label = "Manning 'n'" ;                   
  61.        edit_width = 10 ;                                
  62.        
  63.        
  64.        }
  66.        : edit_box {                                //edit box
  67.        key = "eb2" ;                                   
  68.        label = "% part full" ;
  69.        edit_width = 10 ;                
  70.        }
  72.       }                                        //end boxed collumn
  73.       
  75.      
  76.        }                                
  78.     ok_cancel ;                                //predifined OK/Cancel 
  79.    
  80.                                            //end text
  81. (defun C:samp16 ()
  82.  (setq lst
  83.       '(
  84.            ((150.0 120.0) (150.0 110.0) (150.0 100.0))
  85.            ((200.0 150.0) (200.0 140.0) (200.0 120.0))
  86.            ((225.0 180.0) (225.0 170.0) (225.0 160.0) (225.0 150.0))
  87.            ((250.0 200.0) (250.0 180.0) (225.0 170.0) (225.0 160.0))
  88.            ((300.0 300.0) (300.0 280.0) (300.0 260.0) (300.0 250.0) (300.0 240.0) (300.0 220.0) (300.0 200.0) (300.0 180.0))
  89.            ((375.0 350.0) (375.0 320.0) (375.0 300.0) (375.0 280.0))
  90.            ((450.0 400.0) (450.0 370.0) (450.0 350.0) (450.0 320.0))
  91.            ((600.0 500.0) (600.0 450.0) (600.0 420.0) (600.0 400.0))
  92.        )
  93.    )
  94.  
  95.   (cond
  96.     (  (<= (setq dcl_id% (load_dialog "samp11.dcl")) 0)
  97.        (princ "\nNo File"))     
  98.     (  (not(new_dialog "samp11" dcl_id%))
  99.        (princ "\nError"))      
  100.     (  (action_tile "eb1" "(update_manning (setq man $value))")
  101.        (action_tile "eb2" "(update_percentage (setq pf $value))")
  102.        (my_init_dialog)
  103.        (setq bit 1 cnt 1 rtn 0)
  104.            (repeat (length lst)
  105.                (action_tile
  106.                    (strcat "tog" (itoa cnt))
  107.                    (strcat "(setq rtn (boole (+ 4 (* 3 (atoi $value))) " (itoa bit) " rtn))")
  108.                )
  109.                (setq bit (lsh bit 1) cnt (1+ cnt))
  110.            )
  111.            (if (= 1 (start_dialog))
  112.                  (setq bit 1
  113.                      lst
  114.                    (vl-remove-if
  115.                       '(lambda ( x / flg ) (setq flg (zerop (logand bit rtn)) bit (lsh bit 1)) flg)
  116.                        lst
  117.                    )                  
  118.        
  119.     
  120.         )
  121.            )
  122.         )       
  123.     )
  124.       
  125.   (if (< 0 dcl_Id%) (unload_dialog dcl_Id%))
  126.  (setq dl lst)
  127.  (setq dl(apply 'append dl))  
  128.  
  129. )
  130. (princ)
  131. (defun my_init_dialog ()      
  132.      (setq man "0.013"
  133.            pf  "50")
  134.      (set_tile "eb1" man)      
  135.      (set_tile "eb2" pf)
  136.     
  137.    )
  138. (defun update_manning (val)
  139.      (cond
  140. ((equal (distof val) nil) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  141.            ((<= (distof val) 0.009) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  142.            ((>= (distof val) 0.018) (progn (set_tile "eb1" "invalid") (setq man "invalid")))
  143.            (t (progn (set_tile "eb1" val) (setq man val)))))
  144. (defun update_percentage (val)
  145.      (cond
  146. ((equal (distof val) nil) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  147.            ((< (distof val) 50) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  148.            ((> (distof val) 66) (progn (set_tile "eb2" "invalid") (setq pf "invalid")))
  149.            (t (progn (set_tile "eb2" val) (setq pf val)))))
  152. )

 
现在它工作正常。我为这个错误道歉。
 
芦荟
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-14 18:29 , Processed in 1.349201 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表