---

Hallo, wie kann man denn z.B. einen Kreis auf die Skizze der aktiven Ansicht Zeichnen, der genau auf dem Ursprung einer Komponente liegt?

Hat vielleicht jemand ein Beispiel?

Danke im Voraus

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

---

Guten Morgen,

schau mal auf dieses Beispiel aus der API-Hilfe:

https://help.solidworks.com/2023/english/api/sldworksapi/Create_and_Edit_Circular_Sketch_Pattern_Example_VBNET.htm

Hoffe es ist das gesuchte 

------------------
==========
Gruß
Andreas
==========

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

---

Hallo und danke für die schnelle Antwort.
Aber das ist leider ein Bespiel für eine Skizze im 3D und nicht auf einer Zeichnung :-(

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

---

Moin,

hatte nicht gelesen, dass es um eine Zeichnung ging 

Dann versuch es mal mit:

https://www.codestack.net/solidworks-api/document/drawing/drawing-view-sketch/

Sollte dir zumindest einen Einstieg ermöglichen...

------------------
==========
Gruß
Andreas
==========

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

---

Lösung gefunden ;-)

Code:

---

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
   Dim mathUtil As MathUtility
   Set mathUtil = swApp.GetMathUtility
  
   Set Part = swApp.ActiveDoc
   boolstatus = Part.ActivateView("top")
   boolstatus = Part.Extension.SelectByID2("top", "DRAWINGVIEW", 9.71393865922133E-02, 0.158174591609961, 0, False, 0, Nothing, 0)
   Dim aktView As view
   Set aktView = Part.ActiveDrawingView
   Dim vPos(2) As Double
   Dim viewSketch As Sketch
   Set viewSketch = aktView.GetSketch
  
   Debug.Print aktView.Name
  
   Dim vComps As Variant
   vComps = aktView.GetVisibleDrawingComponents
  
   Dim drComp As DrawingComponent
   Set drComp = vComps(0)
  
   Dim mtvt As MathTransform
   Dim mtst As MathTransform
   Set mtst = viewSketch.ModelToSketchTransform
   Set mtvt = aktView.ModelToViewTransform
  
   vPos(0) = drComp.Component.Transform.ArrayData(9)
   vPos(1) = drComp.Component.Transform.ArrayData(10)
   vPos(2) = drComp.Component.Transform.ArrayData(11)
  
   Dim mp As MathPoint
   Set mp = mathUtil.CreatePoint(vPos)
   Set mp = mp.MultiplyTransform(mtvt.Multiply(mtst))
   Part.SketchManager.CreatePoint mp.ArrayData(0), mp.ArrayData(1), mp.ArrayData(2)
End Sub

---

[Diese Nachricht wurde von met am 24. Jul. 2024 editiert.]

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