AcadApplication.Visible = False

Keith · 发表于 2004-10-6 00:00:22

好的......这是我的难题......
我正忙着在VB中构建一个应用程序，该应用程序将访问AutoCAD对象模型并使用AutoCAD执行一系列任务...
如果AutoCAD正在运行，我会让AcadApplication可见，但如果应用程序尚未运行，我希望应用程序不可见，因此对用户视图隐藏。
我需要知道我需要跳过哪些环（如果确实可能）来在应用程序隐藏时操作绘图。
例如...有人知道我如何做到这一点吗：

copy


AcadApplication.Visible = False
AcadApplication.ActiveDocument.ModelSpace.AddLine PT1, PT2
AcadApplication.ActiveDocument.Close True
AcadApplication.Quit

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Keith · 发表于 2004-10-6 09:51:41

我不知道这是否有任何相关性，但我只是使用Excel工作簿尝试了一下。
我可以创建应用程序，通过从autocad发送信息来操作单元格，并打印出工作表，同时保持其不可见

hendie · 发表于 2004-10-6 10:45:56

我知道你可以用Excel来做，因为它使用了不同的方法来访问数据。AutoCAD使用图形坐标来操作其数据库。我这样做的主要原因是因为我还不能在AutoCAD窗口不是最上面的活动窗口的情况下从外部操纵AutoCAD模型。

Keith · 发表于 2004-10-6 11:06:45

Keith，如果您从文档集合中访问文档，而不是使用活动文档，并确保不对屏幕做任何事情（重新生成、重新绘制、缩放），它应该可以工作。例如，这是有效的：

copy


Sub test()
Dim AcadApp As AcadApplication 'Object
Dim acadDoc As AcadDocument
Dim dblPt1(2) As Double
Dim dblPt2(2) As Double
Dim dblpt3(2) As Double
dblPt2(1) = 100
dblpt3(0) = 100: dblpt3(1) = 100
Set AcadApp = GetAcadObject
Set acadDoc = AcadApp.Documents.Add("acad.dwt")
AcadApp.Visible = False
acadDoc.SaveAs ("c:\test")
acadDoc.ModelSpace.AddLine dblPt1, dblPt2
acadDoc.ModelSpace.AddLine dblPt2, dblpt3
acadDoc.ModelSpace.AddLine dblpt3, dblPt1
acadDoc.Save
AcadApp.Quit
Set AcadApp = Nothing
End Sub

另一种方法是通过AcadObject使用ObjectDBX，因为它无论如何都不会打开绘图进行编辑。

Jeff_M · 发表于 2004-10-6 12:12:14

凉。。。我会试试的...由于我正在处理现有的图纸，我想我可以打开图纸，抓住drawin对象并在那里操作它，而不是完全通过文档集合。

Keith · 发表于 2004-10-6 16:34:27

Keith，
只是为了好玩，我在Excel VBA中尝试了这个，它比我预期的要好.

copy


'A reference to: ObjectDBX 1.0 Type Library
'must be set
Sub testme()
Dim oAcad As Object
Dim oDBX As AxDbDocument
Dim strFname As String
Dim dblPt1(2) As Double
Dim dblPt2(2) As Double
Dim dblpt3(2) As Double
Dim oEnt As AcadEntity
dblPt2(1) = 1000
dblpt3(0) = 1000: dblpt3(1) = 1000
Set oAcad = GetAcadObject 'use Keith's function
oAcad.Visible = False
Set oDBX = oAcad.getinterfaceobject("ObjectDBX.AxDbDocument")
strFname = "C:\test.dwg" 'Must use a real path & name
oDBX.Open (strFname)
'Do some stuff for test purposes
oDBX.ModelSpace.AddLine dblPt1, dblPt2
oDBX.ModelSpace.AddLine dblPt2, dblpt3
oDBX.ModelSpace.AddLine dblpt3, dblPt1
For Each oEnt In oDBX.ModelSpace
    oEnt.Color = acGreen
Next
oDBX.SaveAs strFname
Set oDBX = Nothing
oAcad.Quit
Set oAcad = Nothing
End Sub