Script reference croisée Cambam

Salut,

Pas sûr de comprendre exactement ce que tu cherche.

Il y a un plugin qui permet de remplacer des entités de dessin par d'autres (pour mettre à jour une op d'usinage)

http://www.atelier-des-fougeres.fr/Cambam/Aide/Plugins/EntityReplaceFR.html

Voici un code exemple qui examine et liste les groupes, les op d'usinage et les ID des objets qu'elles contiennent ( VBS ) le résultat est affiché dans la fenêtre de messages de CB

Code:

sub main
        ' scan the parts and the mops to get the ID of the shapes used.

        Dim all_parts As CamBam.CAM.CAMParts    'main list of all the parts in the drawing
        Dim prt As CamBam.CAM.CAMPart

        Dim all_PartMop As CamBam.CAM.MachineOps    'main list of all the MOP in a part
        Dim mop As CamBam.CAM.MachineOp

        Dim pocketmop As CamBam.CAM.MOPPocket
        Dim profilmop As CamBam.CAM.MOPProfile
        Dim engravemop As CamBam.CAM.MOPEngrave
        Dim drillmop As CamBam.CAM.MOPDrill
        Dim surfacemop As CamBam.CAM.MOP3DSurface

        Dim msg As String

        all_parts = view.CADFile.Parts

        'scan all parts in the drawing
        For Each prt In all_parts


            msg = prt.Name & "    Enabled: " & prt.Enabled & "    nestID: " & prt.Nesting.PointListID
            app.log(msg)

            all_PartMop = prt.MachineOps

            'scan all mop in the part
            For Each mop In all_PartMop
                msg = "        - " & mop.Name & "   Enabled: " & mop.Enabled & "    Type: " & mop.MOPTypeName
                app.log(msg)

                Select Case mop.MOPTypeName
                    Case "Pocket"
                        pocketmop = mop
                        msg = "            ID: " & IdtoString(pocketmop.PrimitiveIds)
                    Case "Profile"
                        profilmop = mop
                        msg = "            ID: " & IdtoString(profilmop.PrimitiveIds)

                    Case "Engrave"
                        engravemop = mop
                        msg = "            ID: " & IdtoString(engravemop.PrimitiveIds)

                    Case "Drill"
                        drillmop = mop
                        msg = "            ID: " & IdtoString(drillmop.PrimitiveIds)

                    Case "3DSurface"
                        surfacemop = mop
                        msg = "            ID: " & IdtoString(surfacemop.PrimitiveIds) & vbNewLine
                        msg += "           Boundary: " & IdtoString(surfacemop.BoundaryShapeIds)

                End Select

                app.log(msg)

            Next mop

            app.log("")

        Next (prt)

End Sub

Public Function IdtoString(list() As Integer) As String

    Dim s As String = ""
    
    For Each i As Integer In list
        s += Str(i) & ", "
    Next

    Return s

End Function


Salut,

Il y a quelques bout de code, la plupart en VB (VB .net ou VBS, suivant que c'est un script ou un plugin)
http://www.cambam.co.uk/forum/index.php?topic=3878.0

Quand le code source n'est pas fourni (pour les plugins), il y a moyen, si il n'est pas protégé, de voir le code avec ILSpy en explorant la dll du plugin ; il est possible de l'afficher dans différents langages comme le C, le VB, etc ... ça peut aider parfois (et même souvent !)

http://www.01net.com/telecharger/windows/Programmation/creation/fiches/142935.html

je suis aussi inscrit sur le site de Cambam

Vi, j'avais reconnu le pseudo

++
David

Salut,

Pour les images, voir ici
http://www.metabricoleur.com/t570-poster-une-image

Pour les vidéo, il faut les mettre sur Youtube ou autre, et mettre le lien Ici.

++
David

Salut,

Ah oui, sacré engin !! ... il doit falloir de gros poumons pour en sortir un son ! (et de la place )

++
David