(rtos 变量 2 1)转字符号串，求教

marting

行雲 发表于 2017-2-9 17:43

太长了，
我就说下getdist和getstring输入时候的区别，

在LISP和AUTOCAD交互的时候，在命令行，一般情况下，输入空格是当回车处理，
如果你写：

(if (/= ""  (setq str (getstgring "\n输入内容：")))
   (progn
       ;;(不是回车或者空格输入才进入这）
   )
)

而getdist 空格回车是nil

(if (setq str (getdist"\n输入内容："))
   (progn
       ;;(不是回车才进入这）
   )
)

如果有时候，你用getstring函数，不希望空格是回车，希望得到空格的值，你就要用 (getstring T "\n输入内容:") , 加个T参数， 这个时候你输入空格就不当回车了，代码就应该：

(if  (setq str (getstgring T "\n输入内容："))
   (progn
       ;;(不是回车输入才进入这）
   )
)

这个时候str的内容有可能是  "abc  def"

你自己可以在命令行分别输入
(getstring "\n输入字符")
(getstring t "\n输入字符")

看看表现是什么

行雲

marting 发表于 2017-2-9 17:58

(getstring t "\n输入字符")必须回车键才能生效，空格键信号完全完被忽视，，

我现面临问题是。想用getdist，这个方便，，

(setq cda (getdist "\n长度A:"))
(setq cdb (getdist "\n长度B:"))
(setq cdc (getdist "\n长度C:"))

(setq p0 (getpoint))
(setq gt 1)

(if(/= cda "")
  (progn
。。。。。。。。。。。。。。。。。。。
  (setq gt (1+ gt))
  )
)

(if(/= cdb "")
  (progn
。。。。。。。。。。。。。。。。。。。
  (setq gt (1+ gt))
  )
)

(if(/= cdc "")
  (progn
。。。。。。。。。。。。。。。。。。。
  (setq gt (1+ gt))
  )
)

现实应用中，有时，只须输入 (getdist t "\n长度A:")即算完成作业，剩下的B C以空格键跳过，这时希望代码中的(if(/= cdb "")和(if(/= cdc "")不动作。就像使用getstring产生如图中右侧那效果，请问有什么方式可以实现？

iLisp

数值还是用getdist，空时用默认值

newer

行雲 发表于 2017-2-9 20:46

多看别人的代码，多看开源函数库的代码，每日插件里面的插件的代码，理解它们。别去改别人的程序，尤其逻辑不清楚的。多自己重新写，是新写，不是改。
培养你自己的风格。

行雲

楼上二位高人，提供点切实可用的解决方案，可否？急用，关于32楼的想法，以及变量从外部文件获取数值的语句，谢谢二位

ll_j

行雲 发表于 2017-2-9 20:46

我算服你了，有这样问的时间，把书系统地看一遍多好。
关于多分支的问题，在另一个帖子里，很多人都给你讲解了，现在还是绕在这里，难道你和cond有仇？非用if不可。
关于getstring的t参数，这是一个特殊设置，保留输入带空格的词句，当然空格就不能作为回车使用。你试着想过没有，为什么要用getstring，用getstring时需要这个t参数么？
永远不要说急用，急用要找专门的地方花钱买，这里是讨论区，可以给你建议，但不能保证你什么。
以我对你的情况判断，你当务之急应该是看书，先系统地、粗略地了解了大多数函数，再写程序会更好一些。