4分之1镜像

功夫佬

自己想不到思路怎么去写，4分之1镜像这个功能，是否用MIRROR命令，怎么现实。希望大家给个思路！怎么运用下面的程序改写成4分之1镜像这个功能。

1. ;快速旋转4/1;
   
2. (defun c:yi_4rc(/ ss pt old)
   
3.   (setq errold *error* *error* err)
   
4.   (setq old (getvar "cmdecho"))
   
5.   (setvar "cmdecho" 0)
   
6.   (prompt "\n请选取需旋转对象: ")
   
7.   (setq
   
8.       ss   (ssget)
   
9.       pt   (getpoint "\n请指定旋转基点:  ")
   
10.    )
    
11.   (command "array" ss "" "P" pt "4" "" "")
    
12.   ;(progn
    
13.   ;(command "rotate" ss "" pt "c" "90"))
    
14.   ;(progn
    
15.   ;(command "rotate" ss "" pt  "c" "180"))
    
16.   ;(progn
    
17.   ;(command "rotate" ss "" pt "c" "270"))
    
18.   ;(command  "redraw")   
    
19.    (setvar "cmdecho" old)
    
20.   ( princ))

;快速旋转4/1;<br /> (defun c:yi_4rc(/ ss pt old)<br />   (setq errold *error* *error* err)<br />   (setq old (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (prompt "\n请选取需旋转对象: ")<br />   (setq<br />       ss   (ssget)<br />       pt   (getpoint "\n请指定旋转基点:  ")<br />    )<br />   (command "array" ss "" "P" pt "4" "" "")<br />   ;(progn<br />   ;(command "rotate" ss "" pt "c" "90"))<br />   ;(progn<br />   ;(command "rotate" ss "" pt  "c" "180"))<br />   ;(progn<br />   ;(command "rotate" ss "" pt "c" "270"))<br />   ;(command  "redraw")   <br />    (setvar "cmdecho" old)<br />   ( princ))

zmzk

小工具，大用途！我支持你

Andyhon

2. 
   
3. (defun c:yi_4rc(/ ss pt old)
   
4.    (setq errold *error* *error* err)
   
5.    (setq old (getvar "cmdecho"))
   
6.    (setvar "cmdecho" 0)
   
7. 
   
8.    (prompt "\n请选取需????像: ")
   
9.    (setq ;; ss (ssget)
   
10.             ee (car (entsel))
    
11.             pt (getpoint "\n请指定对称基点:  ")
    
12.    )
    
13.    ;; (SetVar "OsMode" 0)
    
14.    (command "Mirror" ee "" "none" pt "none" (mapcar '+ pt '(0 1)) "N")
    
15.    (command "Mirror" ee (entlast) "" "none" pt "none" (mapcar '+ pt '(1 0)) "N")
    
16. 
    
17.    (setvar "cmdecho" old)
    
18.    ( princ)
    
19. )
    

<br /> (defun c:yi_4rc(/ ss pt old)<br />    (setq errold *error* *error* err)<br />    (setq old (getvar "cmdecho"))<br />    (setvar "cmdecho" 0)<br /> <br />    (prompt "\n请选取需????像: ")<br />    (setq ;; ss (ssget)<br />             ee (car (entsel))<br />             pt (getpoint "\n请指定对称基点:  ")<br />    )<br />    ;; (SetVar "OsMode" 0)<br />    (command "Mirror" ee "" "none" pt "none" (mapcar '+ pt '(0 1)) "N")<br />    (command "Mirror" ee (entlast) "" "none" pt "none" (mapcar '+ pt '(1 0)) "N")<br /> <br />    (setvar "cmdecho" old)<br />    ( princ)<br /> )<br />

功夫佬

Andyhon 发表于 2012-5-9 20:12

能不能框选的呢？

sz721

还真是巧，下午刚淘来的，飞诗的程序。（4份镜像）不过，没有函数定义不能使用。还在明经搜了一下，整理了一下。应该是楼主要的。

2. 
   
3. (defun fsxm-newenlist (en / lst n ss)
   
4.   (if en
   
5.     (while (setq en (entnext en))
   
6.       (setq lst (cons en lst))
   
7.     )
   
8.     (setq lst (fsxm-ss->enlist (ssget "X")))
   
9.   )
   
10.   lst
    
11. )
    
12. (defun fsxm-silenceexit        (/ *error*)
    
13.   (t (setq *error* strcat))
    
14. )
    
15. (defun c:fs4 (/ el pt ss ss2)
    
16.   (or (setq ss (ssget)) (fsxm-silenceexit))
    
17.   (setq pt (getpoint "\n选择中心点<0,0>："))
    
18.   (if (null pt) (setq pt '(0 0)))
    
19.   (setq el (entlast))
    
20.   (command ".MIRROR"
    
21.     ss
    
22.     ""
    
23.     "non"
    
24.     pt
    
25.     "non"
    
26.     (mapcar '+ pt '(0 1))
    
27.     "N"
    
28.   )
    
29.   (setq ss2 (ssadd))
    
30.   (foreach e (fsxm-newenlist el) (ssadd e ss2))
    
31.   (command ".MIRROR"
    
32.     ss
    
33.     ss2
    
34.     ""
    
35.     "non"
    
36.     pt
    
37.     "non"
    
38.     (mapcar '+ pt '(1 0))
    
39.     "N"
    
40.   )
    
41. (princ)
    
42. )

<br /> (defun fsxm-newenlist (en / lst n ss)<br />   (if en<br />     (while (setq en (entnext en))<br />       (setq lst (cons en lst))<br />     )<br />     (setq lst (fsxm-ss->enlist (ssget "X")))<br />   )<br />   lst<br /> )<br /> (defun fsxm-silenceexit        (/ *error*)<br />   (t (setq *error* strcat))<br /> )<br /> (defun c:fs4 (/ el pt ss ss2)<br />   (or (setq ss (ssget)) (fsxm-silenceexit))<br />   (setq pt (getpoint "\n选择中心点<0,0>："))<br />   (if (null pt) (setq pt '(0 0)))<br />   (setq el (entlast))<br />   (command ".MIRROR"<br />     ss<br />     ""<br />     "non"<br />     pt<br />     "non"<br />     (mapcar '+ pt '(0 1))<br />     "N"<br />   )<br />   (setq ss2 (ssadd))<br />   (foreach e (fsxm-newenlist el) (ssadd e ss2))<br />   (command ".MIRROR"<br />     ss<br />     ss2<br />     ""<br />     "non"<br />     pt<br />     "non"<br />     (mapcar '+ pt '(1 0))<br />     "N"<br />   )<br /> (princ)<br /> )

sz721

这里有个八向复制的程序（应该是8分之1镜像），复制后可以选择8个中的一个。但不是源码，希望有高手能根据4份镜像修改写出源码。

dz-2011

几句代码就可写出来了，首先点位复制，旋转-镜像-镜像!

CTC

sz721 发表于 2012-5-9 20:36
这里有个八向复制的程序（应该是8分之1镜像），复制后可以选择8个中的一个。但不是源码，希望有高手能根据4 ...

这个好呀,要的就是这个....可以选择要哪个对象的

梦醒才知原是梦

学习~~~~~~~

梦醒才知原是梦

sz721 发表于 2012-5-9 20:36
这里有个八向复制的程序（应该是8分之1镜像），复制后可以选择8个中的一个。但不是源码，希望有高手能根据4 ...

请问这个命令是什么？？？？看不清

梦醒才知原是梦

sz721 发表于 2012-5-9 20:36
这里有个八向复制的程序（应该是8分之1镜像），复制后可以选择8个中的一个。但不是源码，希望有高手能根据4 ...

为什么我会出现多出了一叠~~~~