[编程申请]：{申请}用AUTOLISP编写画斜矩形

tcydx

CAD中的矩形命令只能画和屏幕UCS同向的矩形，请帮忙编写一个画斜矩形的LISP，思路如下：
提示用户输入点P1、P2、P3
判断：如果P1、P2、P3共线则提示“输入错误！”
否则画一个矩形，该矩形以线P1P2为一边，另一边长为点P3到线段P1P2的距离，方向为P3点的一侧。
请各位高手指教。

xyp1964

[php]
;;;三点画斜向长方形：1、2点确定方向，3点确定对角线长度
(defun c:test ()
  (command "ucs" "")
  (setq        pt1  (getpoint "\n第一点 : ")
        pt2  (getpoint pt1 "\n第二点 : ")
        ang  (rad2ang (angle pt1 pt2))
  )
  (command "ucs" "n" pt1)
  (command "ucs" "z" ang)
  (command "rectang" (list 0 0) pause)
  (command "ucs" "")
  (princ)
)
[/php]

li_seagull

能不能改为斜中心距形

xyp1964

最初由 li_seagull 发布
[B]能不能改为斜中心距形 [/B]

附图解释清楚！