So verwenden Sie Solidworks InsertReferencePoint

Out of category
1

Hallo

Ich möchte einen Schnittpunkt zwischen meinen 2 Achsen erstellen und es erscheint eine Fehlermeldung: Das aufgerufene Objekt ist von seinen Clients getrennt 

Legen Sie swApp = Application.SldWorks fest
Festlegen von ModelDoc = swApp.ActiveDoc

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Achse1", "ACHSE", 0, 0, 0, Wahr, 1, Nichts, 0)
boolstatus = Part.Extension.SelectByID2("Axe2", "AXIS", 0, 0, 0, Wahr, 1, Nichts, 0)
Dimmen vRefPointFeatures als Objekt
vRefPointFeatures = Part.FeatureManager.InsertReferencePoint(6, 0, 0.01, 1)

 

Danke für Ihre Hilfe

2

Hallo. Versuchen:

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

Hallo

 

Es funktioniert sehr gut, vielen Dank

Was ist der Unterschied zwischen falsch und wahr?

Anfügen
Eibe...Eine, wenn Entität ist...Dann...
STIMMTNoch nicht ausgewähltDas Objekt wird an die aktuelle Auswahlliste angehängt
 Bereits ausgewähltDas Objekt wird aus der aktuellen Auswahlliste entfernt
FALSCHNoch nicht ausgewähltDie aktuelle Auswahl wird gelöscht, und dann wird die Entität in die Liste aufgenommen
 Bereits ausgewähltDie aktuelle Auswahlliste bleibt gleich
4

"True" in SelectByID2 entspricht dem Drücken der Umschalttaste beim Ausführen einer Mehrfachauswahl.

Wenn meine Antwort funktioniert, markieren Sie sie bitte als richtig