明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1746|回复: 6

[基础] [求助]请问字母循环怎么写了

[复制链接]
发表于 2010-6-10 16:53:00 | 显示全部楼层 |阅读模式

请问,在程序中如果数字循环是:

   (setq i 1)
   (while (<= i 10)

    ………………
   (setq i (+ i 1))
  
  )

字母循环怎么写了,别笑我问的问题简单啊

发表于 2010-6-10 18:52:00 | 显示全部楼层

用ASCII这个函数

 楼主| 发表于 2010-6-11 11:16:00 | 显示全部楼层

  (setq v "A");

  (setq i 1)
  (while (<= i 26)

    …………
    (command "text"  v);
    (setq v(chr(1+(ascii v))));

    (setq v(itoa(1+(atoi v))))
    (setq i (+ i 1))
  )

怎么从第二个开始就又是1了?

发表于 2010-6-11 11:32:00 | 显示全部楼层

不是用atoi,用Chr

 楼主| 发表于 2010-6-11 11:51:00 | 显示全部楼层

刚换了,怎么到B那儿就有问题了。

; 错误: 参数类型错误: numberp: "B"

 

 楼主| 发表于 2010-6-11 15:24:00 | 显示全部楼层
已经OK了,谢谢关注
发表于 2010-6-12 02:37:00 | 显示全部楼层

标准答案应该是用ASCII ,Chr函数,学院式解答。

但建筑常用的字母,i、o、z不准用,写程序挺麻烦的。

其实你也可以直接定义一个表,大小写加起来才(26-3)*2个,按顺序历遍。

'("A""B""C"......),

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-10-2 03:21 , Processed in 0.194875 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表