Witam
Pracuję nad modelem 3D w Solidworks. Chciałbym wiedzieć, jaka jest interferencja między dwiema ścianami z różnych części (na przykład Twarz1 z Body1 koliduje z Face1 z Body2). Chciałbym sprawdzić automatyczne przenikanie między powierzchniami za pomocą makra w Visual Basic For Application. Próbuję makra, ale to nie działa, ktoś może mi pomóc proszę?
Bardzo dziękuję.
Witam
Próbuję makra, ale to nie działa. Ktoś może mi pomóc proszę?
Dziękuję Ci :)
Zakłócenia podrzędne()
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssembly jako SldWorks.AssemblyDoc
Dim swModelExt As SldWorks.ModelDocExtension
Dim swComp As SldWorks.Component2
Dim swComp1 jako SldWorks.Component2
Dim swBody jako SldWorks.Body2
Dim swModeler jako SldWorks.Modeler
Sun swSelMgr jako SldWorks.SelectionMgr
Dim CompArray() jako SldWorks.Component2
Dim swSelData As SldWorks.SelectData
Deklaracja zmiennych
Dim OutputPath As String
Dim OutputFN jako ciąg
Przyciemnij komponent jako wariant
Dim Component1 As Variant
Przyciemnij komponenty jako wariant
Przyciemnij komponenty1 jako wariant
Dim Deselection As Boolean
Dim Deselekcja1 Ace Boolean
Dim arrBody As Variant
Przyciemnij twarz jako wariant
Dim arrBody1 As Variant
Dim arrFace1 As Variant
Dim a As Boolean
Dim i As Liczba całkowita
Dim i1 jako liczba całkowita
Słońce j tak długo
Dim k As liczba całkowita
Dim k1 jako liczba całkowita
Zakłócenie przyćmione jako wartość logiczna
Dim bRet As Boolean
Komórka1 = 1
Ustaw swApp = Application.SldWorks
Ustaw swModeler = swApp.GetModeler
"Użyj aktywnego dokumentu
Ustaw swModel = swApp.ActiveDoc
Ustaw swAssembly = swModel
Ustaw swModelExt = swModel.Extension
Ustaw swSelMgr = swModel.SelectionManager
Ustaw swSelData = swSelMgr.CreateSelectData
Komponenty = swAssembly.GetComponents(False)
Components1 = swAssembly.GetComponents(False)
' dla każdego komponentu (artykułu) w zbiorze części (złożeniu)
Dla każdego komponentu w komponentach
Ustaw swComp = Komponent
Jeśli swComp.GetSuppression <> 0, to
arrBody = swComp.GetBodies2(0)
Zakończ jeżeli:
Dla i = 0 Do UBound(arrBody)
Ustaw swBody = arrBody(i)
arrFace = swBody.GetFaces
Dla k = 0 TB UBound(arrFace)
Ustaw swFace = arrFace(k)
Ustaw swEnt = swFace
a = swEnt.Select4(True, swSelData)
Dla każdego komponentu1 w komponentach1
Ustaw swComp1 = Komponent1
Jeśli swComp1.GetSuppression <> 0, to
arrBody1 = swComp1.GetBodies2(0)
Zakończ jeżeli:
Dla i1 = 0 Do UBound(arrBody1)
Ustaw swBody1 = arrBody1(i)
arrFace1 = swBody1.GetFaces
Dla k1 = 0 TB UBound(arrFace1)
Ustaw swFace1 = arrFace1(k1)
Ustaw swEnt1 = swFace1
a1 = swEnt1.Select4(True, swSelData)
Interferencja = swModeler.ICheckInterference3(swFace, swFace1, Nic)
Debug.Print "Zakłócenia"; Interferencja
Jeśli swModel.GetEntityName(swFace) <> swModel.GetEntityName(swFace1) Następnie
DeselectionFace = swEnt1.DeSelect()
Zakończ jeżeli:
Następny k1
Następny i1
Następny komponent1
DeselectionFace1 = swEnt.DeSelect()
Następny k
Dalej i
Następny komponent
Koniec subwoofera
Witam
Jaki wiersz kodu zwraca błąd?
Jakiego rodzaju jest to błąd?
Dzień dobry
Witam
Nie udało mi się wygospodarować trochę czasu na dogłębne przyjrzenie się kodowi, ale muszę zauważyć:
Po pierwsze, w pomocy Solid znajduje się przykładowy kod, który używa ToolsCheckInterference2 zamiast ICheckInterference3.
Sprawdź tutaj składnię : http://goo.gl/XpqGvH
Sprawdź tutaj próbkę: http://goo.gl/swzFlH
Ponadto, podczas korzystania z ICheckInterference3, uwaga w pomocy (http://goo.gl/ZFJkDc) zaleca wywołanie IModeler::ICheckInterferenceCount3 (http://goo.gl/5cRR4Q) wcześniej, aby przydzielić pamięć dla tablic zwróconych przez tę metodę.
Więc może dlatego twoje makro nie działało.