Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Excel Makro

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
Autor Thema:  Excel Makro (1718 mal gelesen)
Ahlemann
Mitglied
Uni Mitarbeiter

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

Beiträge: 9
Registriert: 16.05.2011

erstellt am: 13. Dez. 2011 09:38    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 zusammen,
vorweg, ich bin leider blutiger Anfänger in Sachen Makroprogrammierung.

Nu zu meiner Frage:
Ich kenne und nutze das Excel Makro (Elements from Excel) erfolgreich um mir Punkte nach CATIA zu holen.

Was ich gerne hätte, wäre dass ich vorweg ein Achsensystem "auswählen" könnte, aufgrund dessen die Punkte dann mit Ihren  X Y Z Werten eingelesen werden.
Die Referenzierung auf ein eigens Achsensystem unabhängig von den Ursprungsebenen würde mir die Arbeit deutlich erleichtern...

Danke schon mal vorab.
Grüße
Ahlemann

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

RSchulz
Moderator²
Head of CAD, Content & Collaboration / IT-Manager



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

Beiträge: 5541
Registriert: 12.04.2007

@Work
Lenovo P510
Xeon E5-1630v4
64GB DDR4
Quadro P2000
256GB PCIe SSD
512GB SSD
SmarTeam V5-6 R2016 Sp04
CATIA V5-6 R2016 Sp05
E3.Series V2019
Altium Designer/Concord 19
Win 10 Pro x64

erstellt am: 13. Dez. 2011 09:44    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 Ahlemann 10 Unities + Antwort hilfreich

Hallo,
da ich das Makro, welches du hier anziehst, nicht kenne, gebe ich dir mal die Theorie weiter.

Du musst eine Selektion definieren, bei der du auf die Selektierung des Achsenkreuz wartest und prüfst, dass eben auch einen Achsensystem angewählt wurde. Anschließen liest du die Koordinaten des Achsensystems aus und addierst diese bei jedem Punkt hinzu, da der Nullpunkt eben nicht der Nullpunkt sein soll, sondern der des angewählten Achsensystems.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

RAA
Mitglied
CAD/PDM-Supporter


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

Beiträge: 57
Registriert: 05.08.2009

HP Z420
Intel Xeon 3,6GHz 32GB
Windows 7 Enterprise
V5R19+R22+R24+R26
VB.net 2010

erstellt am: 07. Mrz. 2012 16:10    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 Ahlemann 10 Unities + Antwort hilfreich

Hallo,

vielleicht ein Kompromiss. Ich habe ein ähnliches Problem so gelöst, daß ich mich auf das zur Zeit aktive Koordinatensystem bezogen habe und zwar so:

Set axisSystems1 = part1.AxisSystems                    ' suche das aktive Achsensystem
For iAxs = 1 To axisSystems1.Count                      ' gehe durch alle Achsensysteme
Set axisSystem1 = axisSystems1.Item(iAxs)
If axisSystem1.IsCurrent Then                          ' wenn es das aktive ist, dann Stop
  Exit For
End If
Next iAxs

.... dann Punkte erzeugen

Dann kann man sich so auf ein beliebiges axs beziehen, der Anwender muß es vorher nur aktivieren.

mfg
Rainer

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)2023 CAD.de | Impressum | Datenschutz