Eine Teilezeichnung ist geöffnet,
Eine Skizze ist aktiv.
Die Skizze enthält einen Kreis.
Der Kreis wird ausgewählt.
Ich kann mit keiner der folgenden Methoden eine Durchmesserbemaßung hinzufügen
1. RelationManager.AddRelation(arrayOfObjects, swConstraintType_DIAMETER)
2. ModelDoc2.SketchAddConstraints("sgDIAMETER")
Ist das eine bekannte Einschränkung / Bug oder übersehe ich etwas?
Hallo nirantar.vigyarthee,
Was ist Ihre SOLIDWORKS Version?
Ich habe 2020 SP4.
Ich kenne dieses Problem nicht. Geben Sie mir bitte eine Aufnahme Ihres Bildschirms, und ich muss Ihre Dokumentoption kennen, um Ihnen zu helfen.
Vielen Dank.
AR.
Seien Sie vorsichtig @A.R , es kann spezifisch für Solidwatch sein (was ich nicht weiß).
Vielleicht hätte ich explizit erwähnen sollen, dass es sich um ein API-Problem (Programmierung) handelt.
Ich bin in der Lage, eine Dimension zu erstellen, aber die genannten Methoden funktionieren nicht.
Schauen Sie sich vielleicht das an : https://help.solidworks.com/2020/english/api/sldworksapi/Constrain_Sketch_Example_VB.htm
Danke Sylk. Das habe ich schon gesehen. Dia Dimension ist nicht enthalten.
Ich bin mir nicht sicher, was der sgDIAMETER tun soll, aber es sieht aus wie ein reserviertes Wort ohne Wirkung für den Moment...
Vielleicht macht dieser Code jedoch das, was Sie möchten? :
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
Gold
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
Danke. Ich habe diese Methode bereits angewendet. Ich wollte nur bestätigen, dass die beiden genannten Methoden nicht funktionieren oder mir etwas fehlt.