Kreis erhält nach Export über Makro als DXF sehr viele Knotenpunkte

[koter]

Hallo Olaf,

dass der Filter ab Version 9 die Einstellungen ignoriert ist ärgerlich.
Mir war das bis jetzt noch nicht aufgefallen. Eine Lösung habe ich leider nicht.

Du kannst versuchen das Problem zu umgehen, indem Du vom Makro eine Auswahl erstellen und exportieren lässt:

Code:

  ActivePage.Shapes.FindShapes(Query:="@com.layer.printable='true'").CreateSelection 'Objekte auf druckbaren Ebenen auswählen
  Set expflt = ActiveDocument.ExportEx(Dateiname, cdrDXF, cdrSelection) 'Exportfilter setzen
  With expflt
      .Version = 11 'DXF Version festlegen
      .Units = cdrMillimeter ' Maßeinheit festlegen
      .Finish ' Filter ausführen
  End With

Die erste Zeile aus dem Code-Fragment musst Du einfügen und die zweite entsprechend ändern.
Mit X7 klappt das, ich hoffe mit Deiner Version auch.

Gruß

Koter