如何实现支持获取坐标点、关键字、数字的用户交互？

革天明

请问如何实现上述的用户交互？支持鼠标左键选择一个点，支持输入关键字D，也支持输入数字1000
选择点时，返回的是点
输入关键字D后，修改的为默认数值1000，可改为其它值
去接输入数字，返回的是上一次选择点，在当前鼠标方向上的输入距离的点，例如上一次的坐标为pt{x,y,z},当前鼠标中心点相对于pt点的角度为300度，输入的数字为600，则计算出pt1(polar pt 300 600)（这里的计算不正确，只是举例为上个点的相对点），返回为pt1点

LoveArx

initget
加 getpoint

革天明

LoveArx 发表于 2018-4-16 11:45
initget
加 getpoint

成功了，谢谢！while这里是重点，一个是initget只生效一次，所以要和getpoint写在一起，另外initget返回nil，所以要用or
代码如下：
(defun C:55 ()
  (setq zhujv 1000)
  ;;(setq ds (getdist "\n输入距离或 [参照(S)]: "))
  (while (or
           (initget "d")
           (setq
             ds
              (getpoint
                lastpoint
                (strcat "\n选择坐标点或 [输入株距(d)<" (rtos zhujv) ">]: ")
              )
           )
         )
    (cond
      ;;选择参照实体并处理
      ((= ds "d") (setq zhujv (getreal "\n请输入株距:")))
      ;;空输入退出，可在前面initget中禁止
      ((= ds nil) (princ "\n输入为空"))
      ;;(t nil)
      (t
       (progn
         (if (null lastpoint)
           (setq lastpoint ds)
           (progn (command "line" lastpoint ds "") (setq lastpoint ds))
         )

       )
      )

    )
  )
)

SHUNDocker

好东西，学学使用！！！