Hallo
Ik wil een snijpunt maken tussen mijn 2 assen en er verschijnt een foutmelding: het aangeroepen object is losgekoppeld van zijn clients
Stel swApp = Toepassing.SldWorks in
Stel ModelDoc in = swApp.ActiveDoc
Deel instellen = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Axe1", "AXIS", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Axe2", "AXIS", 0, 0, 0, True, 1, Nothing, 0)
Dim vRefPointFeatures als object
vRefPointFeatures = Deel.FeatureManager.InsertReferencePoint(6, 0, 0.01, 1)
Bedankt voor je hulp
Hallo. Proberen:
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
Hallo
Het werkt heel goed, heel erg bedankt
Wat is het verschil tussen onwaar en waar?
- Toevoegen
| Taxus... | Een, als de entiteit is... | Dan... |
|---|
| Waar | Nog niet geselecteerd | Entiteit wordt toegevoegd aan de huidige selectielijst |
| | Reeds geselecteerd | Entiteit wordt verwijderd uit de huidige selectielijst |
| Vals | Nog niet geselecteerd | De huidige selectie wordt gewist en vervolgens wordt de entiteit op de lijst geplaatst |
| | Reeds geselecteerd | Huidige selectielijst blijft hetzelfde |
"True" in SelectByID2 is het equivalent van het indrukken van de "Shift"-toets bij het maken van meerdere selecties.
Als mijn antwoord werkt, markeer het dan als correct