Kombinace - odečtení těles
Napsal: úte 09. úno 2010 8:34:17
Níže můžete vidět makro pro vytvoření kombinace dvou těles, které jsou pojmenovány "Vysunout1" a "Vysunout2". Při vytváření těles nesmíte zapomenout zrušit sloučení těles. Operace odečtení je označena číslem 15902. Součet či průnik jsou tvořeny obdobně, avšak s jiným značením operace.
!!! Kdyby mi někdo dokázal poradit, jak měnit "Hlavní tělo" za "Tělo ke spojení" v již vytvořeném prvku kombinace, tedy jeho úpravou, byl bych moc rád !!! Díky a snad jsem někomu alespoň trochu pomohl...
-----------------------------------------------------------------------------------------------------------------------------
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("Vysunout1", "SOLIDBODY", 0, 0, 0, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Vysunout2", "SOLIDBODY", 0, 0, 0, True, 2, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertCombineFeature(15902, Nothing, Nothing)
End Sub
-->
swpavelapi
Příspěvky: 3
Registrován: pát 22. led 2010 7:40:30
* Soukromá zpráva
!!! Kdyby mi někdo dokázal poradit, jak měnit "Hlavní tělo" za "Tělo ke spojení" v již vytvořeném prvku kombinace, tedy jeho úpravou, byl bych moc rád !!! Díky a snad jsem někomu alespoň trochu pomohl...
-----------------------------------------------------------------------------------------------------------------------------
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("Vysunout1", "SOLIDBODY", 0, 0, 0, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Vysunout2", "SOLIDBODY", 0, 0, 0, True, 2, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertCombineFeature(15902, Nothing, Nothing)
End Sub
-->
swpavelapi
Příspěvky: 3
Registrován: pát 22. led 2010 7:40:30
* Soukromá zpráva