[MAKRO][SW2013] Sterowanie wyciągnięciem prostym z zespołu

Witam

Piszę do Was, ponieważ mimo moich badań utknąłem na projekcie automatyzacji pod Solidworks 2013.

Zamierzam przywrócić kontekst na miejsce:

Utworzyłem makro, które otwiera formularz UserForm, w którym użytkownik wprowadza różne informacje. Podczas walidacji, montażu, systemu szynowego, modyfikuje się to poprzez dostosowanie jego długości. W rzeczywistości biorę długość pożądaną przez użytkownika i włączam maksymalnie "standardowe" szyny, które mają stałą długość. Pozostaje więc ostatnia prosta, która musi być dostosowana do indywidualnych potrzeb.

Mam w swoim zespole "specyficzny" kawałek szyny, który jest umieszczony w odpowiednim miejscu i na którym chciałbym zmieniać długość pozostałej wartości (którą znam, a która jest już powiązana ze zmienną).

Próbowałem to zrobić na kilka sposobów:

  • Bezpośrednio w zespole, wybierając opcję ma_cote@ma_piece@mon_assemblage
  • Wykonując part.editpart, następnie modyfikację i part.editassembly

Czy masz pomysł, co zrobić lub do jakiej kolejności powinienem się zwrócić? A może to niemożliwe?

Z góry dziękuję, jeśli możesz wymyślić jakiś lead :)

Pozdrowienia

Witam

Mówisz o normalnej części czy o części wirtualnej podczas montażu?

Witam!

Szyna wykonana na zamówienie jest normalną częścią

Pozdrowienia

Musisz więc otworzyć pokój:

http://help.solidworks.com/2013/english/api/sldworksapi/Open_Document_Example_VB.htm

Aby zmienić wymiar:

http://help.solidworks.com/2013/english/api/sldworksapi/Change_Dimension_Example_VB.htm

I możemy to zrobić w tle:

http://help.solidworks.com/2011/English/api/sldworksapi/Enable_Background_Processing_When_Opening_Drawing_Document_Example_VB.htm

 

2 polubienia

Fantastyczny

Patrzę na to od razu i staram się wrócić po południu.

Pozdrowienia

1 polubienie

Witam

Mimo moich prób nie udało mi się skorzystać z funkcji oferowanych przez .PL.

Nadal udało mi się uzyskać za pomocą części edycyjnej, która wygląda tak:

Part.Extension.SelectByID2("PREMIER_RAIL-1", "KOMPONENT", 0, 0, 0, Fałsz, 0, Nic, 0)
Część.EdycjaCzęść
Przyciemnij myDimension jako obiekt
Ustaw myDimension = Part.Parameter("D1@Boss.-Extru.1@PREMIER_RAIL. Część")
myDimension.SystemValue = Pole tekstowe15.Tekst / 1000
Part.ClearSelection2 Prawda
boolstatus = Part.EditRebuild3()
Part.EditAssembly (Montaż części)

 

Bardzo dziękuję za poświęcony czas i za informacje, które pozwoliły mi usprawnić moje wyszukiwanie

Jeśli możesz opublikować swoje pełne makro w pliku tekstowym, pozwala to każdemu cieszyć się Twoim kodem :)