| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| FMB, eine Veranstaltung am 05.11.2024
|
Autor
|
Thema: VB.net API: Kreis in Draufsicht (231 / mal gelesen)
|
met Mitglied CAD-Admin / Konstrukteur
Beiträge: 141 Registriert: 23.07.2004 Solidworks 2023 SP5
|
erstellt am: 24. Jul. 2024 08:01 <-- editieren / zitieren --> Unities abgeben:
|
ad_man Mitglied freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1384 Registriert: 20.12.2003 SolidWorks 2023 SP5 mit Enterprise PDM , Windows 11, Dell Precision 3660, i7-12700K, 96 GB DDR-Ram, Quadro RTX A4000
|
erstellt am: 24. Jul. 2024 08:09 <-- editieren / zitieren --> Unities abgeben: Nur für met
|
met Mitglied CAD-Admin / Konstrukteur
Beiträge: 141 Registriert: 23.07.2004 Solidworks 2023 SP5
|
erstellt am: 24. Jul. 2024 08:56 <-- editieren / zitieren --> Unities abgeben:
|
ad_man Mitglied freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1384 Registriert: 20.12.2003 SolidWorks 2023 SP5 mit Enterprise PDM , Windows 11, Dell Precision 3660, i7-12700K, 96 GB DDR-Ram, Quadro RTX A4000
|
erstellt am: 24. Jul. 2024 09:01 <-- editieren / zitieren --> Unities abgeben: Nur für met
|
met Mitglied CAD-Admin / Konstrukteur
Beiträge: 141 Registriert: 23.07.2004 Solidworks 2023 SP5
|
erstellt am: 24. Jul. 2024 13:08 <-- editieren / zitieren --> Unities abgeben:
Lösung gefunden ;-) Code:
Dim swApp As ObjectDim 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 |