Jak korzystać z Solidworks InsertReferencePoint

Out of category
1

Witam

Chcę utworzyć punkt przecięcia między moimi 2 osiami i pojawia się komunikat o błędzie: wywoływany obiekt jest odłączony od swoich klientów

Ustaw swApp = Application.SldWorks
Ustaw ModelDoc = swApp.ActiveDoc

Ustaw część = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Oś1", "OŚ", 0, 0, 0, Prawda, 1, Nic, 0)
boolstatus = Part.Extension.SelectByID2("Oś2", "OŚ", 0, 0, 0, Prawda, 1, Nic, 0)
Dim vRefPointFeatures As Object
vRefPointFeatures = Part.FeatureManager.InsertReferencePoint(6, 0, 0.01, 1)

 

dziękuję za pomoc

2

Witam. Próbować:

Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim vFeat As Variant
Dim boolstatus As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
boolstatus = swModel.Extension.SelectByID2("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = swModel.Extension.SelectByID2("Axis2", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
vFeat = swModel.FeatureManager.InsertReferencePoint(swRefPointType_e.swRefPointIntersection, 0, 0.01, 1)
swModel.ClearSelection2 True
End Sub

 

3

Witam

 

Działa bardzo dobrze, bardzo dziękuję

Jaka jest różnica między fałszem a prawdą?

Dołączyć
Cis...A, jeśli byt jest...Wtedy...
PrawdziwyJeszcze nie wybranoEncja jest dołączana do bieżącej listy wyboru
 Już wybraneEncja została usunięta z bieżącej listy wyboru
FałszywyJeszcze nie wybranoBieżący wybór jest czyszczony, a następnie encja jest umieszczana na liście
 Już wybraneBieżąca lista wyboru pozostaje taka sama
4

"True" w SelectByID2 jest odpowiednikiem naciśnięcia "Shift" podczas dokonywania wielu wyborów.

Jeśli moja odpowiedź działa, oznacz ją jako poprawną