Wybieranie obiektów na rysunku za pomocą vba

Out of category
1

Witam

 

Nadal jestem na moim zestawie montażowym i prawie się do tego zbliżam. Brakuje mi małego elementu.

Aby dokończyć mój projekt, otwieram rysunek i proszę go, aby ustawił mnie z widokami kilku pomieszczeń. Do tej pory wszystko jest w porządku, z wyjątkiem tego, że natknąłem się na monetę z dwoma ciałami i chcę mieć widok mojego pierwszego ciała rozłożonego i widok mojego drugiego ciała.

Oto przykład mojej procedury odzyskiwania widoków.

Set swModel = swApp.OpenDoc6("Z:\MACHINE\CONFO\0 confo ORIGINE 3D\Sheet metal confo ORIGINE.slddrw", 3, 0, "", longstatus, longwarnings)    
    Ustaw część = swApp.ActiveDoc
    
    Ustaw myModelView = Part.CreateDrawViewFromModelView2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " base.sldprt", "*Góra", 0.33, 0.68, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("d1"). Value2 & " base.sldprt", "Domyślnie")

    Ustaw myModelView = Part.CreateDrawViewFromModelView2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " skrzydło.sldprt", "*Twarz", 0.33, 0.43, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " wing.sldprt", "Domyślnie")

    Ustaw myModelView = Part.CreateDrawViewFromModelView2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " corridor.sldprt", "*Twarz", 0.33, 0.18, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 i "corridor.sldprt", "Domyślnie")

    Ustaw myModelView = Part.CreateDrawViewFromModelView2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " corridor.sldprt", "*Twarz", 0.95, 0.68, 0)
    'boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 i "corridor.sldprt", "Domyślnie")

    Ustaw myModelView = Part.CreateDrawViewFromModelView2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " zbrojenie base.sldprt", "Stan rozłożony", 0.95, 0.43, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 i "zbrojenie base.sldprt", "Domyślnie")

Pomieszczenie, o którym mowa, to pomieszczenie z corridor.sldprt.

 

Pozdrowienia.

2
Witam Aby ukryć treść, możesz użyć metody display3 interfejsu ibody2. Najpierw należy wyświetlić listę obiektów z wyliczeniami2
3
Witam Aby ukryć treść, możesz użyć metody display3 interfejsu ibody2. Najpierw należy wyświetlić listę obiektów z wyliczeniami2
4

Dzięki za informację, ale jak mogę zintegrować te instrukcje?

 

Pozdrowienia.

5

Udało mi się otworzyć pokój z precyzyjną konfiguracją, a także dodać swój widok

boolstatus = Part.Extension.SelectByID2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " corridor.sldprt", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)
    boolstatus = Part.ShowConfiguration2("corps_couloir")
    Ustaw myModelView = Part.CreateDrawViewFromModelView2("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 i "corridor.sldprt", "Stan rozłożony", 0.45, 0.18, 0)
    boolstatus = Part.ChangeRefConfigurationOfFlatPatternView("Z:\MACHINE\CONFO\" & Range("d1"). Wartość2 & " corridor.sldprt", "corps_couloir")

1 polubienie