[编程交流] 矩形旋转

(defun rec ()
(setq pt1 (getpoint "\npick cnr point"))
(setq pt2 (getpoint "\npick next cnr point"))
)
(rec)
(setq ang (angle pt1 pt2))
(rec)
(command "rectang" pt1 pt2)
(command "ro" "L" "" pt1 ang)
(princ)

(defun c:Test (/ *error* rtd _P p1 p2 e pts a lst ang)
 ;;--- Tharwat 23. April. 2013 ---;;
 (defun *error* (x) (princ "\n *Cancel*"))
 (defun rtd (a) (/ (* a 180.0) pi))
 (defun _P (ent)
   (mapcar 'cdr
           (vl-remove-if-not
             '(lambda (i) (eq (car i) 10))
             (entget ent)
           )
   )
 )
 (if (and (setq p1 (getpoint "\n Specify first corner :"))
          (setq p2 (getcorner "\n Specify next corner :" p1))
     )
   (progn
     (command "_.rectang" "_none" p1 "_none" p2)
     (setq e (entlast))
     (setq pts (_P e))
     (setq a (angle (car pts) (cadr pts)))
     (command "_.rotate"
              e
              ""
              (mapcar '(lambda (j k) (/ (+ j k) 2.))
                      (car pts)
                      (caddr pts)
              )
              pause
     )
     (setq lst (_P (entlast)))
     (setq ang (- (angle (car lst) (cadr lst)) a))
   )
 )
 (if ang
   (princ
     (strcat "\n The rotation angle is : " (rtos (rtd ang) 2 1))
   )
 )
 (princ)
)
(vl-load-com)

(defun c:myrectangle ( / p1 p2 p3 p4 d)
 (if
   (and
     (setq p1 (getpoint "\nFirst corner: "))
     (setq p2 (getpoint p1 "\nOther corner: "))
     )
   (progn
     (setq d  (mapcar '- p2 p1)
           p3 (mapcar '+ p1 (list (car d) 0.0))
           p4 (mapcar '+ p1 (list 0.0 (cadr d)))
           )
     (command "_PLINE" "_non" p1 "_non" p3 "_non" p2 "_non" p4 "_c")
     )
   )
 (princ)
 )

(defun c:ang1 ()
(setvar 'angbase (getvar 'userr1))
)
; also need 
(defun c:setang1 ()
(setvar 'userr1 (Getreal "\n enter angle")) ; i would use pick object but for example here KISS
)