;;;任意角度绘制矩形，已知方向、边长
;;;命令名：3p-juxing1

;;;日 期：Zo Roo 于 2012-10-27

(defun C:3p-juxing1(/ PT1 PT2 PT3 PT4 H ANG ANG2 TEST TMP)
(prompt "BY Zo Roo 武赤公路 命令：3p-juxing1")
    (while (setq PT1 (getpoint "\n第一点:"))
(if (setq PT2 (getpoint PT1 " \n 指定方向:"))
     (progn
   (setq ANG (angle PT1 PT2)
         ANG0 (angle PT1 PT2)
         ANG (+ ANG (* 0.5 pi))
       
)
   (princ " \n 指定矩形所在的方向:")
;;;;;;;
(setq PT3 (getpoint " \n 指定矩形所在的方向:"))
(setq pt01 pt1)
 
;;计算出虚拟点位
(setq PT4 (polar PT3 ANG 100)
      PT4 (inters PT1 PT2 PT3 PT4 NIL)
       )
;;;;;;
 (setq H  (distance PT4 PT3)
      ANG2 (angle PT3 PT4)
       )     
;;;2012-10-27  武赤公路;
;;
(setq dist0 (getreal"\n请输入边长1: ")
      dist2 (getreal"\n请输入边长2: ")
      );修改部分-矩形宽
(setq PT02 (polar PT01 ANG0 dist0))
(setq PT03 (polar PT02 (- ANG2  pi) dist2));修改部分-对角点
(setq PT04 (polar PT01 (- ANG2  pi) dist2));修改部分
(command "_.pline"   "non"
       PT01   "non"   PT02
       "non"   PT03   "non"
       PT04   "c"
      )
(prompt "矩形绘制完毕！！")
;;;;;;;;;
     (command "_.regen")
    
     )
)
    )

    (princ)
) ;_ 结束defun