Lichamen selecteren in tekenen met vba

Out of category
1

Hallo

 

Ik ben nog steeds bezig met mijn montage-opstelling en ik kom er bijna. Ik mis een klein element.

Om mijn project af te maken, open ik een tekening en vraag ik hem om me te positioneren met uitzicht op verschillende kamers. Tot nu toe gaat het goed met je, behalve dat ik een munt tegenkom met 2 lichamen, en ik wil een zicht hebben op mijn eerste lichaam uitgeklapt, en een zicht op mijn tweede lichaam.

Hier is een voorbeeld van mijn procedure voor het herstellen van meningen.

Set swModel = swApp.OpenDoc6("Z:\MACHINE\CONFO\0 confo ORIGINE 3D\Plaatwerk confo ORIGINE.slddrw", 3, 0, "", longstatus, longwarnings)    
    Deel instellen = swApp.ActiveDoc
    
    Stel myModelView = Part.CreateDrawViewFromModelView2("z:\machine\confo\" & bereik("d1") in. Waarde2 & " base.sldprt", "*Top", 0.33, 0.68, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Bereik("D1"). Value2 & " base.sldprt", "Standaard")

    Stel myModelView = Part.CreateDrawViewFromModelView2("z:\machine\confo\" & bereik("d1") in. Waarde2 & " wing.sldprt", "*Gezicht", 0.33, 0.43, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Bereik("D1"). Value2 & " wing.sldprt", "Standaard")

    Stel myModelView = Part.CreateDrawViewFromModelView2("z:\machine\confo\" & bereik("d1") in. Waarde2 & " corridor.sldprt", "*Gezicht", 0.33, 0.18, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Bereik("D1"). Waarde2 & "corridor.sldprt", "Standaard")

    Stel myModelView = Part.CreateDrawViewFromModelView2("z:\machine\confo\" & bereik("d1") in. Waarde2 & " corridor.sldprt", "*Gezicht", 0.95, 0.68, 0)
    'boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("D1"). Waarde2 & "corridor.sldprt", "Standaard")

    Stel myModelView = Part.CreateDrawViewFromModelView2("z:\machine\confo\" & bereik("d1") in. Waarde2 & "base.sldprt versterking", "Uitgevouwen toestand", 0.95, 0.43, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Bereik("D1"). Value2 & "base.sldprt versterking", "Standaard")

De kamer in kwestie is die met corridor.sldprt.

 

Vriendelijke groeten.

2
Hallo Om een body te verbergen kun je de display3 methode van de ibody2 interface gebruiken. U moet eerst de lichamen met enumbodies2 vermelden
3
Hallo Om een body te verbergen kun je de display3 methode van de ibody2 interface gebruiken. U moet eerst de lichamen met enumbodies2 vermelden
4

Bedankt voor de info, maar hoe kan ik deze instructies integreren?

 

Vriendelijke groeten.

5

Ik slaagde erin om de kamer met een precieze configuratie te openen en mijn uitzicht toe te voegen

boolstatus = Part.Extension.SelectByID2("Z:\MACHINE\CONFO\" & Bereik("d1"). Waarde2 & " corridor.sldprt", "CONFIGURATIES", 0, 0, 0, Onwaar, 0, Niets, 0)
    boolstatus = Deel.ShowConfiguration2("corps_couloir")
    Stel myModelView = Part.CreateDrawViewFromModelView2("z:\machine\confo\" & bereik("d1") in. Waarde2 & "corridor.sldprt", "Uitgevouwen toestand", 0.45, 0.18, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Bereik("D1"). Waarde2 & " corridor.sldprt", "corps_couloir")

1 like