[LISP程序]：分享：键盘输入坐标不用按逗号

xiaoyanyan

最近看到一个程序，感觉好用，拿出来与大家分享。（本程序由郭晨汉化，主页http://cadking.yeah.net）

　在画给定坐标点的直线时，需要通过键盘输入坐标值
。这样的情况下当然是利用右边的数字键盘输入较为方便
。但若直接使用AutoCAD的Line命令画直线，在x和y两个
坐标值之间需要输入一个逗号“，”作为分隔，而数字键
盘区又没有该逗号，所以仍然不方便。

　　本文的AutoLISP画直线程序只要求用户输入坐标值，
而由程序自动调用Line命令画出直线，因此用户不用离开
数字键盘区就能完成工作。程序如下：

(defun c:qckline ()
(graphscr)
(setq x1(getreal"Enter x: "))
(setq y1(getreal"Enter y: "))
(setq pt1(list x1 y1))
(setq n 1)
(setq x2(getreal"Enter x: "))
(setq y2(getreal"Enter y: "))
(setq pt2(list x2 y2))
(command "pline" pt1 pt2 "")
(while n
(setq x3(getreal"Enter x: "))
(setq y3(getreal"Enter y: "))
(setq pt3(list x3 y3))
(command "pline" pt2 pt3 "")
(setq pt2 pt3)
)
)

zhouxj

谢谢
我试一下

myfreemind

不错！！好程序！不过我一般都是做成展点文件！

xiaoyanyan

但是大哥，你做的展点文件的具体格式还没告诉我呢？
一个好好的程序放在那里不能用，就好像看着一盘山珍海鲜，却无法吃到口，
那种感觉……

myfreemind

我问你的问题你还没有回答我呢？ 算了，不管你有没有装vb，先寄给你再说，如果你没有装，就到http://beercz.yeah.net下载运行库！

xxming

楼主，你能否编一个可用PLINE命令能连续输入座标因为我经常要用到这个命令

841594

这样画出来pline线是一段一段的，不太方便。
我把程序小改了一下：

2. 
   
3. (defun c:qckline ( / x1 y1 )
   
4.   (graphscr)
   
5.   (setq x1 (getreal "Enter x: "))
   
6.   (setq y1 (getreal "Enter y: "))
   
7.   (command "pline" (list x1 y1))
   
8.   (while (and
   
9.            (setq x1 (getreal "Enter x: "))
   
10.            (setq y1 (getreal "Enter y: "))
    
11.          )
    
12.     (command (list x1 y1))
    
13.   )
    
14.   (command "")
    
15.   (princ)
    
16. )

<br /> (defun c:qckline ( / x1 y1 )<br />   (graphscr)<br />   (setq x1 (getreal "Enter x: "))<br />   (setq y1 (getreal "Enter y: "))<br />   (command "pline" (list x1 y1))<br />   (while (and<br />            (setq x1 (getreal "Enter x: "))<br />            (setq y1 (getreal "Enter y: "))<br />          )<br />     (command (list x1 y1))<br />   )<br />   (command "")<br />   (princ)<br /> )

陌生人

841594,不介意我修改一下吧？

2. 
   
3. (defun c:qckline (/ x1 y1)
   
4.   (graphscr)
   
5.   (command "pline")
   
6.   (while (and
   
7.            (setq x1 (getreal "Enter x: "))
   
8.            (setq y1 (getreal "Enter y: "))
   
9.          )
   
10.     (command (list x1 y1))
    
11.   )
    
12.   (command "")
    
13.   (princ)
    
14. )
    

<br /> (defun c:qckline (/ x1 y1)<br />   (graphscr)<br />   (command "pline")<br />   (while (and<br />            (setq x1 (getreal "Enter x: "))<br />            (setq y1 (getreal "Enter y: "))<br />          )<br />     (command (list x1 y1))<br />   )<br />   (command "")<br />   (princ)<br /> )<br />

sxlxf

好是好,但不能输入Z坐标