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

xiafan28 · 发表于 2018-5-20 10:02:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

Lisphk · 发表于 2018-5-20 14:08:15

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

xiafan28 · 发表于 2018-5-20 15:52:53

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

xiafan28 · 发表于 2018-5-20 16:08:45

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

marting · 发表于 2018-5-20 17:47:49

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

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

xiafan28 · 发表于 2018-5-20 18:26:59

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

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

marting · 发表于 2018-5-20 18:30:48

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

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

xiafan28 · 发表于 2018-5-20 18:43:12

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

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

marting · 发表于 2018-5-20 18:52:27

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

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

marting · 发表于 2018-5-20 19:06:40

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

xiafan28 · 发表于 2018-5-20 19:14:36

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

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

LoveArx · 发表于 2018-5-20 22:15:24

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

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

xiafan28 · 发表于 2018-5-21 08:16:02

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评