[求助]不算镜像的镜像，谁知道怎么做到

kkkkat

  我所需要的镜像，就是图像在位置上镜像，当时形状不变，有这样的命令吗

唐伯虎9527

Gu_xl 发表于 2010-7-26 16:54

您好，我运行这个代码怎么显示是参数类型错误？

bifenba

看不懂

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

足球比分 篮球比分  NBA赛程表 即时比分 足球赛程 足球指数 网球比分 开发比分网 阴阳冕

fpiw

如果用自定义对象的话很容易实现

houlinbo

设置镜像选项

 

danxingpen

具体这个镜像有什么作用？发个cad的图纸表明一下镜像前和镜像后的效果！

houlinbo

 MIRRTEXT命令  可以设置文字的，图形的好像不能吧，   用程序好实现

顽石

写个极简单的程序即可实现，CAD中没有直接的命令可以做到。除非红色的是文字，那样的话将MIRRTEXT设为0即可

RUANCT

1、先镜像

2、每个实体在插入点自身镜像。

 

Gu_xl

3. (defun c:Mr (/ gxl-MidPoint gxl-GetssBox )
4.   (defun gxl-MidPoint (p1 p2)
5.   (if (> 2 (length p1))
6.       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))) (* 0.5 (+ (caddr p1) (caddr p2))))
7.       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))))
8.   )  
9.   )
10.   (defun gxl-Sel-SS->List (ss / cs_i out)
11.   (if (= (type ss) 'PICKSET)
12.     (progn
13.       (setq cs_i 0.0
14.      out  '()
15.       )
16.       (repeat (sslength ss)
17. (setq out (cons (ssname ss cs_i) out))
18. (setq cs_i (1+ cs_i))
19.       )
20.       (setq out (reverse out))
21.     )
22.   )
23. )
24.   (defun gxl-getbox (e1 / obj minpoint maxpoint)
25.   (if (= 'ENAME (type e1))
26.   (setq obj (vlax-ename->vla-object e1)) ;转换图元名
27.     (setq obj e1)
28.     )
29.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
30.      ;取得包容图元的最大点和最小点
31.   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
32.   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
33.   ;;(command "box" minpoint maxpoint 2)
34.   (setq obj (list minpoint maxpoint))
35. )
36.   (setq oldosmode (getvar "osmode"))
37.   (setvar "osmode" 0)
38.   (princ "\n选择要镜像的物体：")
39.   (setq ss (ssget))
40.   (if ss
41.     (progn
42.       (setq pt1(getpoint "\n指定镜像线的第一点:")
43.      pt2 (getpoint pt1 "\n指定镜像线的第二点:")
44.      )
45.       (command "line" pt1 pt2 "")
46.     (setq line (entlast))
47.       (initget 7 "Yes No  ")
48.       (setq kd (getkword "\n是否删除源对象?[是<Yes>/否<No>]否<No>"))
49.       (if (= kd "") (setq kd "No"))
50.       (setq nn (sslength ss)
51.      n 0)
52.       (repeat nn
53.       (setq pl (GXL-GETBOX (setq en (ssname ss n))))
54.       (setq pt (GXL-MIDPOINT (car pl) (cadr pl)))
55.       (setq mpt (vlax-curve-getclosestpointto line pt t))
56.       (setq ang (angle pt mpt))
57.       (command "copy" en "" pt (polar pt ang (* 2 (distance pt mpt))))
58.       
59.       (if (= kd "Yes") (command "erase" en ""))
60. (setq n (1+ n))
61. )
62.       )
63.       
64.     )
65.   (entdel line)
66.   (setvar "osmode" oldosmode)
67.   )

(defun c:Mr (/ gxl-MidPoint gxl-GetssBox )   (defun gxl-MidPoint (p1 p2)   (if (> 2 (length p1))       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))) (* 0.5 (+ (caddr p1) (caddr p2))))       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))))   )     )   (defun gxl-Sel-SS->List (ss / cs_i out)   (if (= (type ss) 'PICKSET)     (progn       (setq cs_i 0.0      out  '()       )       (repeat (sslength ss) (setq out (cons (ssname ss cs_i) out)) (setq cs_i (1+ cs_i))       )       (setq out (reverse out))     )   ) )   (defun gxl-getbox (e1 / obj minpoint maxpoint)   (if (= 'ENAME (type e1))   (setq obj (vlax-ename->vla-object e1)) ;转换图元名     (setq obj e1)     )   (vla-GetBoundingBox obj 'minpoint 'maxpoint)      ;取得包容图元的最大点和最小点   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表   ;;(command "box" minpoint maxpoint 2)   (setq obj (list minpoint maxpoint)) )   (setq oldosmode (getvar "osmode"))   (setvar "osmode" 0)   (princ "\n选择要镜像的物体：")   (setq ss (ssget))   (if ss     (progn       (setq pt1(getpoint "\n指定镜像线的第一点:")      pt2 (getpoint pt1 "\n指定镜像线的第二点:")      )       (command "line" pt1 pt2 "")     (setq line (entlast))       (initget 7 "Yes No  ")       (setq kd (getkword "\n是否删除源对象?[是<Yes>/否<No>]否<No>"))       (if (= kd "") (setq kd "No"))       (setq nn (sslength ss)      n 0)       (repeat nn       (setq pl (GXL-GETBOX (setq en (ssname ss n))))       (setq pt (GXL-MIDPOINT (car pl) (cadr pl)))       (setq mpt (vlax-curve-getclosestpointto line pt t))       (setq ang (angle pt mpt))       (command "copy" en "" pt (polar pt ang (* 2 (distance pt mpt))))              (if (= kd "Yes") (command "erase" en "")) (setq n (1+ n)) )       )            )   (entdel line)   (setvar "osmode" oldosmode)   )

chmenf087

简单啊，获取插入点然后一个move足以搞定