---

Hallo,

bisher habe ich nur in Inventor programmiert und dort auch fast nur mit VBA. Jetzt habe ich aber die Aufgabe bekommen, eine Baugruppe mit AutoCAD 2013 ab zu leiten.
Von Hand ist das ja auch kein Problem. Nur mit dem Visual Studio will mir das einfach nicht gelingen.

Ausgangssituation ist folgende:

Es ist eine .iam in Inventor geöffnet. Dann soll das Programm gestartet werden, welches AutoCAD öffnet.
Dann soll dort im AutoCAD über die Option Ansicht erstellen von Basis eines Inventormodells drei Ansichten erstellt werden.

Bis zum Öffnen und erstellen eines neuen, benannten Layouts bin ich schon gekommen, aber ich finde leider keinen Weg, das Ansicht erstellen von Basis anzusprechen.

Leider bin ich mit dem Visual Studio auch noch nicht besonders gut vertraut.

Vielleicht kann mir irgendjemand hier mal ein bisschen auf die Sprünge helfen, wäre auf jeden Fall sehr nett 

Danke im Voraus,

Gruß Chris

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

---

Hallo Chris,

ich denke, du wirst dem Layout mehrere Viewports hinzufügen müssen. In diesen kannst du dann die Verschiedenen Ansichten einstellen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Holger,
danke für die schnelle Antwort.

Ich glaube ich habe mich zu unklar ausgedrückt.

Es gibt ja im AutoCAD 2013 die Option direkt vom Inventormodell eine Ableitung zu erstellen. Diese ist unter Layout--> Basis zu finden.

Das möchte ich nun im VS ansprechen.

Dazu sind keine Viewports nötig. Ich habe im Modellbereich ja auch absolut keine Daten vorhanden.

Gruß Chris

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

---

2012 hat es keine API dazu gegeben, das bestätigt auch Autodesk hier:
http://forums.autodesk.com/t5/NET/base-views-through-net-api/m-p/3647344/highlight/true#M31431
Und ich finde in der aktuellen API (19.1) auch keine Möglichkeiten dazu, sorry.

------------------


www.cars4fun.at

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

---

Es geht also um die Automatisierung der Funktionen
Befehl: _VIEWBASE  (nur in AutoCAD Standard und einigen Vertikalprodukten wie Mechanical verfügbar)

Das kann man einfach Scripten, über LISP (Command "_viewbase" .... oder über VBA via SendCommand aufrufen.

Code:

---

Befehl: _VIEWBASE
Modellquelle angeben [Modellbereich/Datei] <Datei>: D
Autodesk Inventor-Dateinamen eingeben: *Abbruch*
Befehl:  GRUNDANS
Modellquelle angeben [Modellbereich/Datei] <Datei>: D
Autodesk Inventor-Dateinamen eingeben: c:\TEST\Testbaugruppe.iam
Neuen oder vorhandenen Layoutnamen, der als aktuell festgelegt werden soll, eingeben oder [?] <Layout1>:Layout2
Regeneriert Layout.
Regeneriert Layout.
Typ = Basis und parallel Verdeckte Linien = Sichtbare Linien  Maßstab = 1:2
Position der Erstansicht wählen oder [Typ/Darstellung/Ausrichtung/verdeckte Linien/Maßstab/Sichtbarkeit] <Typ>: 60,80
Option auswählen [Darstellung/Ausrichtung/verdeckte Linien/Maßstab/Sichtbarkeit/Verschieben/Beenden] <Beenden>:
Position der parallelen Ansicht wählen oder <Beenden>:
Erstansicht erfolgreich erstellt.

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Sehr ärgerlich!

Aber trotzdem vielen Dank für die Mühen.

Gruß Chris

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

---

Hallo Udo,

wäre ja wirklich schön, wenn es doch irgendwie gehen würde.

Kannst du mir auch erklären, wie ich den Code in deinem Post verwenden kann? Kenn mich wie schon gesagt in VS nicht so gut aus.

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

---

Das Aufrufen von AutoCAD Kommandos aus vb.net ist u.a. auch mal hier beschrieben worden:
http://through-the-interface.typepad.com/through_the_interface/2006/08/calling_command.html

Ach ja, Systemvariable für den Dateilialog bei Aufruf ausschalten (Filedia auf 0 setzen).

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Danke für den Link Udo.

Leider funktioniert das Beispiel schon nicht bei mir, wenn ich es in eine neue Klassendatei einfüge.

Kann es daran liegen, dass ich keine AutoCAD 2007 Type Library als Verweis hinzufügen kann, sondern nur den für 2013?

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

---

Na, ab 2013 ist dann u.U. noch
Imports Autodesk.AutoCAD.ApplicationServices.Core
sowie Verweise/References zu
acmdg.dll
acdbmdg.dll
accoremgd.dll

anzugeben.

Hier noch mal zwei andere Beispiele, habe momentan kein eigenen Code zur Hand.
http://adndevblog.typepad.com/autocad/2012/09/how-to-run-autocad-interactive-commands-and-run-code-after-command-completes.html
http://www.theswamp.org/index.php?topic=44500.0

Emfehlenswert: AutoCAD .NET Developer's Guide

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

so, ich hab es jetzt tatsächlich geschafft, einen Befehl an die Commandzeile zu schicken. Wie schaffe ich es denn, dann noch den Druck auf die Enter-Taste zu simulieren?
Bis jetzt steht in meiner Commandozeile nämlich nur: _circle 0,0,0

habe das ganze mit folgendem Code begonnen:

Code:

---

Private Property m_autocadApp As Object

    Sub Main()
        Try
            m_autocadApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Autocad.Application")
        Catch
            Dim AutocadAppType As Type = System.Type.GetTypeFromProgID("Autocad.Application")
            m_autocadApp = System.Activator.CreateInstance(AutocadAppType)
            m_autocadApp.visible = True
        End Try

        'Dim oLayout As AcadLayout

        'oLayout = m_autocadApp.application.activedocument.layouts.add("Lind")

        Dim com As AcadApplication
        com = m_autocadApp.application

        com.ActiveDocument.SendCommand("_circle 0,0,0")

    End Sub

---

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

---

Dann sende einfach noch ein " " Leerzeichen hinterher,

Enter, Return und Leertaste ist bei AutoCAD (außer bei Text) als Eingabetaste belegt.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Ja, so hat es dann funktioniert.

Habe jetzt versucht, den _viewbase - Befehl auf diese Art um zu setzen.

Er bleibt pauschal einfach mal bei dem sich öffnenden Fenster stehen, in dem man die Datei auswählen soll zum ableiten.

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

---

Setze mal vorher manuell (wie oben bereits darauf hingewiesen)
Befehl: FILEDIA 0
und teste erneut.

FILEDIA sollte vor dem Command im Programm auf 0 (keine Dialoge, stattdessen Pfadeingabe auf Befehlszeile) geschaltet werden und nach Programmende wieder restauriert werden.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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