| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| AMB |
Autor
|
Thema: Einfügepunkt SketchText im VBA selektieren (520 / mal gelesen)
|
Thor16 Mitglied Konstrukteur
Beiträge: 82 Registriert: 27.08.2019 SolidWorks 2022 Windows 10 x64
|
erstellt am: 19. Nov. 2021 10:55 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich möchte ein vorhandenes Makro bei uns etwas überarbeiten. In diesem werden unter anderem SketchTexte in einer Skizze eingefügt und an einer Linie ausgerichtet. Leider ist dieser SketchText dann immer noch nicht vollständig positioniert und die Skizze bleibt unterdefiniert. Nun meine Frage, weiß jemand wie ich den Einfügepunkt des SketchTextes in VBA selektieren kann? Ich habe bisher bedauerlicherweise nichts passendes gefunden. Viele Grüße Torsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RBE Mitglied TechSupport; Bechtle PLM Deutschland GmbH
Beiträge: 291 Registriert: 11.02.2002 HP ZBook 17 G5 Core i9 2.9GHz 32GB RAM Quadro P4200 Win11 SolidWorks2024 SP1
|
erstellt am: 22. Nov. 2021 11:15 <-- editieren / zitieren --> Unities abgeben: Nur für Thor16
Hi Torsten, wie viele Skizzenelemente hat die Skizze denn? Wenn in der Skizze nur die Linie und der Skizzentext vorhanden sind, könntest Du z.B. mit Sketch::GetSketchPoints2 die Skizzenpunkte holen (das sollten drei sein) und dann schauen, welcher noch keine Beziehungen hat. Das ist dann der von Deinem Text und Du kannst ihn fixieren o.ä. Das funktioniert natürlich nur, wenn die Linienendpunkte definiert und keine weiteren Skizzenelemente vorhanden sind.
------------------ Grüße, RBE ---------- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thor16 Mitglied Konstrukteur
Beiträge: 82 Registriert: 27.08.2019 SolidWorks 2022 Windows 10 x64
|
erstellt am: 22. Nov. 2021 13:32 <-- editieren / zitieren --> Unities abgeben:
Hallo RBE, vielen Dank für Deinen Vorschlag. Leider gibt es in der Skizze mehrere Linien, Kreise und Punkte. Aber dennoch hört es sich sehr interessant an. Wenn der SketchText eingefügt wird sollten alle anderen Punkte definiert sein. Damit müsste ich eigentlich den Punkt, wie von Dir vorgeschlagen, finden und auswählen können. Mal schauen ob ich es hinbekomme. Viele Grüße Torsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RBE Mitglied TechSupport; Bechtle PLM Deutschland GmbH
Beiträge: 291 Registriert: 11.02.2002 HP ZBook 17 G5 Core i9 2.9GHz 32GB RAM Quadro P4200 Win11 SolidWorks2024 SP1
|
erstellt am: 22. Nov. 2021 13:38 <-- editieren / zitieren --> Unities abgeben: Nur für Thor16
Im Zweifelsfall kannst Du natürlich auch noch die Koordinaten abgleichen. Der Punkt, welcher nicht den End- bzw. Mittelpunktkoordinaten von Linien, Kreisen und Kreisbögen etc. entspricht, ist der Textpunkt. ------------------ Grüße, RBE ---------- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thor16 Mitglied Konstrukteur
Beiträge: 82 Registriert: 27.08.2019 SolidWorks 2022 Windows 10 x64
|
erstellt am: 23. Nov. 2021 09:25 <-- editieren / zitieren --> Unities abgeben:
Hallo RBE, vielen Dank für Deine Antwort. Ich habe es jetzt so gemacht, dass ich den SketchText immer bei bestimmten Koordinaten einfüge und dann den Punkt bei diesen Koordinaten suche und weiter verwende. Hierzu habe ich mich etwas bei den Beispielen zu GetSketchPoints2 bedient. Code: vSketchPt = swSketch.GetSketchPoints2 For i = 0 To UBound(vSketchPt) Set swSketchPt = vSketchPt(i) bRet = swSketchPt.Select4(True, swSelDataRS1) vSketchPtID = swSketchPt.GetID If swSketchPt.X = 0.2 And swSketchPt.Y = 0.2 Then skPointNameSPkt = "Punkt" & vSketchPtID(1) Else End If Next i
Viele Grüße Torsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |