Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  VBA: XYZ-Koordinaten auslesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
InnovationForum Medizintechnik, eine Veranstaltung am 23.10.2025
Autor Thema:  VBA: XYZ-Koordinaten auslesen (2803 mal gelesen)
PaBü
Mitglied
Maschinenbauingenieur


Sehen Sie sich das Profil von PaBü an!   Senden Sie eine Private Message an PaBü  Schreiben Sie einen Gästebucheintrag für PaBü

Beiträge: 61
Registriert: 10.06.2005

erstellt am: 16. Aug. 2008 09:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Guten Morgen,

weil es bei SWXSolidWorks kein richtiges Außengewindefeature gibt, wollte ich selber eines "schreiben". D.h. Kerndurchmesser und Gewindebeschreibung werden aus einer Liste per Clicken ausgewählt.

Zur Zeit stehe ich aber wieder etwas auf dem Schlauch.

Für SelectByID2 benötige ich die XYZ-Koordinaten der ausgewählten Kante (Edge). Hat jemand einen Code-Schnippsel der anzeigt, wie ich die Eigenschaften der angeclickten Edge auslesen kann?

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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

Nobbi
Mitglied
Techniker


Sehen Sie sich das Profil von Nobbi an!   Senden Sie eine Private Message an Nobbi  Schreiben Sie einen Gästebucheintrag für Nobbi

Beiträge: 151
Registriert: 21.08.2002

Windows 10 Enterprise
SW2001 - SW2019
MDT
ACPIx64-basierter PC
NVIDIA Quadro M4000
Space Pilot
SAP-Cideon

erstellt am: 17. Aug. 2008 17:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für PaBü 10 Unities + Antwort hilfreich

Hi Pa Bue

Schau hier mal rein

http://solidworks.cad.de/mm_24.htm

mfg Nobbi

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

G. Dawg
Ehrenmitglied V.I.P. h.c.
Teamleiter FEM Simulation



Sehen Sie sich das Profil von G. Dawg an!   Senden Sie eine Private Message an GDawg  Schreiben Sie einen Gästebucheintrag für GDawg

Beiträge: 2622
Registriert: 12.07.2004

SolidWorks_2o2o SP3.o
Win10_x64, Quadro_P2ooo.
VisualStudio_2o19_Pro.
FEM: Forge_NxT_HPC, ANSYS_WB.
3D-Printer: Ultimaker_2, Tinker_Gnome.

erstellt am: 18. Aug. 2008 07:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für PaBü 10 Unities + Antwort hilfreich

Suche mal in der SolidWorks API Hilfe nach Get All Elements of Sketch Example.
Das hat mir auch geholfen mit einem meiner Probleme!


EDIT:
Hier noch ein kleiner Beitrag aus meinem Makro:

Code:

'....
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set SelMgr = swModel.SelectionManager

SelectedObject = SelMgr.GetSelectedObjectType3(1, 0)

If SelectedObject = 2 Then ' Has a face been selected?
    Debug.Print "A face has been selected."
ElseIf SelectedObject = 9 Then ' Sketch, yes?
    Debug.Print "A sketch has been selected."
    ' rename sketch
    Set RenSke = swModel.GetActiveSketch2
    Set RenFeat = RenSke
    NewSketchName = "NEWNAMEOFSKETCH" ' & "-" & UnixTime
    RenFeat.Name = NewSketchName
End If
' ....

Set SelMgr = swModel.SelectionManager
Set swFeat = SelMgr.GetSelectedObject5(1)
Set swSketch = swFeat.GetSpecificFeature

Debug.Print "Feature = " & swFeat.Name & " [" & swSketch.Is3D & "]"



Ich denke, dass Dich das bereits weiterbringen wird....


------------------
   
http://www.worldcommunitygrid.org

[Diese Nachricht wurde von G. Dawg am 18. Aug. 2008 editiert.]

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

PaBü
Mitglied
Maschinenbauingenieur


Sehen Sie sich das Profil von PaBü an!   Senden Sie eine Private Message an PaBü  Schreiben Sie einen Gästebucheintrag für PaBü

Beiträge: 61
Registriert: 10.06.2005

erstellt am: 26. Aug. 2008 18:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Nobbi, hallo A.Dawg,

danke für Eure Antworten (bisschen spät, aber ich war im Urlaub).

"Stefans Makros" Makro erzeugt quasi aus vorhandenen Kooridinaten etwas. Leider brauche ich es umgekehrt. Zuerst muss ich an die X,Y,Z- Koordinaten und danach kann damit hantieren ... Ich werde morgen mal rumprobieren. War nur neugierig ob, es überhaupt Antworten auf meine Frage/ Bitte gab ... Danke soweit.

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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

Torsten Niemeier
Ehrenmitglied V.I.P. h.c.
Maschinenbau Ingenieur



Sehen Sie sich das Profil von Torsten Niemeier an!   Senden Sie eine Private Message an Torsten Niemeier  Schreiben Sie einen Gästebucheintrag für Torsten Niemeier

Beiträge: 3743
Registriert: 21.06.2001

"ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform
** CSWP 04/2011 **
** CSWE 08/2011 **

erstellt am: 26. Aug. 2008 18:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für PaBü 10 Unities + Antwort hilfreich

Hallo Patrick,

mal 'ne blöde Frage:
Wenn die Kante schon ausgewählt ist, wozu brauchst du dann noch "selectbyid2"?
Über "getselectedobject6" hast Du die Kante doch.

Gruß, Torsten

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

PaBü
Mitglied
Maschinenbauingenieur


Sehen Sie sich das Profil von PaBü an!   Senden Sie eine Private Message an PaBü  Schreiben Sie einen Gästebucheintrag für PaBü

Beiträge: 61
Registriert: 10.06.2005

erstellt am: 04. Sep. 2008 13:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Torsten,

danke für die Gegenfrage, inwischen hatte ich schon aufgegeben ....

Jetzt habe ich es aber raus. Mußte mich erstmal reindenken. Die Funktion des SelectionManager war mir nicht klar.

Gibt eine Grafik des SWXSolidWorks-Api-Modells? Bei Autodesk gab/ gibt es das immer ...

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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



Anzeige:Infos zum Werbeplatz >>

GeoVisual Civil Engineer CAD APP für 3D, Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen

Die benutzerfreundliche Softwarelösung zur Visualisierung von Infrastrukturplanungen

PaBü
Mitglied
Maschinenbauingenieur


Sehen Sie sich das Profil von PaBü an!   Senden Sie eine Private Message an PaBü  Schreiben Sie einen Gästebucheintrag für PaBü

Beiträge: 61
Registriert: 10.06.2005

erstellt am: 05. Sep. 2008 16:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

... wollte mal einen Zwischenstand abgeben.

hmm, bin eigentlich fast durch. seltsamer weise hängt sich das makro etwass auf, wenn die userform vbmodeless aufgerufen ist und man danach noch etwas aus dem modell ausliest. nach dem gewinde soll das subfeature in gewindebezeichnung benannt sein. lese ich die subfeatures aus, hängt er ...

liegt vielleicht an der 64 bit version. werde zu hause mal mit 32 bit probieren. seltsam. schönes we.

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz