macro moucharabieh

La macro moucharabieh pour alphacam crée une répétition d'un motif géométrique avec rotation.

livingstone

Livingstone propose un matériau solid surface en acrylique.

velstone

Velstone solid surface est un matériau composé d'un minéral naturel (hydroxyde d'aluminium) lié par un polyester et par de la résine acrylique.

place shapes

Place shapes est un plugin pour sketchup qui permet de créer différentes formes 3d courantes.

wilsonart

Wilsonart propose un matériau solid surface en résine synthétique.

point gadget

Le plugin point gadget pour sketchup est un outil de création de point.

zw3d 2016

Les améliorations de zw3d 2016.

• nouvelle fonctionnalité pmi
• nouvelles options dans le module esquisse 3d
• nouvelles interopérabilité
• nouveauté du module usinage

bimup 5d

Bimup 5d est un plugin pour sketchup permettant la modélisation des données d'un projet (métrés, calcul de coûts).

hi-macs

Le hi-macs est un matériau en pierre acrylique non poreux. Composé de 70% de bauxite, 25% de résine acrylique et de 2% de pigments naturels.

sketchup 2016

Sketchup 2016 présente des améliorations en matière d'ergonomie et de productivité.

• boîtes de dialogue dans une palette
• améliorations du système d'inférences
• outil générer un rapport
• travail collaboratif
• nouvelles collections de matières

macro mosaïque

Cette macro pour alphacam crée des mosaïques géométriques avec déformation aléatoire.

• longueur
• largeur
• nombre de division
• valeur de déformation aléatoire
• carré
• losange
• triangle
• spline
• trajet d'outil
• profondeur d'usinage
• épaisseur du panneau

macro truchet

Cette macro pour alphacam crée des pavages de truchet.

• nombre de colonnes
• nombres de lignes

krion

Le krion est une surface solide similaire à la pierre naturelle. Composé de deux tiers de minéraux naturels et de résines à grande résistance, il se transforme avec les outillages utilisé dans l'industrie du bois.

• inexistence de pores
• propriétés antibactériennes
• dureté
• résistance
• durabilité
• facilité de réparation
• nettoyage facile
• thermoformage
• vaste gamme de couleur
• recyclable

macro puzzle

Cette macro pour alphacam crée des puzzles.

• longueur
• largeur 
• nombre de pièces

macro hexaèdre

Cette macro pour alphacam crée les programmes avec trajets d'outil des six faces d'un hexaèdre,
à partir de surfaces.

• épaisseur des panneaux
• dégraissage
• création des géométries, plans
• création des trajets d'outil avec la scie
• enregistrement de chaque programmes

gcad3d

Gcad3d est un logiciel de cao 3d.

application vb.net liste de matériaux

Cette application vb.net développée en Visual Basic, crée une liste de matériaux sur Excel.
Les pièces peuvent être triées (longueur, largeur, épaisseur) par ordre croissant ou décroissant.

• ouvrir visual basic
• nouveau projet
• visual basic
• application windows forms
• inscrire le nom de l'application
• dans form1.vb (design)
• créer label1, label2, label 3, label 4, label 5
• créer textbox1, textebox2, textbox3, textebox4, textbox5
• créer button1 à button11
• dans form1.vb
• inscrire le code suivant

Imports Microsoft.Office.Core

Imports Microsoft.Office.Interop

Public Class Form1

    Dim oXL As Excel.Application

    Dim oWB As Excel.Workbook

    Dim oSheet As Excel.Worksheet

    Dim oRng As Excel.Range

    Public Sub Button1_Click(ByVal sender As System.Object,

      ByVal e As System.EventArgs) Handles Button1.Click

        oXL = CreateObject("Excel.Application")

        oXL.Visible = True

        oWB = oXL.Workbooks.Add

        oSheet = oWB.ActiveSheet

        oSheet.Cells(1, 1).Value = "nom de la pièce"

        oSheet.Cells(1, 2).Value = "nombre de pièces"

        oSheet.Cells(1, 3).Value = "longueur"

        oSheet.Cells(1, 4).Value = "largeur"

        oSheet.Cells(1, 5).Value = "épaisseur"

        With oSheet.Range("A1", "E1")

            .Font.Bold = True

            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter

            .HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft

        End With

        oRng = oSheet.Range("A1", "E50")

        oRng.ColumnWidth = 20

        oXL.Visible = True

        oXL.UserControl = True

        Exit Sub

Err_Handler:

        MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)

    End Sub

    Dim a As Integer = 0

    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        a += 1

        oSheet.Cells(2 + a, 1).Value = TextBox1.Text

        oSheet.Cells(2 + a, 2).Value = TextBox2.Text

        oSheet.Cells(2 + a, 3).Value = TextBox3.Text

        oSheet.Cells(2 + a, 4).Value = TextBox4.Text

        oSheet.Cells(2 + a, 5).Value = TextBox5.Text

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

    End Sub

    Public Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("B5"),

                                     Order1:=Excel.XlSortOrder.xlAscending,

                                     Header:=Excel.XlYesNoGuess.xlGuess,

                                     OrderCustom:=1,

                                     MatchCase:=False,

                                     Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("B5"),

                                 Order1:=Excel.XlSortOrder.xlDescending,

                                 Header:=Excel.XlYesNoGuess.xlGuess,

                                 OrderCustom:=1,

                                 MatchCase:=False,

                                 Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("C5"),

                                     Order1:=Excel.XlSortOrder.xlAscending,

                                     Header:=Excel.XlYesNoGuess.xlGuess,

                                     OrderCustom:=1,

                                     MatchCase:=False,

                                     Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("C5"),

                                 Order1:=Excel.XlSortOrder.xlDescending,

                                 Header:=Excel.XlYesNoGuess.xlGuess,

                                 OrderCustom:=1,

                                 MatchCase:=False,

                                 Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("D5"),

                                  Order1:=Excel.XlSortOrder.xlAscending,

                                  Header:=Excel.XlYesNoGuess.xlGuess,

                                  OrderCustom:=1,

                                  MatchCase:=False,

                                  Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("D5"),

                             Order1:=Excel.XlSortOrder.xlDescending,

                             Header:=Excel.XlYesNoGuess.xlGuess,

                             OrderCustom:=1,

                             MatchCase:=False,

                             Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("E5"),

                                        Order1:=Excel.XlSortOrder.xlAscending,

                                        Header:=Excel.XlYesNoGuess.xlGuess,

                                        OrderCustom:=1,

                                        MatchCase:=False,

                                        Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("E5"),

                            Order1:=Excel.XlSortOrder.xlDescending,

                            Header:=Excel.XlYesNoGuess.xlGuess,

                            OrderCustom:=1,

                            MatchCase:=False,

                            Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

End Class

• sauvegarder
• générer le projet

Pour créer une icône sur le bureau qui permet d'ouvrir l'application, il suffit de retrouver le fichier .exe dans documents/visual studio 2015/projects/nom du projet/bin/debug/nom du projet.exe.
Bouton droit sur le fichier et envoyer ver le bureau. Sur le raccourci créé, bouton droit sur propriétés puis changer d'icône.

application vb.net triangle rectangle

Cette application vb.net permet de calculer les angles et le côté manquant d'un triangle rectangle.
Ce programme a été développé avec Visual Studio avec le langage Visual Basic.

• ouvrir visual basic
• nouveau projet
• visual basic
• application windows forms
• inscrire le nom de l'application
• dans form1.vb (design)
• créer label1, label2, label 3, label 4, label 5
• créer textbox1, textebox2, textbox3, textebox4, textbox5
• créer button1, button2, button3
• dans form1.vb
• inscrire le code suivant

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x As Double
        Dim y As Double
        Dim z As Double
        Dim a As Double
        Dim b As Double
        Dim c As Double
        Dim d As Double
        Dim g As Double
        Dim f As Double
        Const pi As Double = 3.14159265358979
        If TextBox3.Text = "" Then
            x = Math.Sqrt(TextBox1.Text ^ 2 + TextBox2.Text ^ 2)
            TextBox3.Text = x
            c = TextBox2.Text / TextBox1.Text
            TextBox4.Text = Math.Atan(c) * 180 / pi
            g = TextBox1.Text / TextBox2.Text
            TextBox5.Text = Math.Atan(g) * 180 / pi
        End If
        If TextBox1.Text = "" Then
            y = Math.Sqrt(TextBox3.Text ^ 2 - TextBox2.Text ^ 2)
            TextBox1.Text = y
            b = TextBox2.Text / TextBox3.Text
            TextBox4.Text = Math.Asin(b) * 180 / pi
            d = TextBox2.Text / TextBox3.Text
            TextBox5.Text = Math.Acos(d) * 180 / pi
        End If
        If TextBox2.Text = "" Then
            z = Math.Sqrt(TextBox3.Text ^ 2 - TextBox1.Text ^ 2)
            TextBox2.Text = z
            a = TextBox1.Text / TextBox3.Text
            TextBox4.Text = Math.Acos(a) * 180 / pi
            f = TextBox1.Text / TextBox3.Text
            TextBox5.Text = Math.Asin(f) * 180 / pi
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
    End Sub
End Class

• sauvegarder
• générer le projet

Pour créer une icône sur le bureau qui permet d'ouvrir l'application, il suffit de retrouver le fichier .exe dans documents/visual studio 2015/projects/nom du projet/bin/debug/nom du projet.exe.
Bouton droit sur le fichier et envoyer ver le bureau. Sur le raccourci créé, bouton droit sur propriétés puis changer d'icône.

macro décalage en z

Cette macro décalage en z sur alphacam permet de décaler des géométries en z, avec comme options un décalage et un déplacement des géométries en x et en y.

visual studio community

Visual Studio Community est une plateforme de développement gratuite qui permet de créer des applications pour windows, android ou ios.
Cet environnement de développement propose des fonctionnalités de debugging, diagnostics, d'outils de tests,d'intégration, d'outils collaboratifs.
Visual studio prend en charge les langages de programmation; C#, VB.NET, F#, C++, JavaScript, HTML, Python.
Cette plateforme permet de créer des projets pour Office (Word, Excel, Access) ou d'autre logiciels comme Autocad, Solidedge, Turbocad ou Rhino.