---

Hallo liebe User,

ich suche eine Möglichkeit, ein SketchSegment (Circle, CreateCenterRectangle) auf eine SketchEbene zu positionieren. Mein Problem dabei ist, das '.CreateSketchPlane' nur ein boolean ausgibt und kein Object.
Eine Referenzebene aus den feature müsste ich hingegen vor der skizze erstellen, wobei ich da auch noch nicht weiß, wie ich den Kreis dann auf diese ausrichten kann, da die Argumente der SketchSegments ja nur Koordinaten sind.

aktuell sieht es so aus:

Code:

---

Set skPt1 = swPart.SketchManager.CreatePoint(DefPt1(i, 0), DefPt1(i, 1), DefPt1(i, 2))
Set skLinie = swPart.SketchManager.CreateLine(DefPt1(i, 0), DefPt1(i, 1), DefPt1(i, 2), DefPt2(i, 0), DefPt2(i, 1), DefPt2(i, 2))
'beachte: skLinie kann mitten im Raum liegen (auch schräg)!

skPt1.Select4 False, Nothing
skLinie.Select4 True, Nothing

skPlane = swPart.SketchManager.CreateSketchPlane(swConstraintType_COINCIDENT, swConstraintType_PERPENDICULAR, swConstraintType_INVALIDCTYPE)

skPt1.Select4 False, Nothing
'? select skPlane

'Annahme: skLinie ist parallel zur y-Achse --> Xp, Yp + a  oder Zp + a
'? skCirc = swPart.SketchManager.CreateCircle(DefPt1(i, 0), DefPt1(i, 1), DefPt1(i, 2), DefPt1(i, 0), DefPt1(i, 1) + a, DefPt1(i, 2) + a)

---

Angenommen, skLinie ist parallel zur Y-Achse:
Wenn ich im Befehl CreateCircle(XC, YC, Zc, Xp, Yp, Zp) bei Yp oder Zp einen Wert dazu addiere, zeichnet er mit den Kreis zwar mit Mittelpunkt bei SkPt1, aber egal wo ich den Wert dazu addiere, zeichnet er den Kreis immer parallel zur x-y-Basisebene.

Kann mir hier wer weiterhelfen?

Grüße, Rosco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Rosco,

Wie selektierst du denn die Ebene auf der du den Kreis erstellen willst?!

Probier es mal so:

Code:

---

Boolstatus = swmodel.Extension.SelectByID2("Deine_Ebene", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
swmodel.SketchManager.InsertSketch(True)

---

Hier noch ein Link mit einen Beispiel.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rosco,

Versuch es mal mit SelectByID2 und dem Typ "SKETCHSURFACE", geht zumindest bei mir um zwischen Skizzenebenen zu wechseln.

Code:

---

boolstatus = swModel.Extension.SelectByID2("Ebene1", "SKETCHSURFACES", 0, 0, 0, False, 0, Nothing, 0)
swModel.ActivateSelectedFeature

---

Das fiese ist der Typ steht nicht in der API-Hilfe, habe hierzu einfach mal den Macrorecorder bemüht was dieser beim Ebenenwechsel tut  .

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erst mal für die Antworten.

An SelectbyID hab ich auch schon gedacht, aber da müsste ich mir dann den Namen der Ebene immer zusammenbasteln, da ich mehrere Ebenen erstelle (der Code befindet sich in einer for-schleife).

die SketchEbene wird eben als boolean zurück gegeben: siehe
http://help.solidworks.com/2012/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISketchManager~CreateSketchPlane.html

Dim instance As ISketchManager
Dim Relation1 As Integer
Dim Relation2 As Integer
Dim Relation3 As Integer
Dim value As Boolean

value = instance.CreateSketchPlane(Relation1, Relation2, Relation3)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Rosco,

Dann gibt den Ebenen doch gleich Namen mit wenn du die erstellst:

Code:

---

Dim myRefPlane As Object
        myRefPlane = swmodel.FeatureManager.InsertRefPlane(128, 0, 128, 0, 0, 0)
        swmodel.ClearSelection2(True)
        If myRefPlane Is Nothing Then ''Prüfen ob Ebene erstellt wurde
            Windows.Forms.MessageBox.Show("Fehler")
            Exit Sub
        End If
        Dim Ebene_Name As String = myRefPlane.name
        myRefPlane.name = "Meine_neue_Ebene"

---

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten,

Referenzebenen und Sketchebenen sind aber nicht das gleiche. Wie im Befehl schon zu erkennen:

myRefPlane = swmodel.FeatureManager.InsertRefPlane(...)  ist ein Feature, ausserhalb einer Skizze  --> object.
skPlane = swPart.SketchManager.CreateSketchPlane(...)  ist eine Hilfsebene in einer Skizze -->  boolean.

Prinzipiell überlege ich auch gerade, Punkte, Linien und Ebenen erst über features/Referenzelemente zu erstellen, sie abzuspeichern und diese dann als Basis für eignen Skizzen mit den jeweiligen Kreisen udn Rechtecken zu verwenden.

[Diese Nachricht wurde von Rosco am 05. Nov. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Rosco,

Jetzt habe ich es dann auch gesehen das du die Skizzierebene benötigst.
Da kann ich dir so nicht weiter helfen.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP