Witam wszystkich, obecnie szukam sposobu na zautomatyzowanie reorientacji widoku z przodu pliku zaimportowanego bezpośrednio ze strony producenta, w przeciwnym razie część nie zostanie rozpoznana na Altium. Tylko oryginalne ujęcia nie są dobrze zorientowane, a plik przesłany na stronę nie pozwala mi na jego modyfikację.
Myślę, że możesz spojrzeć na funkcję Kopiuj ruch http://help.solidworks.com/2016/french/solidworks/sldworks/hidd_dve_feat_move_surf.htm
sprawdź, czy funkcja odpowiada i w jakim przypadku będziesz mógł zapisać makro tego, co Cię interesuje (Obrót o 90° na X lub Y lub Z)
@MaD, jak mogłem zrozumieć, nie próbuje przesunąć pokoju, ale zmienić widok pokoju.
Spróbuj za pomocą rejestratora makr umieścić się na nim i sprawdź, czy masz użyteczny kod.
@KVuilleumier, jest to orientacja części, którą chcę móc modyfikować w odniesieniu do układu współrzędnych, tak aby widok z przodu był tym, którego chcę. Muszę też na nowo zdefiniować rozmieszczenie markera, może powinienem był najpierw przez to przejść. Jestem nowicjuszem w solidworks, wcześniej byłem na ProE i więc nie wiem jak się do tego zabrać, zwłaszcza, że nie wiem, jak robić makro (kiedyś będę musiał się tego nauczyć).
Dziękuję za odpowiedzi!
Czy możesz umieścić część, którą masz na początku i powiedzieć nam, w jakim kierunku chcesz na końcu?
To jest utwór, który jest tylko po to, aby fizycznie zilustrować to, co chcę zrobić. Widok z przodu jest obecnie widokiem przebitym, chcę zmienić orientację elementu w stosunku do układu współrzędnych, aby widok z przodu był na bieżącej powierzchni góry (nie wierconej).
Ten kod działa, zostawię go Tobie dostosowanemu do Twoich potrzeb
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Congé9", "SOLIDBODY", 0.306720518918638, 0.145146136734809, 2.68172410638385E-02, False, 1, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertMoveCopyBody2(0, 0, 0, 0, 0, 0, 0, 0, 0, 1.5707963267949, False, 1)
End Sub
Aby uzyskać informacje na temat tej funkcji, zobacz ten link
Dla przykładowego makra programowego http://help.solidworks.com/2016/english/api/sldworksapi/Move_Bodies_Example_VB.htm
'-------------------------------------------------------------
' Preconditions:
' 1. Specified part document to open exists.
' 2. Run the macro.
'
' Postconditions: All of the bodies in the part document
' are moved to the specified location.
'
' NOTE: Because this part is used elsewhere, do not save
' any changes when closing it.
'--------------------------------------------------------------
Option Explicit
Sub SelectBodies(swApp As SldWorks.SldWorks, swModel As SldWorks.ModelDoc2, bodyArr As Variant)
' Select and mark the bodies to move
Dim swSelMgr As SldWorks.SelectionMgr
Dim swSelData As SldWorks.SelectData
Dim body As Variant
Dim swBody As SldWorks.Body2
Dim status As Boolean
Set swSelMgr = swModel.SelectionManager
Set swSelData = swSelMgr.CreateSelectData
If IsEmpty(bodyArr) Then Exit Sub
For Each body In bodyArr
Set swBody = body
swSelData.Mark = 1
status = swBody.Select2(True, swSelData)
Next body
End Sub
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim bodyArr As Variant
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeat As SldWorks.Feature
Dim fileName As String
Dim errors As Long
Dim warnings As Long
Set swApp = Application.SldWorks
fileName = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\multibody\multi_inter.sldprt"
Set swModel = swApp.OpenDoc6(fileName, swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
Set swPart = swModel
Set swFeatMgr = swModel.FeatureManager
swModel.ClearSelection2 True
' Get the bodies to move
bodyArr = swPart.GetBodies2(swAllBodies, false)
SelectBodies swApp, swModel, bodyArr
' Move the bodies
Set swFeat = swFeatMgr.InsertMoveCopyBody2(0.1, 0.2, 0.3, 0#, 0#, 0#, 0#, 0#, 0#, 0#, False, 1)
End Sub
Bardzo dziękuję za wskazówki, postaram się to wszystko zrealizować. Będę Was informował na bieżąco, jeśli makro zadziała z mojej strony.
Cóż, wypróbowałem makro po opanowaniu solidworks. Zmieniłem nazwę pliku na część, którą chciałem, ale podczas uruchamiania makra część została wyrzucona tylko bardzo daleko od swoich płaszczyzn, ale jej orientacja pozostała taka sama, a płaszczyzny mają taką samą zbieżność na swoich powierzchniach , jak przed uruchomieniem makra.
Postaram się lepiej wytłumaczyć na temat mojego problemu. Chcę zmienić widok z góry na przód. Bo kiedy chcę zrobić swój rysunek w SW, chcę zrobić projekt widoków mojej przedniej płaszczyzny.
Mam nadzieję, że wyrażam się wystarczająco jasno, nawet jeśli przyznam, że mam trochę problemów z wyjaśnieniem, co chcę zrobić, w każdym razie dziękuję!
Drugie makro to przykład mecro w twoim przypadku zmieniony
InsertMoveCopyBody2(0.1, 0.2, 0.3, 0#, 0#, 0#, 0#, 0#, 0#, 0#, False, 1)
przez
InsertMoveCopyBody2(0, 0, 0, 0, 0, 0, 0, 0, 0, 1.5707963267949, False, 1)
gdzie 1,57 to wartość obrotu w radianach
Dowiedz się więcej o funkcji InsertMoveCopy http://help.solidworks.com/2016/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.ifeaturemanager~insertmovecopybody2.html
Makro działa doskonale po zastąpieniu linii insertmovecopybody, ale zdałem sobie sprawę, że wolałbym obrócić część o 180° na Y, zachowując stały układ współrzędnych i płaszczyzny.
Dziękuję za to makro, które jest dla mnie bardzo przydatne!
Pozwolę Ci oznaczyć swój problem jako rozwiązany w tym przypadku, jeśli chodzi o obrót Y, pozwolę Ci umieścić wartość w tej samej linii, którą zmodyfikowałeś, zajrzyj do wcześniej podanej pomocy, aby przedziurawić położenie obrotu Y
Okej, a dla informacji zmieniłem też ścieżkę do nazwy pliku tak, że po uruchomieniu Makra to moja część jest aktywna w solidworks i nie zawsze taka sama jak nazwa pliku, na którym wykonywana jest operacja.
Jeszcze raz dziękujemy za bardzo cenną pomoc!