[求助]：如何得到用户输入的是数值还是坐标？

啵浪鼓

(defun c:rec (/)
(prompt "矩形绘制")
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n指定起始位置: "))
(setq pt2 (getcorner pt1 "\n指定另一点或输入数值: "))
(if (= nil pt2)
(progn
(setq ptt (list (+ (nth 0 pt1) 1) (+ (nth 1 pt1) 1)))
(setq pt2 (getreal "\n输入长"))
(setq wid (getreal "\输入宽"))
(command "rectang" pt1 "dimension" pt2 wid ptt)
   )
(command "rectang" pt1 pt2)
)
(princ)
)

上面程序，如果pt2用户输入了一个点，即执行矩形绘制
(command "rectang" pt1 pt2)

如果pt2用户没有输入点而是输入数值，即执行
(command "rectang" pt1 "dimension" pt2 wid ptt)

程序要判断的是如果是点，就有x与y轴的坐标系，而如果用户输入的是数值就不存在x与y轴的坐标系

请问该如何分析pt2为数值还是坐标系，这句程序该怎么写？

xyp1964

试试这个：

xyp1964

效果：

啵浪鼓

斑竹的程序不好用，虽然直观但不便捷，至少多了几次点鼠标的时间及输入数值的时间

我上面的程序只需点2下鼠标即可得到任意一个矩形，如果需将矩形长宽定位，就得第1下鼠及输入2个数值。
上前上面的程序不能分辨在(setq pt2 (getcorner pt1 "\n指定另一点或输入数值: "))这段上分辨是点位还是用户输入的数值，所以得按一下空格键得到nil才能得到
(if (= nil pt2)
(progn
(setq ptt (list (+ (nth 0 pt1) 1) (+ (nth 1 pt1) 1)))
(setq pt2 (getreal "\n输入长"))
(setq wid (getreal "\输入宽"))
(command "rectang" pt1 "dimension" pt2 wid ptt)
)
这段程序

斑竹，你帮我写一下该怎么分辨用户输入的是数值还是点位好吧！

ll_j

看看[B]“Autolisp编程心得”[/B]中的例三。

梦断江南

"帮我写一下该怎么分辨用户输入的是数值还是点位好吧！ "
(setq pt1 (getpoint "\n指定起始位置或输入数值/<退出>: "))
(cond
  ((listp pt1) (print "\n点位"))
  ((and (= 'STR (type pt1))(distof pt1))(print "\n数值"))
  ((Not pt1)(exit))
)
....

xyp1964

程序本身运行没问题，就是不够人性化。
更改如下：
[php]
(load "xyp_lib")
;|
加载通用函数
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
如果已在acad.lsp中添加了(load "xyp_lib")，可以直接运行下面的程序。
|;

(defun c:rec ()
  (cmdla0)
  (prompt "\n矩形绘制 : ")
  (while (not (setq pt1 (getpoint "\n起始点: "))))
  (setq pt2 (getcorner pt1 "\n对角点<回车输入矩形长宽值> : "))
  (if (= pt2 nil)
    (setq no1 (ureal 1 "" "\n矩形长" no1)
          no2 (ureal 1 "" "\n矩形宽" no2)
          pt2 (list (+ (car pt1) no1) (+ (cadr pt1) no2))
    )
  )
  (command "rectang" pt1 pt2)
  (cmdla0)
)
[/php]

啵浪鼓

梦断江南斑竹完全误解了我的意思。
xpy1964斑竹在指定pt2点位时还是要求输入一个空回车，跟我的程序没二致，搞得比我程序还复杂了。。。

程序只是输入3个步骤就行了：
pt1时：鼠标任意点一下
pt2时：鼠标点一下就得到一个任意矩形；如果输入数值比如10，就以此10为长，再进入下面的程序时只需输入一个宽即可得到一个用户定意长宽的矩形
(setq wid (getreal "\输入宽"))

梦断江南

其实你在用ｒｅｃｔａｎｇｌｅ的时候
响应第二点有两种方法
１．直接点取第二点
２，输入"@x,y" 如@10,5.
即可得到你要的结果．虽然第二种方法多了＠和，号，但是也少了一次回车．


我上面只是给你一种思路．内容不重要，可用于ｐｔ１，也可用于ｐｔ２，在这里还是着重研究方法是思路．

2. 
   
3. (defun c:tt ()
   
4.   (prompt "矩形绘制")
   
5.   (while(SETQ PT1(GETPOINT "\n指定起始位置或输入数值/<退出>: "))
   
6.   (initget 128)
   
7.   (setq pt2(GETCORNER PT1 "\n对角点位或矩形宽/<退出>:"))
   
8.   (command "rectang" pt1)
   
9.   (cond
   
10.     ((not pt2)(command)(exit))
    
11.     ((listp pt2)(command pt2))
    
12.     ((distof pt2)(command (strcat "@" pt2 "," (rtos(getdist "\n矩形高:")))))
    
13.   ))(princ)
    
14. )

<br /> (defun c:tt ()<br />   (prompt "矩形绘制")<br />   (while(SETQ PT1(GETPOINT "\n指定起始位置或输入数值/<退出>: "))<br />   (initget 128)<br />   (setq pt2(GETCORNER PT1 "\n对角点位或矩形宽/<退出>:"))<br />   (command "rectang" pt1)<br />   (cond<br />     ((not pt2)(command)(exit))<br />     ((listp pt2)(command pt2))<br />     ((distof pt2)(command (strcat "@" pt2 "," (rtos(getdist "\n矩形高:")))))<br />   ))(princ)<br /> )

xyp1964

[php]
偶觉得回车（右键）只是右手中指的一个小小动作，应该最快捷、方便！

对(setq pt2 (getcorner pt1 "\n指定另一点或输入数值: "))直接输入数值，其结果相当于：
(setq pt2 (polar pt1 (angle pt1 鼠标位置点) 输入的数值))！
如果鼠标仍在pt1位置会报错！

因此1楼的想法估计不能实现。
[/php]

啵浪鼓

梦断江南斑竹的程序正是我想要的，非常好，感激ing...

能不能将此程序更完美些，输入空回车时或是按Esc键时能平静退出，出现下面的2种退出总是感觉不爽~！
; error: quit / exit abort
; error: Function cancelled

梦断江南

论坛上已经有很多出错处理方面的实例，为了完善再写就没有意思了．你应该参考一下这些程序，然后自己写一个．才会有进步
搜索＂出错处理＂试试看．

ttthhh_hb

最初由 梦断江南 发布
[B]"帮我写一下该怎么分辨用户输入的是数值还是点位好吧！ "
(setq pt1 (getpoint "\n指定起始位置或输入数值/<退出>: "))
(cond
  ((listp pt1) (print "\n点位"))
  ((and (= 'STR (type pt1))(distof pt1))(pri... [/B]

好！谢谢！我找好久了。

啵浪鼓

谢谢2位斑竹。。。

我要进步，我要进步，我要进步，我要进步，我要进步，我要进步，我要进步，我要进步。。。