Problemen met schetsrelaties (beperkingen) - Diameter Dimensie

3D Design
1

Een deeltekening is geopend,

Er is een schets actief.

De schets bevat een cirkel.

De cirkel is geselecteerd.

Ik kan geen diameterdimensie toevoegen met een van de volgende methoden

1. RelationManager.AddRelation(arrayOfObjects, swConstraintType_DIAMETER)
2. ModelDoc2.SketchAddConstraints("sgDIAMETER")

Is dit een bekende beperking/bug of mis ik iets?

 

2

Hallo nirantar.vigyarthee,

Wat is jullie solidworks-versie?

Ik heb 2020 SP4.

Ik ken dit probleem niet. Geef me alsjeblieft een opname van je scherm, en ik moet je documentoptie kennen om je te helpen.

Bedankt.

AR.

 


2022-08-22_134816.jpg
3

Wees voorzichtig @A.R  , het kan specifiek zijn voor Solidwatch (wat ik niet weet).

1 like
4

Misschien had ik expliciet moeten vermelden dat dit een API (programmering) gerelateerd probleem is.

Ik ben in staat om dimensie te creëren, maar de genoemde methoden werken niet.

5

Misschien eens kijken naar dit : https://help.solidworks.com/2020/english/api/sldworksapi/Constrain_Sketch_Example_VB.htm

1 like
6

Bedankt Sylk. Dat heb ik al gezien. Dia Dimension is niet inbegrepen.

7

Ik weet niet zeker wat de sgDIAMETER moet doen, maar het lijkt een gereserveerd woord zonder enig effect voor nu...

Maar misschien doet deze onderstaande code wat je wilt? :

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("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Dim myDisplayDim As Object
Set myDisplayDim = Part.AddDimension2(0, 0, 0)
Part.ClearSelection2 True

End Sub

goud

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

Dim myDisplayDim As Object

boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(0, 0, 0)

boolstatus = Part.Extension.SelectByID2("Arc2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(0, 0, 0)

Part.ClearSelection2 True

End Sub

 

1 like
8

Bedankt. Die methode heb ik al gebruikt. Ik wilde alleen maar bevestigen dat de twee genoemde methoden niet werken of dat ik iets miste.