请问getdist的输入能否循环？

行雲

一个突发想法，能否用一行简单代码，循环驱动getdist要求人工输入数值？
如：这种形式(getdist "\n长度: ")。这时，人工点取两点测量长度，getdist记下该数值，循环代码将它编列为A长度，(command "text"，，负责输出。
然后。循环代码第二次驱动getdist，要求人工输入数值，编列为B长度，(command "text"，，输出
循环可以不限次数，直至用户决定不再进行，结束程序。
想请求各位老大，帮忙写几行简单代码，谢谢大家

iLisp

(while (setq d (getdist "\nLength: "))
  (command ".text" pause ...)
  (while (= (getvar "cmdnames") "TEXT") (command pause))
)

行雲

iLisp 发表于 2017-1-31 19:56

你好，我拼凑了一些代码，请你帮我看看，只是一种想法，还未知可不可行，目前cad报: 语法错误
(defun c:tt ()
(while
    (if (numberp xh)
        (setq xh (1+ xh))
        (setq xh 65)
    )
    (setq xhh (chr xh)) ;编号，用于为(getstring cd)的长度值命名A B C D。。。
    (setq cd (strcat "\n长度xhh"))
    (setq cdd (getdist cd)) ;这里，编号与具体长度值的结合没成功
    (princ "cdd")
);这里，结束工点取两点测量长度，但好像没法记住(getdist cd)依次输入并编码的长度值

(prompt "文本点:")
(setq p0 (getpoint))
(setq n 1)  ;这里，才开始输出，不知道这样行不行
(setq nn (itoa n))
(setq nnn (strcat cdd nn))
(command "text" (polar p0 (* pi 1.5) 6) 3 "0" nnn)
(setq (+ n 1))
)

iLisp

搞不清你要标注什么，贴个图示意

行雲

iLisp 发表于 2017-2-1 09:48

你好，目的是想随机测量一些矩形或其它形态的图形边长

行雲

或者，不知这样可不可行
(setq cda (getdist "\n长度A: "))
(setq cdb (getdist "\n长度C: "))
(setq cdv (getdist "\n长度D: "))
，，，，
，，，，
，，，，

总计有26行(getdist "\n
在输出端(command "text"也有有26行与之一一对应，各自输出(setq cda，，(setq cdb，，

但是，具体应用有时我只需要输入三次就够了，
剩下的23行
(getdist "\n长度E: ")
(getdist "\n长度F: ")
(getdist "\n长度G: ")
，，，，

请问，有无什么方法省略，跳过它们，以空格键信息停止剩下的23行(getdist  继续参与程序运行？

st788796

你单独点那么多次和后面标注什么关系?