;;;功  能：三点绘制平行四边形
;;;命令名：TT
;;;日  期：zml84 于 2007-07-20
(defun C:TT (/ PT1 PT2 PT3 PT4 D ANG)
    (if    (and (setq PT1 (getpoint "\n第一点:"))
         (setq PT2 (getpoint PT1 " >> 第二点:"))
         (setq PT3 (getpoint PT2 " >>> 第三点:"))
    )
    (progn
        (setq D   (distance PT2 PT1)
          ANG (angle PT2 PT1)
          PT4 (polar PT3 ANG D)
        )
        (command "_.pline" "non" PT1 "non" PT2 "non" PT3 "non" PT4
             "c")
    )
    )
    (princ)
) ;_ 结束defun