Script reference croisée Cambam

Aller en bas

Script reference croisée Cambam

Message  CLAUDESAINT le Jeu 5 Juil - 10:08

Bonjour,
je recherche les source d'un script du style "replace entity" afin de réaliser un script de reference croisé, car parfois je perd du temps quand je recherche où est utilisée tel ou tel objet
Merci
Salutation
avatar
CLAUDESAINT
petit nouveau
petit nouveau

Messages : 9
Points : 13
Date d'inscription : 04/07/2018
Age : 56
Localisation : LYON

Revenir en haut Aller en bas

Re: Script reference croisée Cambam

Message  dh42 le Jeu 5 Juil - 19:57

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

_________________

Traduction Française de CamBam et de sa documentation.
avatar
dh42
Admin
Admin

Messages : 16120
Points : 28792
Date d'inscription : 21/06/2009
Age : 55
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Merci

Message  CLAUDESAINT le Ven 6 Juil - 9:42

Merci Dh
Tout a fait ce qu'il me faut pour la manipulation des entités
a partir de cela je vais pouvoir créer un script de Xref
J'ai déjà récupéré le script entity replace sur les fougeres
je suis aussi inscrit sur le site de Cambam
Encore merci
Salutations
avatar
CLAUDESAINT
petit nouveau
petit nouveau

Messages : 9
Points : 13
Date d'inscription : 04/07/2018
Age : 56
Localisation : LYON

Revenir en haut Aller en bas

Re: Script reference croisée Cambam

Message  dh42 le Ven 6 Juil - 16:43

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 Wink

++
David

_________________

Traduction Française de CamBam et de sa documentation.
avatar
dh42
Admin
Admin

Messages : 16120
Points : 28792
Date d'inscription : 21/06/2009
Age : 55
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

re merci

Message  CLAUDESAINT le Lun 9 Juil - 5:59

Encore merci David,
une question
Il y a possibilité de poster une vidéo ou une image, je voulais vous montrer le cor des alpes que nous avons mis au point

A+
Salutations
avatar
CLAUDESAINT
petit nouveau
petit nouveau

Messages : 9
Points : 13
Date d'inscription : 04/07/2018
Age : 56
Localisation : LYON

Revenir en haut Aller en bas

Re: Script reference croisée Cambam

Message  dh42 le Lun 9 Juil - 17:11

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

_________________

Traduction Française de CamBam et de sa documentation.
avatar
dh42
Admin
Admin

Messages : 16120
Points : 28792
Date d'inscription : 21/06/2009
Age : 55
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Concerto pour cor des alpes et visseuse

Message  CLAUDESAINT le Jeu 12 Juil - 11:06

Le lien vers la vidéo



Salutations


Dernière édition par dh42 le Jeu 12 Juil - 16:05, édité 1 fois (Raison : intégrer la vidéo)
avatar
CLAUDESAINT
petit nouveau
petit nouveau

Messages : 9
Points : 13
Date d'inscription : 04/07/2018
Age : 56
Localisation : LYON

Revenir en haut Aller en bas

Re: Script reference croisée Cambam

Message  dh42 le Jeu 12 Juil - 16:04

Salut,

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

++
David

_________________

Traduction Française de CamBam et de sa documentation.
avatar
dh42
Admin
Admin

Messages : 16120
Points : 28792
Date d'inscription : 21/06/2009
Age : 55
Localisation : Près de St Etienne (42)

http://dh42.free.fr/

Revenir en haut Aller en bas

Re: Script reference croisée Cambam

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum