(求助)关于CAD原始的镜像功能的想法，求路过的大神看能不能实现

999999

CAD原始的镜像命令是以光标垂直或水平以对称的形式镜像（以光标指定的两点为中线对称），请问大神能不能改造成以光标指定的两点(挨着两点完成镜像)

cq4920

999999 发表于 2020-10-23 09:17
大神，您知道函数的链接哪吗

稍微整理了一下 原理不难

如果 选择 可以不分先后
再加个预览就更beautiful啦
有兴趣就再加个判断，如果不输入插入点，直接按空格，就原地翻转 ，如果输入A或者其他就垂直翻转，

2. (defun c:tt(/ SS WK P1 P2 P3 P4 PT1 SS2)
   
3. (MC:be1)
   
4.   (setq ss (ssget))
   
5.         (mc:Wk ss)
   
6.         (setq wk (entlast)) ;获取选择集外框图元名
   
7.          (progn
   
8.                         (vl-load-com)
   
9.                         (vla-getboundingbox (vlax-ename->vla-object wk) 'minpoint 'maxpoint)
   
10.                         (setq p3 (vlax-safearray->list maxpoint)
    
11.                                 p1 (vlax-safearray->list minpoint))
    
12.                         (setq p2 (list (car p3) (cadr p1)))
    
13.                         (setq p4 (list (car p1) (cadr p3)))
    
14.       (COMMAND "_.erase"  wk "")
    
15.                      )   
    
16. (command "_.mirror" ss "" P2  P3 "n" "")            
    
17. (setq ss2 (last_ent WK));;论坛里的一个函数
    
18.    (setvar "OSMODE" os)
    
19. ( setq pt1 (getpoint"\n指定放置位置"))
    
20. (command "_.MOVE" ss2 "" p2 pt1)
    
21. (MC:be11)      
    
22. )
    
23. 
    
24. ;;39外框
    
25. (defun mc:wk (ss / oldos oldla  lst n obj minx miny maxx  maxy pt1
    
26.          pt2 pt3 pt4)
    
27.   (setq oldos (getvar "osmode"))
    
28.   (setq oldla (getvar "clayer"))
    
29.   (setvar "cmdecho" 0)
    
30.   (setvar "osmode" 0)
    
31.   (repeat (setq n (sslength ss))
    
32.     (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
    
33.     (vla-getboundingbox obj 'x 'y)
    
34.     (setq lst (cons (vlax-safearray->list y)
    
35.         (cons (vlax-safearray->list x) lst)
    
36.         )
    
37.     )
    
38.   )
    
39.   (setq  minx (car (vl-sort (mapcar 'car lst) '<))
    
40.   miny (car (vl-sort (mapcar 'cadr lst) '<))
    
41.   maxx (car (vl-sort (mapcar 'car lst) '>))
    
42.   maxy (car (vl-sort (mapcar 'cadr lst) '>))
    
43.   )
    
44.   (setq pt1 (list minx miny))
    
45.   (setq pt2 (list maxx miny))
    
46.   (setq pt3 (list maxx maxy))
    
47.   (setq pt4 (list minx maxy))
    
48.         (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 10 pt1) (cons 10 pt2) (cons 10 pt3) (cons 10 pt4)))
    
49.   (setvar "osmode" oldos)
    
50.   (setvar "clayer" oldla)
    
51.   (setvar "cmdecho" 1)
    
52.   (princ)
    
53. )
    
54. ;;40最后生产出的图元
    
55. (defun last_ent (en / ss)
    
56.         (if en
    
57.                 (progn
    
58.                         (setq ss (ssadd))
    
59.                         (while (setq en (entnext en))
    
60.                                 (if (not (member (cdr (assoc 0 (entget en)))
    
61.                                                                          '("ATTRIB" "VERTEX" "SEQEND")
    
62.                                                                  )
    
63.                                                 )
    
64.                                         (ssadd en ss)
    
65.                                 );if
    
66.                         );while
    
67.                         (if (zerop (sslength ss)) (setq ss nil))
    
68.                         ss
    
69.                 );progn
    
70.                 (ssget "_x")
    
71.         );if
    
72. )
    
73. 
    
74. 
    
75. ;准备：控制回显和输入，捕捉，当前颜色
    
76. (defun MC:be1()
    
77.         (setq cm (getvar "cmdecho")
    
78.                 os (getvar "osmode"))
    
79.         (setvar "CMDECHO" 0)
    
80.         (setvar "OSMODE" 0)
    
81.         (command "color" "bylayer")
    
82.         (command "_undo" "be"))        
    
83. 
    
84. (defun Mc:be11 ()
    
85.         (setvar "orthomode" 0)
    
86.   (command "_undo" "e")
    
87.   (setvar "OSMODE" os)
    
88.         (setvar "cmdecho" cm))
    

(defun c:tt(/ SS WK P1 P2 P3 P4 PT1 SS2)<br /> (MC:be1)<br />   (setq ss (ssget))<br />         (mc:Wk ss)<br />         (setq wk (entlast)) ;获取选择集外框图元名<br />          (progn<br />                         (vl-load-com)<br />                         (vla-getboundingbox (vlax-ename->vla-object wk) 'minpoint 'maxpoint)<br />                         (setq p3 (vlax-safearray->list maxpoint)<br />                                 p1 (vlax-safearray->list minpoint))<br />                         (setq p2 (list (car p3) (cadr p1)))<br />                         (setq p4 (list (car p1) (cadr p3)))<br />       (COMMAND "_.erase"  wk "")<br />                      )    <br /> (command "_.mirror" ss "" P2  P3 "n" "")             <br /> (setq ss2 (last_ent WK));;论坛里的一个函数<br />    (setvar "OSMODE" os)<br /> ( setq pt1 (getpoint"\n指定放置位置"))<br /> (command "_.MOVE" ss2 "" p2 pt1)<br /> (MC:be11)       <br /> )<br /> <br /> ;;39外框<br /> (defun mc:wk (ss / oldos oldla  lst n obj minx miny maxx  maxy pt1<br />          pt2 pt3 pt4)<br />   (setq oldos (getvar "osmode"))<br />   (setq oldla (getvar "clayer"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (repeat (setq n (sslength ss))<br />     (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />     (vla-getboundingbox obj 'x 'y)<br />     (setq lst (cons (vlax-safearray->list y)<br />         (cons (vlax-safearray->list x) lst)<br />         )<br />     )<br />   )<br />   (setq  minx (car (vl-sort (mapcar 'car lst) '<))<br />   miny (car (vl-sort (mapcar 'cadr lst) '<))<br />   maxx (car (vl-sort (mapcar 'car lst) '>))<br />   maxy (car (vl-sort (mapcar 'cadr lst) '>))<br />   )<br />   (setq pt1 (list minx miny))<br />   (setq pt2 (list maxx miny))<br />   (setq pt3 (list maxx maxy))<br />   (setq pt4 (list minx maxy))<br />         (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 10 pt1) (cons 10 pt2) (cons 10 pt3) (cons 10 pt4)))<br />   (setvar "osmode" oldos)<br />   (setvar "clayer" oldla)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> ;;40最后生产出的图元<br /> (defun last_ent (en / ss)<br />         (if en<br />                 (progn<br />                         (setq ss (ssadd))<br />                         (while (setq en (entnext en))<br />                                 (if (not (member (cdr (assoc 0 (entget en)))<br />                                                                          '("ATTRIB" "VERTEX" "SEQEND")<br />                                                                  )<br />                                                 )<br />                                         (ssadd en ss)<br />                                 );if<br />                         );while<br />                         (if (zerop (sslength ss)) (setq ss nil))<br />                         ss<br />                 );progn<br />                 (ssget "_x")<br />         );if<br /> )<br /> <br /> <br /> ;准备：控制回显和输入，捕捉，当前颜色<br /> (defun MC:be1()<br />         (setq cm (getvar "cmdecho")<br />                 os (getvar "osmode"))<br />         (setvar "CMDECHO" 0)<br />         (setvar "OSMODE" 0)<br />         (command "color" "bylayer")<br />         (command "_undo" "be"))        <br /> <br /> (defun Mc:be11 ()<br />         (setvar "orthomode" 0)<br />   (command "_undo" "e")<br />   (setvar "OSMODE" os)<br />         (setvar "cmdecho" cm))<br />

cq4920

(defun c:tt()

  (setq ss (ssget))
        (setq wk (mc:Wk ss)) ;获取选择集外框图元名
         (progn
                        (vl-load-com)
                        (vla-getboundingbox (vlax-ename->vla-object wk) 'minpoint 'maxpoint)
                        (setq p3 (vlax-safearray->list maxpoint)
                                p1 (vlax-safearray->list minpoint))
                        (setq p2 (list (car p3) (cadr p1)))
                        (setq p4 (list (car p1) (cadr p3)))
      (COMMAND "_.erase"  wk "")
                     )
       
        (setq e0 (entlast))
       
(command "MIRROR" ss p2 p4 “” “n”)       
       
setq ss2 (last_ent e0);;论坛里的一个函数
       
(        setq pt1 (getpoint))

(command "MOVE" ss2 p2 pt1)
       
)


大概思路就是这样 先镜像再移动 这样不仅可以水平镜像  还可以直接镜像再确定放在哪 这个是水平方向 垂直放线加个判断就好了  没开CAD 部分函数都在 论坛里了

Bao_lai

上效果图才知道需求

999999

Bao_lai 发表于 2020-10-21 21:49
上效果图才知道需求

大神，图片后面上传了看不了        123             |321         就类似前面数字一样，，中间的竖线是指光标指定的两点，然后321就挨着光标的两点镜像,大神看懂了嘛

999999

999999 发表于 2020-10-21 22:00
大神，图片后面上传了看不了        123             |321         就类似前面数字一样，，中间的竖线是 ...

我指的是图形和数字的镜像都能这样实现哟

Bao_lai

选择集求包围盒，镜像后移动，或者根据光标位置重新计算对称轴后镜像。

mokson

mirrtext 设置为1，但是文字是反看的。
这种123 变 321文本信息的镜像，只能用 lisp 才能实现了。

cghdy

你这不是常规镜像功能，用论坛上的超级复制可以实现。

mikewolf2k

8910 怎么处理？

999999

Bao_lai 发表于 2020-10-22 01:46
选择集求包围盒，镜像后移动，或者根据光标位置重新计算对称轴后镜像。

包围盒是什么意思，太过专业了吧