---

Ich programmiere einige Zeit schon in VBA, ich soll eine Zeichnung als dxf abspeichern,
funktioniert in VBA einwandfrei
ThisDrawing.SaveAs(DXF_TempName, ac2007_dxf)
Leider bekomme ich es in VB.net nicht hin. Wenn ich diesen Befehl
ThisDrawing.SaveAs(DXF_TempName)
verwende, wird eine dwg abgespeichert
besten Dank im voraus
DrCNC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

herzlich willkommen bei CAD-de!  

Bitte um >>>SystemInfo<<<, wir wissen sonst nicht:
a) Deine AutoCAD-Version (oder vertikales AutoCAD-basiertes Produkt)
b) Deine VisualStudio-Version
c) wie Dein 'ThisDrawing' deklariert ist (managed-Document oder Interop-Document)

- alfred -

------------------
www.hollaus.at

---

ACad 2011, Win7 64 bit
danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nachtrag:
VB Express 2010

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common

Public Class Post
    Public ReadOnly Property ThisDrawing() As AcadDocument
        Get
            Return Autodesk.AutoCAD. _
                ApplicationServices.Application. _
                DocumentManager.MdiActiveDocument. _
                AcadDocument
        End Get
    End Property
lg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch eine Frage hätte ich bitte!
kann man mit VB 2010 Express und Autocad Debuggen und auch Haltepunkte setzen
lg DrCNC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

probier mal dieses, bei mir funkts:

Code:

---

Imports Autodesk.AutoCAD

'.....

<Autodesk.AutoCAD.Runtime.CommandMethod("CADde_SaveDxf")> _
Public Shared Sub CADde_SaveDxf()
  Try
      Dim tDocCOM As Interop.AcadDocument = CType(CType(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument, ApplicationServices.Document).AcadDocument, Interop.AcadDocument)
      tDocCOM.SaveAs("C:\TEMP\XX.DXF", &H25) '&h25=37 entspricht DXF2007
  Catch ex As Exception
      Call MsgBox("Fehler beim Sichern der Datei (" & ex.Message & ")")
  End Try

End Sub

---

HTH, - alfred -

------------------
www.hollaus.at

---

Hi,

Debuggen mit der VB.Net Express-Version geht soweit ich es ausprobiert habe nur mit der 2008er, nicht mit der 2010.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

>> kann man mit VB 2010 Express und Autocad Debuggen und auch Haltepunkte setzen

Ja, am linken Rand im SourceCode kannst Du klicken, ein rot-brauner Punkt zeigt Dir dann die Halteposition. Dazu muss Dein Projekt allerdings im Debug-Modus kompiliert sein und das AutoCAD per 'Start Debug' von Deinem VS aus gestartet sein (der andere Weg, das VS-Projekt an den Prozess im nachhinein dranhängen geht zwar auch, ist aber deutlich mühsamer).

- alfred -

------------------
www.hollaus.at

---

Danke für die schnelle Antwort
Aber wie soll ich ACad starten, wenn möglich eine genauere Anleitung
Danke im voraus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

>>>dieses Video<<< zeigt es für VS2008 und AutoCAD 2010, für AutoCAD 2011 ist es gleich (andere Versionsnummern, ok), für VS2010 ist noch die >>> Modifizieren der 'acad.exe.config' zum Debugen <<< (darin gucke nach 'Solution 2') zu berücksichtigen, fertig.

[EDIT]den Link zum Video hinzugefügt[/EDIT]

- alfred -

------------------
www.hollaus.at

---

Hat bestens funktioniert.
es geht aber auch mit ThisDrawing.SaveAs(DXF_TempName,&H25)
besten Dank!
DrCNC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP