Exporteren dxf

Out of category
1

Hallo groep, 

Kan iemand mij adviseren over de haalbaarheid van een macro. Ik werk met de mechanische lassers en ik zou dan graag een gezicht willen selecteren, zodat de macro de volgende stappen kan uitvoeren:

1-Behoud het geselecteerde oppervlak

2- Zoek de naam van mijn directory in mijn lijst van mechanische lassers volgens het geselecteerde oppervlak. (Ik denk dat ik moet zoeken op het lichaam en de naam van het oppervlak, maar kan ik gemakkelijk het lichaam met het oppervlak vinden) 

3- Exporteer het oppervlak met de naam van mijn directory in DXF 

Ik denk dat het mogelijk is, maar ik ben niet zo goed in programmeren, voordat ik begin, zou ik graag uw opmerkingen willen hebben.

Bedankt

2

Hallo.

Voor punt 1. Hieronder staat een code die ik gebruik om een component op te halen, maar die deze stap doorloopt.

Public swApp As Object
Public swmodel As SldWorks.ModelDoc2
Public asm As SldWorks.AssemblyDoc
Public composants() As Object
Public Selectmanager As SelectionMgr
Public bool1 As Boolean
Public y As Double
Public face As Face2
Public faceEntity As Entity
Public oss As String

Set swApp = Application.SldWorks
Set frame = swApp.frame
Set swmodel = swApp.ActiveDoc


   swmodel.ClearSelection2 True
    Set Selectmanager = swmodel.SelectionManager 'recuperer selection
    swmodel.ClearSelection2 True ' effacer selection
    MsgBox ("Sélectionner la piece ")
      
            ' boucle pour attente selection
    
                bool1 = False
                Do Until bool1 = True
                    If Selectmanager.GetSelectedObjectType3(1, -1) = 2 Then
                    bool1 = True
                    End If
                    For y = 1 To 50000
                    DoEvents
                    Next y
                Loop
    
            'recup le nom de la piece selectionnée
            Set face = Selectmanager.GetSelectedObject6(1, -1)
            Set faceEntity = face

 

Dan moet ik voor punt 2 een stukje code hebben, desnoods moet ik er naar zoeken.

 

Laten we eens kijken of punt 3 haalbaar is, ik heb dit geval nooit gehad.

In de hoop dat dit je kan helpen.

 

A. Mendes

 

1 like