如何同时实现用鼠标点取或键盘输入数字的方法确定第二点

szx025

lisp程序中如何同时实现用鼠标点取或用键盘输入数字的方法确定第二点，用户可以根据需要自己选择

菜卷鱼

试一试getdist

edata

2. (defun c:tt(/ p1 p2)
   
3.   (setq p1(getpoint "\naa"))
   
4.   (setq p2(getpoint p1 "\nccc"))
   
5.   (command "line" "non" p1 "non" p2)
   
6.   )

(defun c:tt(/ p1 p2)<br />   (setq p1(getpoint "\naa"))<br />   (setq p2(getpoint p1 "\nccc"))<br />   (command "line" "non" p1 "non" p2)<br />   )

chg

你可以好好看看这个函数的用法-INITGET，这个函数决定你下面的get函数所能获取的值，然后再用一个判断语句来识别你输入的是点坐标还是字符或者是数字。
(initget 128)
(setq pt (getpoint "指定第一点："))
(if (= (type pt) 'STR)
  (.......)
  )

llsheng_73

chg 发表于 2014-1-4 10:55
你可以好好看看这个函数的用法-INITGET，这个函数决定你下面的get函数所能获取的值，然后再用一个判断语句来 ...

(initget 128)
(setq pt (getpoint "指定第一点："))
(type pt)
好象我不管怎么输入最后都是LIST

llsheng_73

(GETPOINT)本来就允许你鼠标点取或者键盘输入

ll_j

llsheng_73 发表于 2014-1-4 11:51
(initget 128)
(setq pt (getpoint "指定第一点："))
(type pt)

4楼所说的没错，我在“AutoLISP编程心得”中举过这样的例子。

命令: (initget 128)
nil
命令: (type (getpoint))
4
STR


不过楼主的问题似乎只是getpoint函数还使用的不熟而已。