[LISP程序]：求助,为什么同样的程序为什么运行有时候画的图形纵坐标不一样？非常简单

capskov

(defun c:dc()
;拾取起点
(setq p1 (getpoint "输入涵洞入水口的位置"))
(setq p2 (getpoint "输入涵洞出水口的位置"))
(command "ucs" "o" p1)                        ;设置ucs坐标原点以便后面的绘图
(command "ucs" "z" p1 p2 )                    ;设置usc坐标x轴的方向
(command "pline" "-1,0.5" p2 "")
(command "rectang" "-2,1" "0,-1")
)
按理说图形应该一样，就是　方向和起点随鼠标两点连线方向定．但是为什么有的时候图形就变形了？

不知道原因,请高手指点．

非常感谢

guohq

(defun c:dc()
;拾取起点
(setq p1 (getpoint "输入涵洞入水口的位置"))
(setq p2 (getpoint "输入涵洞出水口的位置"))
(command "ucs" "o" p1) ;设置ucs坐标原点以便后面的绘图
(command "ucs" "z" p1 p2 ) ;设置usc坐标x轴的方向

  
(command "pline" "-1,0.5" (list (distance p1 p2) 0) "")  ;搞好相对位置关系就行了，此p2非彼p2了

  
(command "rectang" "-2,1" "0,-1")
)

Underway

最好一并关掉捕捉

zml84

这个可是楼主所要？
[PHP]
(defun C:DC (/ P1 P2)
    (and (setq P1 (getpoint "\n输入涵洞入水口的位置: "))
         (setq P2 (getpoint P1 "\n输入涵洞出水口的位置: "))
         (progn
             (command "_.ucs" "n" 3 P1 P2 "") ;_设置坐标系
             (command "_.pline"
                      "non"
                      '(-1 0)
                      "non"
                      (list (distance P1 P2) 0)
                      ""
             )
             (command "_.rectang" "non" '(-2 1) "non" '(0 -1))
             (command "_.ucs" "p") ;_恢复坐标系
         )
    )
    (princ)
)
[/PHP]