DXF автоматизация

[Anonymous]

Добрый день! Есть задача получить dxf при помощи правила iLogic.

Есть такой вариант:

fname = ThisDoc.Document.FullFileName.Remove(ThisDoc.Document.FullFileName.LastIndexOf(".")) + ".dxf"
oDataIO = ThisDoc.Document.ComponentDefinition.DataIO
sOut = "FLAT PATTERN DXF?AcadVersion=2000"
oDataIO.WriteDataToFile(sOut, fname)

  Но он называет полученные dxf файлы по аналогии с именем файла исходной детали, а необходимо получит dxf с наименованием и обозначением (iProperties.Value("Project", "Part Number") и iProperties.Value("Project", "Description")) 

Насколько мне понятно, участок кода FullFileName нужно заменить обозначением и наименованием. К сожаление знаний не хватает=(

[Anonymous]

Уже подсказали, всем спасибо.

[MikhailovAndrey]

Если не затруднит, выложите итоговый рабочий текст правила. Кому-нибудь пригодится. Спасибо!

[Anonymous · Accepted solution]

Конечно!

Правило выгружает DXF "Обозначение" + "Наименование". Лишние слои гасятся.

fname = ThisDoc.Document.FullFileName.Remove(ThisDoc.Document.FullFileName.LastIndexOf("\")) & "\" & iProperties.Value("Project", "Part Number") & " " & iProperties.Value("Project","Description") & ".dxf"
oDataIO = ThisDoc.Document.ComponentDefinition.DataIO
sOut = "FLAT PATTERN DWG?AcadVersion=2000&OuterProfileLayer=Burn&Interi?orProfilesLayer=Burn&InvisibleLayers=IV_UNCONSUMEND_SKETCHES�;IV_ALTREP?_BACK;IV_ALTREP_FRONT;IV_ARC_CENTERS;IV_TOOL_CENTE?R_DOWN;IV_TOOL_CENTER;IV_ARC_CENTERS;IV_FEATURE_PROFILES;IV_TANGENT;IV?_BEND;IV?_BEND;IV_BEND_DOWN&SplineTolerance Double 0.01"
oDataIO.WriteDataToFile(sOut, fname)