[其他]：天气这么热，大家来休息一下，动动脑筋吧

popxi

谁能用CAD算出从2到208共有多少个2？？？
哈哈，大家试一试哦*-*1

yi.gao

51个。
方法：列出这些数，用查找替换命令一换……
剩下的就不必说了吧？

nt_cgh

好方法

popxi

怎么列呀，总不见的一个一个写吧？
要把所用命令和步骤都写出来，看看谁的最简便。

yi.gao

谁一个一个写？用ET里面的tcount自动文本数字命令不就行了？

zbweixkj

直接用excel的查找就可以统计出来了。

yi.gao

条条大路通罗马，但是人家只划道cad

HLB_Konan

最初由 yi.gao 发布
[B]51个。
方法：列出这些数，用查找替换命令一换……
剩下的就不必说了吧？ [/B]

长老 我试了下是50个 ：）

yi.gao

不好意思，我算成了2-209。

highflybird

不知道我是不是画蛇添足还是狗尾续貂，我在这里提供一段lisp代码，也许初学者能从中学点什么。

2. 
   
3. ;;;主程序
   
4. (defun c:test (/ n0 n1 n2 ju tt)
   
5.   ;;数据输入
   
6. 
   
7.   (initget 4)                          ;不为负数
   
8.   (setq n0 (getreal "\n请输入第一个数<2>: "))
   
9.   (if (null n0)                        ;如果空输入
   
10.     (setq n0 2)                        ;第一个数为2
    
11.   )                                 
    
12.   (setq n0 (fix n0))                  
    
13.   
    
14.   (initget 6)                          ;不为负数,不为0
    
15.   (setq n1 (getreal "\n请输入最后的数<208>: "))
    
16.   (if (null n1)                        ;如果空输入
    
17.     (setq n1 208)                      ;最后的数为208
    
18.   )
    
19.   (setq n1 (fix n1))
    
20.   
    
21.   (initget 4)                          ;不为负数
    
22.   (setq ju (getint "\n请输入要计数的<2>: "))
    
23.   (if (null ju)                        ;如果空输入
    
24.     (setq ju 2)                        ;计数的数为2
    
25.   )
    
26. 
    
27.   ;;开始计算和打印
    
28.   (if (and (< n0 n1)                   ;如果第一个数小于最后的数
    
29.            (< ju 10)                   ;而且计数的数小于10
    
30.       )                                
    
31.     (progn
    
32.       (setq n2 (count n0 n1 ju))       ;开始统计
    
33.       (setq tt (strcat "\n从"
    
34.                        (itoa n0)
    
35.                        "到"
    
36.                        (itoa n1)
    
37.                        "共有"
    
38.                        (itoa n2)
    
39.                        "个"
    
40.                        (itoa ju)
    
41.                        "."
    
42.                )                       ;连接字符串
    
43.       )                                ;end _setq
    
44.       (princ tt)                       ;打印结果
    
45.     )                                  ;end _progn
    
46.     (princ "\n输入有误!")              ;打印出错信息
    
47.   )                                    ;end _if
    
48.   (princ)                              ;静默退出程序
    
49. )                                      ;end _defun
    
50. ;;;计数函数
    
51. (defun count (n0 n1 judge / i j k str asc)
    
52.   (setq k 0)                           ;计数器归零
    
53.   (setq i n0)                          ;从第一个数数起
    
54.   (setq j (+ judge 48))                ;要计数的数的ACSII码
    
55.   (repeat (1+ (- n1 n0))               ;开始循环
    
56.     (setq str (itoa i))                ;转化成字符串
    
57.     (setq asc (vl-string->list str))   ;ACSII码表
    
58.     (foreach n asc                     ;对表的每一个数字
    
59.       (if (= n j)                      ;如果是要计数的数字
    
60.         (setq k (1+ k))                ;计数器加1
    
61.       )                                ;end _if
    
62.     )                                  ;end _foreach
    
63.     (setq i (1+ i))                    ;向前数数
    
64.   )                                    ;end _repeat
    
65.   k                                    ;返回计数器的值
    
66. )                                      ;end _defun
    

<br /> ;;;主程序<br /> (defun c:test (/ n0 n1 n2 ju tt)<br />   ;;数据输入<br /> <br />   (initget 4)                          ;不为负数<br />   (setq n0 (getreal "\n请输入第一个数<2>: "))<br />   (if (null n0)                        ;如果空输入<br />     (setq n0 2)                        ;第一个数为2<br />   )                                 <br />   (setq n0 (fix n0))                   <br />   <br />   (initget 6)                          ;不为负数,不为0<br />   (setq n1 (getreal "\n请输入最后的数<208>: "))<br />   (if (null n1)                        ;如果空输入<br />     (setq n1 208)                      ;最后的数为208<br />   )<br />   (setq n1 (fix n1))<br />   <br />   (initget 4)                          ;不为负数<br />   (setq ju (getint "\n请输入要计数的<2>: "))<br />   (if (null ju)                        ;如果空输入<br />     (setq ju 2)                        ;计数的数为2<br />   )<br /> <br />   ;;开始计算和打印<br />   (if (and (< n0 n1)                   ;如果第一个数小于最后的数<br />            (< ju 10)                   ;而且计数的数小于10<br />       )                                <br />     (progn<br />       (setq n2 (count n0 n1 ju))       ;开始统计<br />       (setq tt (strcat "\n从"<br />                        (itoa n0)<br />                        "到"<br />                        (itoa n1)<br />                        "共有"<br />                        (itoa n2)<br />                        "个"<br />                        (itoa ju)<br />                        "."<br />                )                       ;连接字符串<br />       )                                ;end _setq<br />       (princ tt)                       ;打印结果<br />     )                                  ;end _progn<br />     (princ "\n输入有误!")              ;打印出错信息<br />   )                                    ;end _if<br />   (princ)                              ;静默退出程序<br /> )                                      ;end _defun<br /> ;;;计数函数<br /> (defun count (n0 n1 judge / i j k str asc)<br />   (setq k 0)                           ;计数器归零<br />   (setq i n0)                          ;从第一个数数起<br />   (setq j (+ judge 48))                ;要计数的数的ACSII码<br />   (repeat (1+ (- n1 n0))               ;开始循环<br />     (setq str (itoa i))                ;转化成字符串<br />     (setq asc (vl-string->list str))   ;ACSII码表<br />     (foreach n asc                     ;对表的每一个数字<br />       (if (= n j)                      ;如果是要计数的数字<br />         (setq k (1+ k))                ;计数器加1<br />       )                                ;end _if<br />     )                                  ;end _foreach<br />     (setq i (1+ i))                    ;向前数数<br />   )                                    ;end _repeat<br />   k                                    ;返回计数器的值<br /> )                                      ;end _defun<br />

编译成vlx文件，看看速度上的差异。

yi.gao

绝对是添上两大龙爪，扩展一下就可以尝试着计算航天飞机轨道了。恭喜你！

zxdcad

用EXCEL替换2－208的含2的字，假设用2换成A，共得到50个结果！

民工.

斑竹英明，不过
“谁能用CAD算出。。。。。。”