[求助]：能否用edit-box控件中输入的多个数进行画图

wzg

比如：我想画几根轴线，间距为6+3*5+6米
在edit-box 中输入6 3*5 6，能否用lisp实现

netbee

完全可以！
看看我的这个
http://www.xdcad.net/forum/showthread.php?s=&threadid=166187

xiaping

最初由 netbee 发布
[B]完全可以！
看看我的这个
http://www.xdcad.net/forum/showthread.php?s=&threadid=166187 [/B]

必须要有你的LIB库文件支持才行吧？

ll_j

最初由 wzg 发布
[B]比如：我想画几根轴线，间距为6+3*5+6米
在edit-box 中输入6 3*5 6，能否用lisp实现 [/B]

edit-box输出的是字符串，应该可以包含空格，难点是将3*5解释成3个5，这需要自己在编程是处理。

netbee

其实你只要有天正软件5.0就知道了，其中的LISP程序是开源的，里面就有关于这方面的函数。

2. 
   
3. ;;---------------------------
   
4.   ;;键入文本框定义函数
   
5.   (defun Do_EnterData (/ str s listtmp tf)
   
6.     (setq str          (get_tile "EnterData")
   
7.           tf          nil
   
8.           listtmp
   
9.                   (mapcar
   
10.                     '(lambda (s)
    
11.                        (if (/= "" s)
    
12.                          (if (and (not (= (substr str 1 1) "*"))
    
13.                                   (not (= (substr str 1 1) "."))
    
14.                              ) ;_ 结束and
    
15. 
    
16.                            (cond
    
17.                              ((and (= (Substrnumber s "*") 1)
    
18.                                    (or (= (type (read (car (StrParse s "*")))) 'INT)
    
19.                                        (= (type (read (car (StrParse s "*")))) 'REAL)
    
20.                                    ) ;_ 结束or
    
21.                                    (= (type (read (cadr (StrParse s "*")))) 'INT)
    
22.                               ) ;_ 结束and
    
23.                               s
    
24. 
    
25.                              )
    
26.                              ((and (= (Substrnumber s "*") 0)
    
27.                                    (or (= (type (read s)) 'INT)
    
28.                                        (= (type (read s)) 'REAL)
    
29.                                    ) ;_ 结束or
    
30.                               ) ;_ 结束and
    
31.                               (strcat s "*1")
    
32.                              )
    
33.                              (t (setq tf T) s)
    
34.                            ) ;_ 结束cond
    
35.                          ) ;_ 结束if
    
36.                        ) ;_ 结束if
    
37.                      ) ;_ 结束lambda
    
38.                     (StrParse str " ")
    
39.                   ) ;_ 结束mapcar
    
40. 
    
41.     ) ;_ 结束setq
    
42.     (if        tf
    
43.       (progn
    
44.         (mode_tile "EnterData" 2)
    
45.         (set_tile "error" "数据错误!--本编辑框只能是数字!!!")
    
46.       ) ;_ 结束progn
    
47.       (progn (set_tile "error" "")
    
48.              (setq Common_List (append listtmp '("")))
    
49.              (Dcl_up)
    
50.       ) ;_ 结束progn
    
51.     ) ;_ 结束if
    
52. 
    
53.   ) ;_ 结束defun
    
54.   ;;-------------------------
    
55.   ;;保存列表函数
    
56.   (defun save_list ()
    
57.     (cond ((= show_type 0) (setq UpKJ_list Common_List))
    
58.           ((= show_type 1) (setq LowKJ_list Common_List))
    
59.           ((= show_type 2) (setq LeftJS_list Common_List))
    
60.           ((= show_type 3) (setq RightJS_list Common_List))
    
61.     ) ;_ 结束cond
    
62.   ) ;_ 结束defun
    
63.   ;;-----------------
    
64.   ;;字符串表转换至数字表函数
    
65.   (DEFUN Do_resolve (l / l1 n i x s)
    
66.     (FOREACH x (REVERSE l)
    
67. ;;;      (IF (/=
    
68.       (SETQ s (ATOF x))
    
69. ;;;      0.0)
    
70. ;;;        (progn
    
71.       (IF (SETQ N (VL-STRING-POSITION (ASCII "*") x))
    
72.         (SETQ I (ATOI (SUBSTR x (+ 2 n))))
    
73.         (SETQ I 1)
    
74.       ) ;_ 结束if
    
75.       (REPEAT i (SETQ l1 (CONS S l1)))
    
76. ;;;      )
    
77. ;;;      ) ;_ 结束if
    
78.     ) ;_ 结束foreach
    
79.     l1
    
80.   ) ;_ 结束defun
    
81.   ;;-------------------------
    

<br /> ;;---------------------------<br />   ;;键入文本框定义函数<br />   (defun Do_EnterData (/ str s listtmp tf)<br />     (setq str          (get_tile "EnterData")<br />           tf          nil<br />           listtmp<br />                   (mapcar<br />                     '(lambda (s)<br />                        (if (/= "" s)<br />                          (if (and (not (= (substr str 1 1) "*"))<br />                                   (not (= (substr str 1 1) "."))<br />                              ) ;_ 结束and<br /> <br />                            (cond<br />                              ((and (= (Substrnumber s "*") 1)<br />                                    (or (= (type (read (car (StrParse s "*")))) 'INT)<br />                                        (= (type (read (car (StrParse s "*")))) 'REAL)<br />                                    ) ;_ 结束or<br />                                    (= (type (read (cadr (StrParse s "*")))) 'INT)<br />                               ) ;_ 结束and<br />                               s<br /> <br />                              )<br />                              ((and (= (Substrnumber s "*") 0)<br />                                    (or (= (type (read s)) 'INT)<br />                                        (= (type (read s)) 'REAL)<br />                                    ) ;_ 结束or<br />                               ) ;_ 结束and<br />                               (strcat s "*1")<br />                              )<br />                              (t (setq tf T) s)<br />                            ) ;_ 结束cond<br />                          ) ;_ 结束if<br />                        ) ;_ 结束if<br />                      ) ;_ 结束lambda<br />                     (StrParse str " ")<br />                   ) ;_ 结束mapcar<br /> <br />     ) ;_ 结束setq<br />     (if        tf<br />       (progn<br />         (mode_tile "EnterData" 2)<br />         (set_tile "error" "数据错误!--本编辑框只能是数字!!!")<br />       ) ;_ 结束progn<br />       (progn (set_tile "error" "")<br />              (setq Common_List (append listtmp '("")))<br />              (Dcl_up)<br />       ) ;_ 结束progn<br />     ) ;_ 结束if<br /> <br />   ) ;_ 结束defun<br />   ;;-------------------------<br />   ;;保存列表函数<br />   (defun save_list ()<br />     (cond ((= show_type 0) (setq UpKJ_list Common_List))<br />           ((= show_type 1) (setq LowKJ_list Common_List))<br />           ((= show_type 2) (setq LeftJS_list Common_List))<br />           ((= show_type 3) (setq RightJS_list Common_List))<br />     ) ;_ 结束cond<br />   ) ;_ 结束defun<br />   ;;-----------------<br />   ;;字符串表转换至数字表函数<br />   (DEFUN Do_resolve (l / l1 n i x s)<br />     (FOREACH x (REVERSE l)<br /> ;;;      (IF (/=<br />       (SETQ s (ATOF x))<br /> ;;;      0.0)<br /> ;;;        (progn<br />       (IF (SETQ N (VL-STRING-POSITION (ASCII "*") x))<br />         (SETQ I (ATOI (SUBSTR x (+ 2 n))))<br />         (SETQ I 1)<br />       ) ;_ 结束if<br />       (REPEAT i (SETQ l1 (CONS S l1)))<br /> ;;;      )<br /> ;;;      ) ;_ 结束if<br />     ) ;_ 结束foreach<br />     l1<br />   ) ;_ 结束defun<br />   ;;-------------------------<br />

你肯定没有仔细读程序!
只是我将天正的个数在前面改为个数在后面了
如 2500*3  理解为 2500间距的尺寸有3个

你要想作这方面的编程，最好仔细读读我从天正里修改来的轴线绘制程序，最好是用CAD中的Vlisp下中断来跟踪。