CAD Zeichnungen automatisch einfügen

09/10/2008 - 17:36 von Roger Schlegel | Report spam
Hallo NG

Ich muss 150 CAD Zeichnungen ins Visio übernehmen. Kann aber den
Makrorecoder nicht brauchen, der nimmt nàmlich nichts auf.

Wie kann ich das per VBA erledigen?
Ich hàtte gerne den gleichen effekt wie Einfügen --> CADZeichnung

Gibt es sowas wie?
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.ActiveWindow.Page.InsertCad varPfad parameter.

Das hier öffnet eine neue Zeichnung
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.Documents.Open varPfad


Funktioniert nicht --> öffnet das Autocad und mach eine verknüpfte Zeichnung
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.ActiveWindow.Page.InsertFromFile varPfad, 1


Funktioniert auch nicht ! Ist scheinbar nur für Bilder (jpg und konsorte)
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.ActiveWindow.Page.import varPfad

Vielen Dank und Gruss aus Sissach
Stephan
 

Lesen sie die antworten

#1 Senaj Lelic [DE MVP Visio]
09/10/2008 - 20:58 | Warnen spam
Hallo Roger,

das kann so gar nicht funktionieren - für CAD-Importe musst Du das Addon für
CAD- Datei importieren oder konvertieren aktivieren.
Hierzu gibt es einen Artikel bei MSDN - einfach mal nach Visio und CAD
import auf www.msdn.com suchen

Senaj Lelic
DE MVP Visio

"Roger Schlegel" schrieb im Newsbeitrag
news:%
Hallo NG

Ich muss 150 CAD Zeichnungen ins Visio übernehmen. Kann aber den
Makrorecoder nicht brauchen, der nimmt nàmlich nichts auf.

Wie kann ich das per VBA erledigen?
Ich hàtte gerne den gleichen effekt wie Einfügen --> CADZeichnung

Gibt es sowas wie?
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.ActiveWindow.Page.InsertCad varPfad parameter.

Das hier öffnet eine neue Zeichnung
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.Documents.Open varPfad


Funktioniert nicht --> öffnet das Autocad und mach eine verknüpfte
Zeichnung
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.ActiveWindow.Page.InsertFromFile varPfad, 1


Funktioniert auch nicht ! Ist scheinbar nur für Bilder (jpg und konsorte)
Dim varPfad As String
varPfad = "R:\HAUS01\000978.DWG"
Application.ActiveWindow.Page.import varPfad

Vielen Dank und Gruss aus Sissach
Stephan





Ähnliche fragen