Kompozycja makro w podróży

Out of category
1

Witam

Mam makro, które pozwala mi uruchamiać wiele poleceń w Solidworks z pliku Excel.

Chcę rozwinąć to makro, wykonując "Kompozycję do przejścia" zestawu, przed którym makro jest otwierane.

Chciałbym jednak wykluczyć niektóre utwory z kompozycji na wynos ze względu na ich nazwę (te, które znajdują się w standardowej bibliotece elementów), ale nie mogę znaleźć odpowiedniego kodu.

Oto link do kodu użytego do kompozycji na wynos: http://help.solidworks.com/2012/English/api/sldworksapi/Pack_and_Go_an_Assembly_Example_vb.htm

Czy wiesz, jak wykluczyć części z wiersza kodu?

Dziękuję

2

Witam

Zobacz tę odpowiedź w VB.NET:

https://forum.solidworks.com/thread/53030

Lub tutaj w VBA:

https://forum.solidworks.com/thread/109556

https://cloud.centralinnovation.com.au/sharpcode/index?article=Exclude-files-from-Pack-n-Go

 

3

.PL

Dziękuję za odpowiedź, która wydaje się odpowiadać temu, czego szukam.

Komponując na wynos, chcę wykluczyć utwory z "Bride" w nazwie.

Chcę jednak ocalić utwory w nowym repertuarze.

Muszę więc zmieszać te dwa kody, ale nie mogę tego zrobić.

Czy możesz mi pomóc?

Dziękuję.

4

Próbowałem użyć kodu jako załącznika, ale wszystkie części (nawet te o nazwie "Panna Młoda") są tworzone w nowym folderze.


compo.txt
5

Chciałbym zrobić tak jak na tym filmie, ale za pomocą makra:

https://youtu.be/vJgcFBKF49E

Myślisz, że to możliwe?

6

Dołącz kod do wiadomości wyjaśniający, na czym polega błąd lub w którym wierszu makra ulega awarii.

7

Kod znajduje się w pliku tekstowym poprzedniej wiadomości.

I jak powiedziano w komunikacie, makro działa poprawnie, ale żaden element nie jest wykluczony z kompozycji na wynos.

8

Przepraszam, nie widziałem.

Przyglądam się temu.

9

Czy możesz mi powiedzieć, w której części swojego kodu dokonałeś wykluczenia?

10

To właśnie w tej części należy dokonać wyłączenia:

Dim swModel As SldWorks.ModelDoc2
Dim swPackAndGo As SldWorks.PackAndGo
Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    If swModel.GetPathName() <> "*Bride*" Następnie

Z na końcu

    W przeciwnym razie
        
        MsgBox "Proszę zapisać dokument"
        
    Zakończ Jeśli
11

W jakim linku zauważyłeś, że wykluczenie zostało dokonane w ten sposób?

12

Witam

 

W tym linku: https://cloud.centralinnovation.com.au/sharpcode/index?article=Exclude-files-from-Pack-n-Go

Nie sądzę jednak, żebym używał go we właściwy sposób, ponieważ, jak rozumiem, wykluczone komponenty to te, które zawierają w swojej nazwie część nazwy zestawu. Chciałbym jednak wykluczyć komponenty, które zawierają określony tekst.

13

W linku, który umieścisz, wykluczenie odbywa się w następujący sposób:

 

Const SEARCH_TEXT As String = "NARZECZONA"

Jeśli InStr(1, name, SEARCH_TEXT, vbTextCompare) > 0 to

newDocNames(i) = ""

Inaczej

newDocNames(i) = nazwa

Zakończ jeżeli:

 

Więc to nie to samo, co napisałeś!

1 polubienie
14

Rzeczywiście, w ten sposób działa lepiej!

Nadal pracuję nad kodem, aby wykluczyć drugi ciąg przed zintegrowaniem go z kodem API Solidworks, aby móc wybrać folder docelowy kompozycji do zabrania.

Dziękujemy za help.PL

1 polubienie