[求助]：俺也LISP编程～！：P

k-777

俺们初学LISP，第一次LISP编程，请大哥大姐们指点一二：
1.为何画出来的图形，有的不是矩形，而是梯形呢？请指点一二

2. 
   
3.   [FONT=courier new]
   
4. ;;; 画矩形
   
5. (defun c:sw (/ oce)
   
6.   (graphscr)
   
7.   (setq oce (getvar "cmdech0"))
   
8.   (setvar "cmdecho" 0)
   
9.   (setq p1 (getpoint "\n点击第一点"))
   
10.   (setq p3 (getcorner p1 "\n点击第二点"))
    
11.   (setq ox (car p1))
    
12.   (setq oy (cadr p1))
    
13. 
    
14.   (setq lx (nth 0 p3))
    
15.   (setq ly (nth 1 p3))
    
16. 
    
17.   (setq p2 (list lx oy 0))
    
18.   (setq p4 (list ox ly 0))
    
19. 
    
20.   (command "line" p1 p2 p3 p4 p1 "")
    
21.   (setvar "cmdcho" oce)
    
22. )
    
23. 
    
24. 
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 画矩形<br /> (defun c:sw (/ oce)<br />   (graphscr)<br />   (setq oce (getvar "cmdech0"))<br />   (setvar "cmdecho" 0)<br />   (setq p1 (getpoint "\n点击第一点"))<br />   (setq p3 (getcorner p1 "\n点击第二点"))<br />   (setq ox (car p1))<br />   (setq oy (cadr p1))<br /> <br />   (setq lx (nth 0 p3))<br />   (setq ly (nth 1 p3))<br /> <br />   (setq p2 (list lx oy 0))<br />   (setq p4 (list ox ly 0))<br /> <br />   (command "line" p1 p2 p3 p4 p1 "")<br />   (setvar "cmdcho" oce)<br /> )<br /> <br /> <br />   [/FONT]<br />

cy956

粘在一起了,估计是捕捉问题.

xyp1964

取消捕捉：(setvar "osmode" 0)
矩形直接用：“RECTANG”
[php](defun c:sw (/ os p1 p2)
  (setq        os (getvar "osmode")
        p1 (getpoint "\n点击第一点")
        p2 (getcorner p1 "\n点击第二点")
  )
  (setvar "osmode" 0)
  (command "RECTANG" p1 p2)
  (setvar "osmode" os)
  (princ)
)[/php]

sdwy19691229

点捕捉的问题，设置为不捕捉就可以了。

winabcd

哈哈，你那个图中，不对的那一点是因为你用了点捕捉，捕捉到点附近的那条直线的中点了。
不信你再靠近另一直线取点试试看。