[分享]：快速左右、上下旋转

07506802312

(defun C:MRY( / a p1 p2 p3)
   (bo)(bo1)(bo2)(bo3)
   (vmon)
   (setq olderr  *error*
         s       nil
         *error* slerr)                 ;save error code

   (setq ocmd (getvar "CMDECHO"))       ;get ECHO
   (setvar "CMDECHO" 0)                 ;set ECHO off
     (command "zoom" "e" )
     (command "zoom" "0.9x")
     (command "layer"  "on"   "0"  "")
   (if (= (getvar "syscodepage") "ANSI_950")
      (prompt "\n叫匡拒?砰癸㈢禸描甮\n")
      (prompt "\nSelect entities to do Point_mirror\n")
   )
   (setq a (ssget "i"))
   (if (= a nil)
    (setq a (ssget))
   )

         (command "osnap" "midp")
   (if (/= a nil)
    (progn
     (if (= (getvar "syscodepage") "ANSI_950")
        (setq p1 (getpoint "\n砞﹚癸㈢禸描甮ぇいみ翴.."))
        (setq p1 (getpoint "\nPosition cursor to set mirror center.."))
     )
        (command "osnap" "none")
     (setq p2 (list (nth 0 p1) (+ 1 (nth 1 p1)) (nth 2 p1)))
     (setq p3 (list (+ 1 (nth 0 p1)) (nth 1 p1) (nth 2 p1)))
     (command "mirror" a "" p1 p2 "n")
     (command "zoom" "e" )
     (command "zoom" "0.9x")
    )
    (progn
     (if (= (getvar "syscodepage") "ANSI_950")
        (prompt "\n癸ぃ癬 ⊿Τ匡拒?ヴ??砰 !!.\n")
        (prompt "\nNo entity be selected !!.\n")
     )
    )
   )

   (setq S nil a nil)                   ; Free selection-set if any
   (setvar "CMDECHO" ocmd)              ; Restore saved mode
   (setq *error* olderr)                ; Restore old *error* handler
   (princ)
)
;****************************************************************
(defun C:MRp( / a p1 p2 p3)
   (bo)(bo1)(bo2)(bo3)
   (vmon)
   (setq olderr  *error*
         s       nil
         *error* slerr)                 ;save error code

   (setq ocmd (getvar "CMDECHO"))       ;get ECHO
   (setvar "CMDECHO" 0)                 ;set ECHO off
     (command "zoom" "e" )
     (command "zoom" "0.8x")
     (command "layer"  "on"   "0"  "")
   (if (= (getvar "syscodepage") "ANSI_950")
      (prompt "\n叫匡拒?砰?描甮のは钩\n")
      (prompt "\nSelect entity to do point mirror\n")
   )
   (setq a (ssget "i"))
   (if (= a nil)
    (setq a (ssget))
   )
         (command "osnap" "midp")

   (if (/= a nil)
    (progn
     (if (= (getvar "syscodepage") "ANSI_950")
        (setq p1 (getpoint "\n砞﹚描甮のは钩ぇいみ翴.."))
        (setq p1 (getpoint "\nPosition cursor to set mirror center.."))
     )
    (command "osnap" "none")
     (setq p2 (list (nth 0 p1) (+ 1 (nth 1 p1)) (nth 2 p1)))
     (setq p3 (list (+ 1 (nth 0 p1)) (nth 1 p1) (nth 2 p1)))
     (command "mirror" a "" p1 p2 "y")
     (setq a (ssget "p"))
     (command "mirror" a "" p1 p2 "n")
     (command "mirror" a "" p1 p3 "y")
     (command "zoom" "e" )
     (command "zoom" "0.8x")
    )
    (progn
     (if (= (getvar "syscodepage") "ANSI_950")
        (prompt "\n癸ぃ癬 ⊿Τ匡拒?ヴ??砰 !!.\n")
        (prompt "\nNo entity be selected !!.\n")
     )
    )
   )

   (setq S nil a nil)                  ; Free selection-set if any
   (setvar "CMDECHO" ocmd)              ; Restore saved mode
   (setq *error* olderr)                ; Restore old *error* handler
   (princ)
)

雨箭风刀

好像mmmm做过一个，根据鼠标象限位置，动态翻转，那个程序不错。你搜搜看

liuyj

是841594的。

雨箭风刀

是么，我记不太清楚了。不好意思