简单的代码，作用不一定小！

尘缘一生

说明：
      设计人员主要是加快设计效率的，对于镜像命令，我们许多时候，是要求镜像过去，最好还沾在鼠标上，移动到合适位置，下面提供4段小代码，由于不会GIF拷屏，有兴趣下载实验下：自己20年前的写的，一直使用。

      希望得到点明经币。可以不可以？

   第一段：
          水平镜像，原来部分删除，镜像部分跟随鼠标，移动目标位置定位！
   第二段：
          垂直镜像，原来部分删除，镜像部分跟随鼠标，移动目标位置定位！
   第三段：
           水平镜像，原来部分保留，镜像部分跟随鼠标，移动目标位置定位！
   第四段：
            垂直镜像，原来部分保留，镜像部分跟随鼠标，移动目标位置定位！

       记得关闭“捕捉”与“正交”，程序内没写！

        我为什么构造了4个命令，因为设计人员，做的目的是唯一的，比如：你作水平镜像的时候，难道你还同时作垂直镜像不成，就追求最少的击键，假如合并一起，当你选择镜像时，还得多一个选择键了。

2. ;;--------------------------------------------------------------------------
   
3. 
   
4. (defun C:H-MR-MV (/ s pt2 pt3)
   
5. (command)
   
6. (setq s(ssget))
   
7. (setq pt2 (nth 1(grread 5)))
   
8. (setq pt3 (polar pt2 (* 0.5 pi) 2.5))
   
9. (command "MIRROR" s "" PT2 pt3 "Y")
   
10. (command "MOVE" s "" PT3)
    
11. )
    
12. 
    
13. ;;---------------------------------------------------------------------------
    
14. 
    
15. (defun C:V-MR-MV (/ s pt2 pt3)
    
16. (command)
    
17. (setq s(ssget))
    
18. (setq pt2 (nth 1(grread 5)))
    
19. (setq pt3 (polar pt2 0 2.5))
    
20. (command "MIRROR" s "" PT2 pt3 "Y")
    
21. (command "MOVE" s "" PT3)
    
22. )
    
23. 
    
24. ;;------------------------------------------------------------------------------
    
25. 
    
26. (defun C:H-MR-MV-N (/ s l n s1 pt2 pt3)
    
27. (command)
    
28. (setq s(ssget))
    
29. (setq pt2 (nth 1(grread 5)))
    
30. (setq pt3 (polar pt2 (* 0.5 pi) 2.5))
    
31. (setq s1(ssget "X"))
    
32. (command "MIRROR" s "" PT2 pt3 "N")
    
33. (setq s(ssget "X"))
    
34. (setq l(- (sslength s1) 1))
    
35. (setq n 0)
    
36. (while (<= n l)
    
37.     (setq nam (ssname s1 n))
    
38.     (if (= (ssmemb nam s) nam)
    
39.         (setq s(ssdel nam s))
    
40.      )   
    
41.      (setq n (+ n 1))
    
42. )     
    
43. (command "MOVE" s "" PT3)
    
44. )
    
45. 
    
46. ;;------------------------------------------------------------------------------
    
47. 
    
48. (defun C:V-MR-MV-N (/ s l n s1 pt2 pt3)
    
49. (command)
    
50. (setq s(ssget))
    
51. (setq pt2 (nth 1(grread 5)))
    
52. (setq pt3 (polar pt2 0 2.5))
    
53. (setq s1(ssget "X"))
    
54. (command "MIRROR" s "" PT2 pt3 "N")
    
55. (setq s(ssget "X"))
    
56. (setq l(- (sslength s1) 1))
    
57. (setq n 0)
    
58. (while (<= n l)
    
59.     (setq nam (ssname s1 n))
    
60.     (if (= (ssmemb nam s) nam)
    
61.         (setq s(ssdel nam s))
    
62.      )   
    
63.      (setq n (+ n 1))
    
64. )     
    
65. (command "MOVE" s "" PT3)
    
66. )
    
67. ;;--------------------------------------------------------------------------------

;;--------------------------------------------------------------------------<br /> <br /> (defun C:H-MR-MV (/ s pt2 pt3)<br /> (command)<br /> (setq s(ssget))<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 (* 0.5 pi) 2.5))<br /> (command "MIRROR" s "" PT2 pt3 "Y")<br /> (command "MOVE" s "" PT3)<br /> )<br /> <br /> ;;---------------------------------------------------------------------------<br /> <br /> (defun C:V-MR-MV (/ s pt2 pt3)<br /> (command)<br /> (setq s(ssget))<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 0 2.5))<br /> (command "MIRROR" s "" PT2 pt3 "Y")<br /> (command "MOVE" s "" PT3)<br /> )<br /> <br /> ;;------------------------------------------------------------------------------<br /> <br /> (defun C:H-MR-MV-N (/ s l n s1 pt2 pt3)<br /> (command)<br /> (setq s(ssget))<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 (* 0.5 pi) 2.5))<br /> (setq s1(ssget "X"))<br /> (command "MIRROR" s "" PT2 pt3 "N")<br /> (setq s(ssget "X"))<br /> (setq l(- (sslength s1) 1))<br /> (setq n 0)<br /> (while (<= n l)<br />     (setq nam (ssname s1 n))<br />     (if (= (ssmemb nam s) nam)<br />         (setq s(ssdel nam s))<br />      )   <br />      (setq n (+ n 1))<br /> )     <br /> (command "MOVE" s "" PT3)<br /> )<br /> <br /> ;;------------------------------------------------------------------------------<br /> <br /> (defun C:V-MR-MV-N (/ s l n s1 pt2 pt3)<br /> (command)<br /> (setq s(ssget))<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 0 2.5))<br /> (setq s1(ssget "X"))<br /> (command "MIRROR" s "" PT2 pt3 "N")<br /> (setq s(ssget "X"))<br /> (setq l(- (sslength s1) 1))<br /> (setq n 0)<br /> (while (<= n l)<br />     (setq nam (ssname s1 n))<br />     (if (= (ssmemb nam s) nam)<br />         (setq s(ssdel nam s))<br />      )   <br />      (setq n (+ n 1))<br /> )     <br /> (command "MOVE" s "" PT3)<br /> )<br /> ;;--------------------------------------------------------------------------------

截图下我CAD的这4个命令按钮图标：



补充录屏：第一次用，不理想：

664571221

怎么不能捕捉呀  第一次镜像的时候不能选择捕捉点吗  你移动时候的捕捉点

happy336

谢谢分享，学习了

langjs

我知道你缺明经币了

twsyzx

啥介绍都没啊

spp_wall

要B才能看 ？？？？？？？

429014673

还是做下GIF，看下优势在哪里

bai2000

能不能加个镜像点？

emk

自己20年前的写的

杜阳

你还是发源代码吗   给你明经币就行了  为了好好学习 呵呵

依然低调

2. (defun C:V-MR-MV (/ s pt2 pt3)
   
3.   (command)  ;请问这句存在的作用
   
4.   (setq s (ssget))
   
5.   (setq pt2 (nth 1 (grread 5)))
   
6.   (setq pt3 (polar pt2 0 2.5))
   
7.   (command "MIRROR" s "" PT2 pt3 "Y")
   
8.   (command "MOVE" s "" PT3)
   
9. )

(defun C:V-MR-MV (/ s pt2 pt3)<br />   (command)  ;请问这句存在的作用<br />   (setq s (ssget))<br />   (setq pt2 (nth 1 (grread 5)))<br />   (setq pt3 (polar pt2 0 2.5))<br />   (command "MIRROR" s "" PT2 pt3 "Y")<br />   (command "MOVE" s "" PT3)<br /> )

依然低调

依然低调 发表于 2014-6-16 17:14

不是必须存在的是吧？谢了!