Seznam příspěvků uživatele

CATIA.StartCommand("Print...")



Me.WindowState = FormWindowState.Minimized



SendKeys.Send("{TAB 6}")

SendKeys.Send("{ENTER}")

CATIA.StartCommand("Print")

 Set selection1 = activedoc.Selection

        Dim InputObjectType(0)

      InputObjectType(0) = "Body"

        

     Status = selection1.SelectElement2(InputObjectType, "Wählen Sie den Körper aus", False)

      If (Status = "Cancel") Then

         MsgBox "Makro wurde abgebrochen", 16, makroname + " " + version

         Exit Sub

      Else

        

      Set usersel = selection1.Item(1).Value

        

      Set TheSPAWorkbench =       CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

      Set Inertia1 = TheSPAWorkbench.Inertias.Add(usersel)

          

        Dim Components1(8)

      Inertia1.GetPrincipalAxes Components1

        

      Set part1 = activedoc.Part

        

        'Schwerpunkt

      Set reference1 = part1.CreateReferenceFromObject(usersel)

      Set Measurable1 = TheSPAWorkbench.GetMeasurable(reference1)

          Dim Gcoord(2)

        Measurable1.GetCOG Gcoord

          

      Set hybridShapeFactory1 = part1.HybridShapeFactory

     Set hybridBodies1 = part1.HybridBodies

     Set hybridBody1 = hybridBodies1.Add

     hybridBody1.Name = "Extremum_" + usersel.Name



      Dim directions1(2)

      Set directions1(0) = hybridShapeFactory1.AddNewDirectionByCoord(Components1(0), Components1(3), Components1(6))

      Set directions1(1) = hybridShapeFactory1.AddNewDirectionByCoord(Components1(1), Components1(4), Components1(7))

    Set directions1(2) = hybridShapeFactory1.AddNewDirectionByCoord(Components1(2),

Components1(5), Components1(8))

SendKeys “{ENTER}”, True

Private void Form1_Load(object sender, EventArgs e)

        {

            Object CATIA = Marshal.GetActiveObject("CATIA.Application");

            catiaapp = ( INFITF.Application)CATIA;



            //Fenster-Titel auslesen -------------------------

            this.textBox1.Text = catiaapp.get_Caption();

            //-------------------------------------------------------



            //Teilenummer des aktiven Dokumentes auslesen----------

            try

            {

                activedocpart = (MECMOD.PartDocument)catiaapp.ActiveDocument;

                product1 = activedocpart.Product;

                Doctyp = "Part";

            }

            catch

            {

                try

                {

                    activedocproduct = (ProductStructureTypeLib.ProductDocument)catiaapp.ActiveDocument;

                    product1 = activedocproduct.Product;

                    Doctyp = "Product";

                }

                catch

                {

                    MessageBox.Show("Teilenummer konnte nicht ermittelt werden", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Error);

                    return;

                }

            }

            this.textBox2.Text = product1.get_PartNumber();

            //----------------------------------------------------------------------



            //Strukturbaum nachbilden--------------------------

            TreeNode tn0 = new TreeNode(product1.get_PartNumber());

            switch(Doctyp)

            {

                Case "Part":

                    getbodies(tn0, activedocpart.Part);

                    gethybridbodies(tn0, activedocpart.Part.HybridBodies);

                    break;

                Case "Product":

                    ProductStructureTypeLib.Products products1 = activedocproduct.Product.Products;

                    For (int i = 1; i <= products1.Count; i++)

                    {

                        object index = i;

                        ProductStructureTypeLib.Product product_Sub = products1.Item(ref index);

                        TreeNode tn_product = new TreeNode(product_sub.get_Name());

                        tn0.Nodes.Add(tn_product);

                        If (product_sub.Products.Count == 0)

                        {

                            try

                            {

                                MECMOD.PartDocument Part_sub_doc = (MECMOD.PartDocument)product_sub.ReferenceProduct.Parent;

                                getbodies(tn_product, Part_sub_doc.Part);

                                gethybridbodies(tn_product, Part_sub_doc.Part.HybridBodies);

                            }

                            Catch { }

                        }

                    }

                    break;

            }

            this.treeView1.Nodes.Add(tn0);

            //-------------------------------------------------

        }

        //-------------------------------------------------------

        Private void getbodies(TreeNode tn0,MECMOD.Part Part1)

        {

            MECMOD.Bodies bodies1 = Part1.Bodies;

            For (int i = 1; i <= bodies1.Count; i++)

            {

                object index = i;

                MECMOD.Body body1 = bodies1.Item(ref index);

                If (body1.InBooleanOperation == false)

                {

                    TreeNode tn_body = new TreeNode(body1.get_Name());

                    tn0.Nodes.Add(tn_body);



                    MECMOD.Shapes shapes1 = body1.Shapes;

                    getshape(tn_body, shapes1);

                }

            }

        }

        //-------------------------------------------------------

        Private void getshape(TreeNode tn_body, MECMOD.Shapes shapes1)

        {

            For (int m = 1; m <= shapes1.Count; m++)

            {

                object index = m;

                try

                {

                    PARTITF.BooleanShape shape1 = (PARTITF.BooleanShape)shapes1.Item(ref index);

                    TreeNode tn_body_bool = new TreeNode(shape1.Body.get_Name());

                    tn_body.Nodes.Add(tn_body_bool);

                   

                    MECMOD.Shapes shapes_bool = shape1.Body.Shapes;

                    getshape(tn_body_bool, shapes_bool);

                }

                catch

                {

                    MECMOD.Shape shape1 = shapes1.Item(ref index);

                    tn_body.Nodes.Add(shape1.get_Name());

                }

            }

        }

        //-------------------------------------------------------

        Private void gethybridbodies(TreeNode tn0, MECMOD.HybridBodies hbodies1)

        {

            For (int i = 1; i <= hbodies1.Count; i++)

            {

                object index = i;

                MECMOD.HybridBody hbody1 = hbodies1.Item(ref index);



                TreeNode tn_body = new TreeNode(hbody1.get_Name());

                tn0.Nodes.Add(tn_body);



                If (hbody1.HybridBodies.Count > 0)

                    gethybridbodies(tn_body, hbody1.HybridBodies);



                MECMOD.HybridShapes hshapes1 = hbody1.HybridShapes;

                getshybridhape(tn_body, hshapes1);

            }

        }

        //-------------------------------------------------------

        Private void getshybridhape(TreeNode tn_body, MECMOD.HybridShapes hshapes1)

        {

            For (int m = 1; m <= hshapes1.Count; m++)

            {

                object index = m;



                MECMOD.HybridShape hshape1 = hshapes1.Item(ref index);

                tn_body.Nodes.Add(hshape1.get_Name());

            }

        }

        //-------------------------------------------------------

        Private void button1_Click(object sender, EventArgs e)

        {

            string titel = this.textBox1.Text;

            catiaapp.set_Caption(ref titel);

        }

        //---------------------------------------------------

        Private void button2_Click(object sender, EventArgs e)

        {

            string partnumber1 = textBox2.Text;

            product1.set_PartNumber(ref partnumber1);

        }



        Private void treeView1_AfterSelect(object sender, TreeViewEventArgs e)

Declare Sub mouse_event Lib "user32" AliAs "mouse_event" _

(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _

ByVal cButtons As Long, ByVal dwExtraInfo As Long)



Public Const MOUSEEVENTF_ABSOLUTE = &H8000 'absolutní pohyb

Public Const MOUSEEVENTF_LEFTDOWN = &H2 'stisk levého tlačítka

Public Const MOUSEEVENTF_LEFTUP = &H4 'uvolnění levého tlačítka

Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 'stisk středního tlačítka

Public Const MOUSEEVENTF_MIDDLEUP = &H40 'uvolnění středního tlačítka

Public Const MOUSEEVENTF_MOVE = &H1 'pohyb myši

Public Const MOUSEEVENTF_RIGHTDOWN = &H8 'stisk pravého tlačítka

Public Const MOUSEEVENTF_RIGHTUP = &H10 'uvolnění pravého tlačítka



Příklady použití:

'Koordináty X a Y se vztahují k obrazovce, ne k formuláři

mouse_event MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0, 0



mouse_event MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0



mouse_event MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0

/*Law created by Jan Svoboda 29.8.2008*/




If x > 130mm

{

	y = 100mm

	} Else If x < 130mm AND x > 90mm {

	y = 70mm

	} Else If x < 90mm AND x > 70mm {

	y = 50mm

	} Else If x < 70mm AND x > 50mm {

	y = 40mm

	} Else If x < 50mm AND x > 20mm {

	y = 30mm

	} Else {

	y = x

}