Автоматическая выгрузка dxf из твердых тел детали

[Bookvoed]

Если я правильно понял, то причина в выделении твёрдого тела подлежащего выгрузке, в этом участке кода:

Код - Visual Basic [Выбрать]

1. 'Выделить текущий солид
2. For j = 1 To pd.ComponentDefinition.SurfaceBodies.Count
3. If i <> j Then dpc.Solids.Item(i).IncludeEntity = False
4. Next

Подскажите, пожалуйста, как поправить.

[mikazakov]

нужно итератор вместо i поставить j во второй строчке

Код - Visual Basic [Выбрать]

1. For j = 1 To pd.ComponentDefinition.SurfaceBodies.Count
2. If i <> j Then dpc.Solids.Item(j).IncludeEntity = False
3. Next

[Bookvoed]

Всё работает. Огромное спасибо за помощь!

[filat]

Конвертор DataIO применим только к листовым деталям? Если простую деталь нужно сохранить в dxf, то только через чертеж? Для чертежа нужна какая-то процедура конвертации или достаточно при SaveAs указать имя с нужным расширением?

[mikazakov]

DataIO

Влад сохранение простой модели в формат DXF не имеет смысла, поскольку DXF-формат сам по себе плоский а деталь объемная.
Поэтому только через создание плоского вида на чертеже.

[filat18]

Для чертежа нужна какая-то процедура конвертации или достаточно при SaveAs указать имя с нужным расширением?

[mikazakov]

Для чертежа нужна какая-то процедура конвертации или достаточно при SaveAs указать имя с нужным расширением?

Ну у тебя через SaveAs получается? Если получается, то пользуйся