#
Region " Windows FormInitializeComponent()
components.Dispose()
<System.Diagnostics.DebuggerStepThrough()>
#
EndopenFileDialog1.Filter = ("Drawing|*.dwg")
myCad =
NewmyDwg =
New
saveFileDialog1.Filter = "Drawing Files (*.dwg)|*.dwg"
saveFileDialog1.FilterIndex = 1
saveFileDialog1.RestoreDirectory =
saveFileDialog1.ShowDialog()
strCurName = saveFileDialog1.FileName.ToString
myCad.ActiveDocument.SaveAs(strCurName)
End
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<Cujo> wrote in messageCan
href="news:4959832@discussion.autodesk.com">news:4959832@discussion.autodesk.com...
someone help me to:
1. Connect to AutoCAD 2004 or higher using
VB.Net
2. Open AutoCAD if not open already
3. Open a drawing
if AutoCAD is already open.
All help will be greatly
appreciated.
Cujo
PS - presume I am starting with only a drawing
name so if there are imports, etc. I'll need those as
well.
Thanks!!!!!
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
color=#0000ff size=2>Dim myCad
size=2>As Autodesk.AutoCAD.Interop.AcadApplication
Dim myDwg
As
Autodesk.AutoCAD.Interop.AcadDocument
Private
color=#0000ff size=2>Sub Button1_Click(
color=#0000ff size=2>ByVal sender
color=#0000ff size=2>As System.Object,
color=#0000ff size=2>ByVal e
size=2>As System.EventArgs)
size=2>Handles Button1.Click
Dim openFileDialog1
As
color=#0000ff size=2>New OpenFileDialog
openFileDialog1.Filter = ("Drawing|*.dwg")
myCad = New
Autodesk.AutoCAD.Interop.AcadApplication
myDwg = New
Autodesk.AutoCAD.Interop.AcadDocument
End
color=#0000ff size=2>Sub
Private
color=#0000ff size=2>Sub Button2_Click(
color=#0000ff size=2>ByVal sender
color=#0000ff size=2>As System.Object,
color=#0000ff size=2>ByVal e
size=2>As System.EventArgs)
size=2>Handles Button2.Click
Dim saveFileDialog1
As
color=#0000ff size=2>New SaveFileDialog
Dim strCurName
As
color=#0000ff size=2>String
saveFileDialog1.Filter = "Drawing Files (*.dwg)|*.dwg"
saveFileDialog1.FilterIndex = 1
saveFileDialog1.RestoreDirectory =
size=2>True
saveFileDialog1.ShowDialog()
strCurName = saveFileDialog1.FileName.ToString
myCad.ActiveDocument.SaveAs(strCurName)
End
color=#0000ff size=2>Sub
End
size=2>Class
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="COLOR: blue">Dim myCad As
Autodesk.AutoCAD.Interop.AcadApplication
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="COLOR: blue">Dim myDwg As
Autodesk.AutoCAD.Interop.AcadDocument
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="COLOR: blue">Private Sub
Button1_Click(ByVal sender
style="COLOR: blue">As System.Object,
style="COLOR: blue">ByVal e As
System.EventArgs) Handles
Button1.Click
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim blnRunning
style="COLOR: green">' As Boolean
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim objProcess
style="COLOR: green">' As Object
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
' check to see if Acad is already running if
running, do not start new instance of program
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
blnRunning = False
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
For
style="COLOR: blue">Each objProcess In
GetObject("winmgmts:").ExecQuery("select * from
Win32_Process")
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
If LCase(objProcess.Name) = "acad.exe"
Then
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
blnRunning = True
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Exit
style="COLOR: blue">For
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
End
style="COLOR: blue">If
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Next '
objProcess
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
' if acad is not running start up the
application
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
If Not
(blnRunning) Then
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim openFileDialog1
style="COLOR: blue">As New
OpenFileDialog
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim dwg
style="COLOR: blue">As
Autodesk.AutoCAD.Interop.AcadDocument
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
openFileDialog1.Filter = ("Drawing|*.dwg")
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
myCad = New
Autodesk.AutoCAD.Interop.AcadApplication
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
End
style="COLOR: blue">If
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
' open a new dwg in acad
application
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
myDwg = New
Autodesk.AutoCAD.Interop.AcadDocument
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="COLOR: blue">End
style="COLOR: blue">Sub
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
face=Arial color=#000000>This will be the last sample I'll bother you with, as I
mentioned, I'm new to VB programming too and thought I should try out the
things I posted. It wasn't too stable so this gives more
stability if you open more than one dwg at a time.
HTH
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
face=Arial color=#000000>
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
face=Arial color=#000000>Mike
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
face=Arial color=#000000>
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
face=Arial color=#000000>
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
face=Arial color=#000000>
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="COLOR: blue">Private Sub
Button2_Click(ByVal sender
style="COLOR: blue">As System.Object,
style="COLOR: blue">ByVal e As
System.EventArgs) Handles
Button2.Click
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim myStream
style="COLOR: blue">As Stream
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim saveFileDialog1
style="COLOR: blue">As New
SaveFileDialog
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
Dim strCurName
style="COLOR: blue">As
style="COLOR: blue">String
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
' save active open dwg to new
name
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; COLOR: green; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
saveFileDialog1.Filter = "Drawing Files
(*.dwg)|*.dwg"
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
saveFileDialog1.FilterIndex = 1
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
saveFileDialog1.RestoreDirectory =
style="COLOR: blue">True
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
saveFileDialog1.ShowDialog()
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
strCurName = saveFileDialog1.FileName.ToString
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
myDwg = myCad.ActiveDocument
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
myDwg.SaveAs(strCurName)
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
style="mso-spacerun: yes">
style="COLOR: blue">End
style="COLOR: blue">Sub
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<Cujo> wrote in messageCan
href="news:4959832@discussion.autodesk.com">news:4959832@discussion.autodesk.com...
someone help me to:
1. Connect to AutoCAD 2004 or higher using
VB.Net
2. Open AutoCAD if not open already
3. Open a drawing
if AutoCAD is already open.
All help will be greatly
appreciated.
Cujo
PS - presume I am starting with only a drawing
name so if there are imports, etc. I'll need those as
well.
Thanks!!!!!