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

999999

mokson 发表于 2020-10-22 08:00
mirrtext 设置为1，但是文字是反看的。
这种123 变 321文本信息的镜像，只能用 lisp 才能实现了。

您好，我需要的不是指镜像原本的功能，我想要那种，镜像后的关系，不是以光标经过的两点为中心对称的镜像，而是镜像后的东西是挨着光标经过的两点成镜像的关系哟，和文本镜不镜像没有关系哟，，谢谢您让我学到了文字镜像的参数设置

999999

cq4920 发表于 2020-10-22 18:03
(defun c:tt()

  (setq ss (ssget))

大神，您知道函数的链接哪吗

999999

mikewolf2k 发表于 2020-10-22 09:17
8910 怎么处理？

8910是什么意思     哈哈，，专业的人说专业的术语，我都看不懂

999999

cghdy 发表于 2020-10-22 09:14
你这不是常规镜像功能，用论坛上的超级复制可以实现。

好的哟，我搜了一下，超级复制有一个贴子，我试试，谢谢啦

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 />

bai2000

指定放置位置前，能加个指定插入点就好用了--------就是镜像复制出，插入另外位置的在镜像后图形的点

999999

cq4920 发表于 2020-10-23 14:46
稍微整理了一下 原理不难

如果 选择 可以不分先后

谢谢大神，辛苦了，我好好研究一下

999999

bai2000 发表于 2020-10-23 17:18
指定放置位置前，能加个指定插入点就好用了

没有看懂呢

czb203

明总辛苦了

999999

cq4920 发表于 2020-10-23 14:46
稍微整理了一下 原理不难

如果 选择 可以不分先后

谢谢大神，，大神这个插件代码正解决了我的需求，，谢谢啦