using System;
using TFlex;
using TFlex.Model;
using TFlex.Model.Model2D;
using System.Windows;
using TFlex.Model.Model3D;
using System.IO;

namespace MacroNameSpace
{
    public class NewMacroClass
    {
        //-------------------------------------------------------------------------------------   
        //Составим функцию FindVar поиска переменной по имени
        private static Variable FindVar(Document doc, string name)
        {
            foreach (Variable var in doc.GetVariables())
                if (var.Name == name) return var;
            return null;
        }
        //------------------------------------------------------------------------------------
        public static void Деталировка()
        {
            Document doc = TFlex.Application.ActiveDocument;

            Variable NameDoc = FindVar(doc, "$Обозначение");

            doc.BeginChanges("Деталировка");

            foreach (Fragment3D Frag in doc.GetFragments3D())
            {
                Document DC = Frag.GetFragmentDocument(true);

                Variable Vob = FindVar(DC, "$Обозначение");
                Variable VName = FindVar(DC, "$Наименование");

                String value = Vob.TextValue.ToString();
                String value2 = value.Replace("/", "_");

                String newName = String.Concat(
                Path.GetDirectoryName(doc.FileName), "\\", VName.TextValue.ToString(), " ", value2.ToString(), Path.GetExtension(DC.FileName));
                string FrLink = "<" + NameDoc.TextValue + ">" + VName.TextValue.ToString() + " " + value2.ToString() + ".grb";

                Document FRdoc = Frag.OpenPart();
                FRdoc.BeginChanges("Создаем деталь");

                FRdoc.SaveAs(newName);
                FRdoc.EndChanges();
                FRdoc.Close();
                Frag.FileLink = new TFlex.Model.FileLink(doc, FrLink);
            }
            doc.EndChanges();
        }
        //-----------------------------------------------------------
    }
}