[ARX程序]：请教：关于克隆问题

梦宁

我将一些实体克隆后想把它们定到一个层上，该怎么办？

还有，如果将一张图纸设置作为另一张得背景图，它的比例在程序里怎样实现阿？也就是它的视窗，有时他会很小有时很大，怎样控制让他与当前图纸匹配

XDSoft

最初由 梦宁 发布
[B]我将一些实体克隆后想把它们定到一个层上，该怎么办？

还有，如果将一张图纸设置作为另一张得背景图，它的比例在程序里怎样实现阿？也就是它的视窗，有时他会很小有时很大，怎样控制让他与当前图纸匹配 [/B]

设置层到实体上，使用：
AcDbEntity::setLayer(...)

梦宁

用克隆时，如果被克隆的图纸没有所要的层，那如果用setLayer需要在被克隆的图纸上创建目标层。这比较麻烦

可以根据图纸的什么系统变量确定图块的插入比例么？xd

rave

可以获取当前图形的范围和背景图的范围来计算比例及插入点

块(背景图)的图形范围可通过getGeomExtents()一次取得，而当前图形的图形范围好像没什么函数、系统变量可直接取得。我想可以通过遍历所有实体，然后对所有实体getGeomExtents()来求出，也许可以先"zoom e" 然后取Viewport的范围来求得. 也许还有更高效的方法

给出一段VBA代码供参考, 转ARX应不难：

2. 
   
3. ' 将外部图形文件尽可能大的插入到指定的范围
   
4. Private Sub InsertXrefIn(XrefName As String, XrefFile As String, left As Double, bottom As Double, right As Double, top As Double)
   
5.   Dim InsertPoint(0 To 2) As Double
   
6.   Dim insertedBlock As AcadExternalReference
   
7.   Dim minExt As Variant
   
8.   Dim maxExt As Variant
   
9.   
   
10.   Dim dLeft As Double
    
11.   Dim dBottom As Double
    
12.   Dim dRight As Double
    
13.   Dim dTop As Double
    
14.   
    
15.   Dim dXScale As Double
    
16.   Dim dYscale As Double
    
17.   
    
18.   ThisDrawing.MSpace = False
    
19.   
    
20.   InsertPoint(0) = 0: InsertPoint(1) = 0: InsertPoint(2) = 0
    
21.   
    
22.   ' 插入到PaperSpace
    
23.   Set insertedBlock = ThisDrawing.PaperSpace.AttachExternalReference(XrefFile, XrefName, InsertPoint, 1, 1, 1, 0, False)
    
24.   ' 取块范围
    
25.   insertedBlock.GetBoundingBox minExt, maxExt
    
26.   
    
27.   dLeft = minExt(0)
    
28.   dBottom = minExt(1)
    
29.   dRight = maxExt(0)
    
30.   dTop = maxExt(1)
    
31.   
    
32.   dXScale = (right - left) / (dRight - dLeft)
    
33.   dYscale = (top - bottom) / (dTop - dBottom)
    
34.   
    
35.   If dXScale > dYscale Then
    
36.     dXScale = dYscale
    
37.   Else
    
38.     dYscale = dXScale
    
39.   End If
    
40.   
    
41.   InsertPoint(0) = (left + (right - left) / 2) - (dLeft + (dRight - dLeft) / 2) * dXScale
    
42.   InsertPoint(1) = (bottom + (top - bottom) / 2) - (dBottom + (dTop - dBottom) / 2) * dYscale
    
43.   
    
44.   insertedBlock.InsertionPoint = InsertPoint
    
45.   insertedBlock.XScaleFactor = dXScale
    
46.   insertedBlock.YScaleFactor = dYscale
    
47.   
    
48.   insertedBlock.Update
    
49.   
    
50. End Sub
    

<br /> ' 将外部图形文件尽可能大的插入到指定的范围<br /> Private Sub InsertXrefIn(XrefName As String, XrefFile As String, left As Double, bottom As Double, right As Double, top As Double)<br />   Dim InsertPoint(0 To 2) As Double<br />   Dim insertedBlock As AcadExternalReference<br />   Dim minExt As Variant<br />   Dim maxExt As Variant<br />   <br />   Dim dLeft As Double<br />   Dim dBottom As Double<br />   Dim dRight As Double<br />   Dim dTop As Double<br />   <br />   Dim dXScale As Double<br />   Dim dYscale As Double<br />   <br />   ThisDrawing.MSpace = False<br />   <br />   InsertPoint(0) = 0: InsertPoint(1) = 0: InsertPoint(2) = 0<br />   <br />   ' 插入到PaperSpace<br />   Set insertedBlock = ThisDrawing.PaperSpace.AttachExternalReference(XrefFile, XrefName, InsertPoint, 1, 1, 1, 0, False)<br />   ' 取块范围<br />   insertedBlock.GetBoundingBox minExt, maxExt<br />   <br />   dLeft = minExt(0)<br />   dBottom = minExt(1)<br />   dRight = maxExt(0)<br />   dTop = maxExt(1)<br />   <br />   dXScale = (right - left) / (dRight - dLeft)<br />   dYscale = (top - bottom) / (dTop - dBottom)<br />   <br />   If dXScale > dYscale Then<br />     dXScale = dYscale<br />   Else<br />     dYscale = dXScale<br />   End If<br />   <br />   InsertPoint(0) = (left + (right - left) / 2) - (dLeft + (dRight - dLeft) / 2) * dXScale<br />   InsertPoint(1) = (bottom + (top - bottom) / 2) - (dBottom + (dTop - dBottom) / 2) * dYscale<br />   <br />   insertedBlock.InsertionPoint = InsertPoint<br />   insertedBlock.XScaleFactor = dXScale<br />   insertedBlock.YScaleFactor = dYscale<br />   <br />   insertedBlock.Update<br />   <br /> End Sub<br />