Mirror出来的图形怎么设为acadentity变量

baneit319

试了一下，
dim cc=acadentity
dim dd=acadentity
mirror_Point1( 0 to 2) as double
.....................（略）
然后使用
Set dd = cc.Mirror mirror_Point1, mirror_Point2 或者set dd=cc.Mirror 都不行，

我想把镜像出来的acadentity作为变量，请问该如何写？

baneit319

有哪位大虾，帮忙解答一下，感谢感谢！祝端午快乐！

baneit319

在线坐等

zzyong00

1. Sub Example_Mirror()
   
2.     ' This example creates a lightweight polyline
   
3.     ' and then mirrors that polyline.
   
4.    
   
5.     ' Create the polyline
   
6.     Dim plineObj As AcadLWPolyline
   
7.     Dim points(0 To 11) As Double
   
8.     points(0) = 1: points(1) = 1
   
9.     points(2) = 1: points(3) = 2
   
10.     points(4) = 2: points(5) = 2
    
11.     points(6) = 3: points(7) = 2
    
12.     points(8) = 4: points(9) = 4
    
13.     points(10) = 4: points(11) = 1
    
14.     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
15.     plineObj.Closed = True
    
16.     ZoomAll
    
17.    
    
18.     ' Define the mirror axis
    
19.     Dim point1(0 To 2) As Double
    
20.     Dim point2(0 To 2) As Double
    
21.     point1(0) = 0: point1(1) = 4.25: point1(2) = 0
    
22.     point2(0) = 4: point2(1) = 4.25: point2(2) = 0
    
23.         
    
24.    
    
25.     ' Mirror the polyline
    
26.     Dim mirrorObj As AcadLWPolyline
    
27.     Set mirrorObj = plineObj.Mirror(point1, point2)
    
28.    
    
29.     ZoomAll
    
30.     Dim objEnt As AcadEntity
    
31.     Set objEnt = mirrorObj
    
32.     MsgBox objEnt.ObjectName
    
33. End Sub
    

Sub Example_Mirror()<br />     ' This example creates a lightweight polyline<br />     ' and then mirrors that polyline.<br />     <br />     ' Create the polyline<br />     Dim plineObj As AcadLWPolyline<br />     Dim points(0 To 11) As Double<br />     points(0) = 1: points(1) = 1<br />     points(2) = 1: points(3) = 2<br />     points(4) = 2: points(5) = 2<br />     points(6) = 3: points(7) = 2<br />     points(8) = 4: points(9) = 4<br />     points(10) = 4: points(11) = 1<br />     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br />     plineObj.Closed = True<br />     ZoomAll<br />     <br />     ' Define the mirror axis<br />     Dim point1(0 To 2) As Double<br />     Dim point2(0 To 2) As Double<br />     point1(0) = 0: point1(1) = 4.25: point1(2) = 0<br />     point2(0) = 4: point2(1) = 4.25: point2(2) = 0<br />         <br />     <br />     ' Mirror the polyline<br />     Dim mirrorObj As AcadLWPolyline<br />     Set mirrorObj = plineObj.Mirror(point1, point2)<br />     <br />     ZoomAll<br />     Dim objEnt As AcadEntity<br />     Set objEnt = mirrorObj<br />     MsgBox objEnt.ObjectName<br /> End Sub<br />

baneit319

zzyong00 发表于 2015-6-22 18:58

感谢老大，发现基本上就老大一个人回帖
顺便请教一下，我想用 Select acSelectionSetAll, , , FilterType, FilterData 只选择模型空间的，不对布局空间进行选择，该怎么弄？谢谢！

zzyong00

组码67        值为空或0时即指图元在模型空间,如果为1指在图形空间