---

Hallo zusammen,

habe ein kleines Makro geschrieben um DXF-Dateien automatisch
in eine Skizze importieren zu können:

Code:

---

    Dim oSwApplication As SldWorks.SldWorks
    Dim oSwModelDoc As SldWorks.ModelDoc2
    Dim oSwModelDocExtension As SldWorks.ModelDocExtension
    Dim oSwFeatureManager As SldWorks.FeatureManager
    Dim sFilePath As String
    Dim oSwFeature As SldWorks.Feature
    Dim sTemplate As String

    sTemplate = "C:\Programme\SolidWorks2006\data\templates\Schubert\Teil.prtdot"
    sFilePath = "C:\Dokumente und Einstellungen\sbt.SDA.N\Desktop\Teil14.DXF"

    Set oSwApplication = Application.SldWorks
    Set oSwModelDoc = oSwApplication.NewDocument(sTemplate, 0, 0, 0)

    Set oSwModelDocExtension = oSwModelDoc.Extension
    Set oSwFeatureManager = oSwModelDoc.FeatureManager
   
    oSwModelDocExtension.SelectByID2 "Ebene1", "PLANE", 0, 0, 0, False, 0, Nothing, 0
   
    Set oSwFeature = oSwFeatureManager.InsertDwgOrDxfFile(sFilePath)
    oSwModelDoc.ViewZoomtofit2
    oSwModelDoc.ClearSelection2 (True)

---

Mein Problem ist, daß nach dem Import eines Kunden DXF alle Abmessungen viel zu Groß sind. Die Abweichung muß irgendwas mit Millimetern zu Inch zu tun haben, weil so ein ähnlicher Faktor dazwischen liegt.
Komisch ist auch, wenn ich die selbe Datei von Hand importieren stimmt alles. Komisch ist auch, wenn ich ein DXF aus SW erzeuge und das dann mit meinem Makro reinlade stimmen die Abmessungen.
Kann mir jemand helfen?

------------------
Mfg Thomas

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |        kontakt@schuler-da.de   
----------------------------------------------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
(John Osborne 1929 - 1994)

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

---

Hallo Thomas,

ich vermute, du hast schon selbst die richtige Antwort in deiner Frage gegeben: es hat was mit dem Maßstab in der DXF Datei zu tun. Wenn du es von Hand importierst schaut SolidWorks wahrscheinlich vorher in der Datei nach, welcher Maßstab da eingetragen ist und stellt den dann in der Dropdownliste korrekt ein.

Per API geht das wahrscheinlich (bisher) nicht so einfach; dafür gibt es ab der 2007 den Befehl ImportDxfDwgData::LengthUnit , wenn der leer bleibt ermittelt SolidWorks wohl selbst den Input-Maßstab ( siehe auch das Beispiel Import DXF File to Drawing Example (VB)). Ob und wie das alelrdings für 2006 und früher zu lösen ist ... 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Member of CAD.de BOINC Team  -   | Seti@Home | CPDN | Einstein@Home

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

---

Hi,

in der Hilfe steht etwas von

To import a DXF/DWG file named Draw1.DXF with a sheet size of A3 and default length units in millimeters:
swApp.LoadFile2 "C:\temp\Draw1.DXF", "8 0"

To only specify to use default length units in millimeters in <LengthUnit>, you must also specify -1 for <PaperSize>:

swApp.LoadFile2 "C:\temp\Draw1.DXF", "-1 0"

vielleicht hilft es ja einwenig weiter...

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo zusammen,

erst mal vielen Dank für die Hinweise. So wie es aussieht muß ich Stefan recht geben, das ganze funktioniert wohl erst so richtig brauchbar mit der API aus SW2007. Doch das hilft mir leider nicht, bin an SW2006 gebunden. Trotzdem vielen Dank!

Übrignes nur noch zur Information: In einem DXF sind laut Definition alle Koordinaten- und Längenangaben einheitenunabhängig, d.h. man muß die Angaben einfach beim Einlesen entsprechend setzten. Wenn da SW mit dem API Befehl mist baut hat man keine Chance. Denkbar wäre noch eine anschließende Skalierung, doch woran sollte man sich da orientieren, nachdem darüber ja nix im DXF steht.

------------------
Mfg Thomas

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |         kontakt@schuler-da.de    
----------------------------------------------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
(John Osborne 1929 - 1994)

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