使用ActiveX在后台打开DWG，如何调用ZOOM之类的方法？

xiafan28

如题。
因为要多次使用选择集，只有将图像放大时，结果才会正确。所以才想要多次ZOOM。但在后台打开的，使用ZOOM等命令时，会提示“autocad 主窗口不可见”。

还请各位有空教一下。
谢谢！

Lisphk

ACTIVEX 有ZOOM方法的，不过，你在后台打开，你ZOOM了，该看不见还是看不见的，你想勾选屏幕内选择集也得不得。你得遍历数据库。

xiafan28

是这样的。
CAD的图比较大。选择集是动态的，按指定的坐标进行：sset.Select(AcSelect.acSelectionSetCrossing, pl, pr,,)
在调试时发现，选择集的结果经常变化。最终确定，是因为图形显示的原因所致。如果将CAD的窗口ZoomWindow到选择集的范围，那选择集得到的结果就是正确的；但如果图形是显示全部，或是指定的坐标不在窗口范围内时，选择集结果就会出问题——虽然有指定的坐标。
所以，我想就是在选择集之前，先将窗口ZOOM到这个选择集范围，这时，就会出现了我提出的问题。
将CAD显示打开，操作正常。但如果采用后台打开的方式，就会报错。所以，想知道有没有在后台打开的前提下，能实现ZoomWindow的效果。

xiafan28

我说的后台打开是指将实例的 Visible = False
或是不设置。
另，我ZOOM及其他的所有操作，不要人工干涉，所以希望在后台实现操作。
谢谢您抽空帮忙。

marting

1. VBA Example
   
2. Sub Example_ZoomAll()
   
3.     ' This example creates several objects in model space and
   
4.     ' then performs a variety of zooms on the drawing.
   
5. 
   
6.     AppActivate ThisDrawing.Application.Caption
   
7. 
   
8.     ' Create a Ray object in model space
   
9.     Dim rayObj As AcadRay
   
10.     Dim basePoint(0 To 2) As Double
    
11.     Dim SecondPoint(0 To 2) As Double
    
12.     basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#
    
13.     SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#
    
14.     Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, SecondPoint)
    
15.    
    
16.     ' Create a polyline object in model space
    
17.     Dim plineObj As AcadLWPolyline
    
18.     Dim points(0 To 5) As Double
    
19.     points(0) = 3: points(1) = 7
    
20.     points(2) = 9: points(3) = 2
    
21.     points(4) = 3: points(5) = 5
    
22.     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
23.     plineObj.Closed = True
    
24. 
    
25.     ' Create a line object in model space
    
26.     Dim lineObj As AcadLine
    
27.     Dim startPoint(0 To 2) As Double
    
28.     Dim endPoint(0 To 2) As Double
    
29.     startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
    
30.     endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0
    
31.     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    
32.    
    
33.     ' Create a circle object in model space
    
34.     Dim circObj As AcadCircle
    
35.     Dim centerPt(0 To 2) As Double
    
36.     Dim radius As Double
    
37.     centerPt(0) = 20: centerPt(1) = 30: centerPt(2) = 0
    
38.     radius = 3
    
39.     Set circObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius)
    
40. 
    
41.     ' Create an ellipse object in model space
    
42.     Dim ellObj As AcadEllipse
    
43.     Dim majAxis(0 To 2) As Double
    
44.     Dim center(0 To 2) As Double
    
45.     Dim radRatio As Double
    
46.     center(0) = 5#: center(1) = 5#: center(2) = 0#
    
47.     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
    
48.     radRatio = 0.3
    
49.     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    
50. 
    
51. ' ZoomAll
    
52.     MsgBox "Perform a ZoomAll", , "ZoomWindow Example"
    
53.     ZoomAll
    
54.    
    
55. ' ZoomWindow
    
56.     MsgBox "Perform a ZoomWindow using the following coordinates:" & vbCrLf & _
    
57.            "1.3, 7.8, 0" & vbCrLf & _
    
58.            "13.7, -2.6, 0", , "ZoomWindow Example"
    
59.            
    
60.     Dim point1(0 To 2) As Double
    
61.     Dim point2(0 To 2) As Double
    
62.     point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
    
63.     point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0
    
64.     ZoomWindow point1, point2
    
65.    
    
66. ' ZoomScaled
    
67.     MsgBox "Perform a ZoomScaled using:" & vbCrLf & _
    
68.            "Scale Type: acZoomScaledRelative" & vbCrLf & _
    
69.            "Scale Factor: 2", , "ZoomWindow Example"
    
70.     Dim scalefactor As Double
    
71.     Dim scaletype As Integer
    
72.     scalefactor = 2
    
73.     scaletype = acZoomScaledRelative
    
74.     ZoomScaled scalefactor, scaletype
    
75.    
    
76. ' ZoomExtents
    
77.     MsgBox "Perform a ZoomExtents", , "ZoomWindow Example"
    
78.     ZoomExtents
    
79.    
    
80. ' ZoomPickWindow
    
81.     MsgBox "Perform a ZoomPickWindow", , "ZoomWindow Example"
    
82.     ZoomPickWindow
    
83.    
    
84. ' ZoomCenter
    
85.     MsgBox "Perform a ZoomCenter using:" & vbCrLf & _
    
86.            "Center 3, 3, 0" & vbCrLf & _
    
87.            "Magnification: 10", , "ZoomWindow Example"
    
88.     Dim zcenter(0 To 2) As Double
    
89.     Dim magnification As Double
    
90.     zcenter(0) = 3: zcenter(1) = 3: zcenter(2) = 0
    
91.     magnification = 10
    
92.     zoomcenter zcenter, magnification
    
93.    
    
94. End Sub
    

VBA Example <br /> Sub Example_ZoomAll()<br />     ' This example creates several objects in model space and<br />     ' then performs a variety of zooms on the drawing.<br /> <br />     AppActivate ThisDrawing.Application.Caption<br /> <br />     ' Create a Ray object in model space<br />     Dim rayObj As AcadRay<br />     Dim basePoint(0 To 2) As Double<br />     Dim SecondPoint(0 To 2) As Double<br />     basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#<br />     SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#<br />     Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, SecondPoint)<br />     <br />     ' Create a polyline object in model space<br />     Dim plineObj As AcadLWPolyline<br />     Dim points(0 To 5) As Double<br />     points(0) = 3: points(1) = 7<br />     points(2) = 9: points(3) = 2<br />     points(4) = 3: points(5) = 5<br />     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br />     plineObj.Closed = True<br /> <br />     ' Create a line object in model space<br />     Dim lineObj As AcadLine<br />     Dim startPoint(0 To 2) As Double<br />     Dim endPoint(0 To 2) As Double<br />     startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0<br />     endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0<br />     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)<br />     <br />     ' Create a circle object in model space<br />     Dim circObj As AcadCircle<br />     Dim centerPt(0 To 2) As Double<br />     Dim radius As Double<br />     centerPt(0) = 20: centerPt(1) = 30: centerPt(2) = 0<br />     radius = 3<br />     Set circObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius)<br /> <br />     ' Create an ellipse object in model space<br />     Dim ellObj As AcadEllipse<br />     Dim majAxis(0 To 2) As Double<br />     Dim center(0 To 2) As Double<br />     Dim radRatio As Double<br />     center(0) = 5#: center(1) = 5#: center(2) = 0#<br />     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#<br />     radRatio = 0.3<br />     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)<br /> <br /> ' ZoomAll<br />     MsgBox "Perform a ZoomAll", , "ZoomWindow Example"<br />     ZoomAll<br />     <br /> ' ZoomWindow<br />     MsgBox "Perform a ZoomWindow using the following coordinates:" & vbCrLf & _<br />            "1.3, 7.8, 0" & vbCrLf & _<br />            "13.7, -2.6, 0", , "ZoomWindow Example"<br />            <br />     Dim point1(0 To 2) As Double<br />     Dim point2(0 To 2) As Double<br />     point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0<br />     point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0<br />     ZoomWindow point1, point2<br />     <br /> ' ZoomScaled<br />     MsgBox "Perform a ZoomScaled using:" & vbCrLf & _<br />            "Scale Type: acZoomScaledRelative" & vbCrLf & _<br />            "Scale Factor: 2", , "ZoomWindow Example"<br />     Dim scalefactor As Double<br />     Dim scaletype As Integer<br />     scalefactor = 2<br />     scaletype = acZoomScaledRelative<br />     ZoomScaled scalefactor, scaletype<br />     <br /> ' ZoomExtents<br />     MsgBox "Perform a ZoomExtents", , "ZoomWindow Example"<br />     ZoomExtents<br />     <br /> ' ZoomPickWindow<br />     MsgBox "Perform a ZoomPickWindow", , "ZoomWindow Example"<br />     ZoomPickWindow<br />     <br /> ' ZoomCenter<br />     MsgBox "Perform a ZoomCenter using:" & vbCrLf & _<br />            "Center 3, 3, 0" & vbCrLf & _<br />            "Magnification: 10", , "ZoomWindow Example"<br />     Dim zcenter(0 To 2) As Double<br />     Dim magnification As Double<br />     zcenter(0) = 3: zcenter(1) = 3: zcenter(2) = 0<br />     magnification = 10<br />     zoomcenter zcenter, magnification<br />    <br /> End Sub<br />

xiafan28

这个方法，如果是后台调用，会提示“autocad 主窗口不可见”。
这就是我的问题所在。

因为我现在是后台打开DWG文件的（Visible = False）。如果是窗口操作，就没这个问题了。

marting

xiafan28 发表于 2018-5-20 18:26
这个方法，如果是后台调用，会提示“autocad 主窗口不可见”。
这就是我的问题所在。

只有在当前数据库，你ZOOM才有意义，你为什么要想在后台ZOOM呢？起什么作用呢？

xiafan28

因为有很多的数据要处理。
都是通过某个点，或是某个字符串，以此为基础，然后找出其某个方向上最近一条线段或是点，然后再获取该线段或是点的坐标，扩大一片区域，再加入到选择集，然后再移动。
如此反复。

在此期间，不希望有人为操作，也不能有人为操作（操作之后程序会崩溃），所以就放在后台执行。
在这些操作中，会频繁建立选择集，所以才会出现此问题。

marting

xiafan28 发表于 2018-5-20 18:43
因为有很多的数据要处理。
都是通过某个点，或是某个字符串，以此为基础，然后找出其某个方向上最近一条线 ...

那和你后台ZOOM有什么关系呢，为什么想ZOOM呢

marting

ACTIVEX ZOOM类方法，要求：This method applies only to the current active viewport

xiafan28

在调试时发现，选择集的结果经常变化。最终确定，是因为图形显示的原因所致。如果将CAD的窗口ZoomWindow到选择集的范围，那选择集得到的结果就是正确的；但如果图形是显示全部，或是指定的坐标不在窗口范围内时，选择集结果就会出问题——虽然有指定的坐标。
所以，我想就是在选择集之前，先将窗口ZOOM到这个选择集范围，这时，就会出现了我提出的问题。
将CAD显示打开，操作正常。但如果采用后台打开的方式，就会报错。所以，想知道有没有在后台打开的前提下，能实现ZoomWindow的效果。

所以才想知道，有没有在后台也能实现ZOOM之类的方法。

LoveArx

xiafan28 发表于 2018-5-20 19:14
在调试时发现，选择集的结果经常变化。最终确定，是因为图形显示的原因所致。如果将CAD的窗口ZoomWindow到 ...

你测试时候，当前文档，你ZOOM到窗口才正常，但你后台时候，ZOOM是执行不了的，因为不能设置到当前VIEWPORT，你只能换个方式，遍历数据库去找你需要的实体。

xiafan28

好像也只能这样了。
谢谢各位的帮助啊。