Autor
|
Thema: Frage zu AnnotationSets (1074 mal gelesen)
|
buecherm83 Mitglied Ingenieur IT Application Software
Beiträge: 78 Registriert: 20.09.2011 SIEMENS NX10 CATIA V5 R26 VB7.1 Tecnomatix Process Designer/Simulate<P>Win7 64bit Office 2016
|
erstellt am: 22. Jan. 2014 12:47 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe ein Makro welches mir in bestehenden Products oder Parts Punkte erstellt und diesen Punkten Anmerkungen hinzufügt zur Beschreibung. Wenn ich es durchlaufen lasse läuft es ohne Probleme. Der einzige Unterschied der ab und an auftritt ist, dass die Anmerkungen nicht stimmen. Ein Beispiel: ich lasse das Makro im Part oder Product laufen, bekomme die Punkte und die richtigen Anmerkungen dazu z. B. für den ersten Punkt: Punktx_test1 Bei einem anderen Part oder Product erhalte ich dann die Punkte und die folgende Anmerkung für den ersten Punkt: Punktx_test16 In den Parts oder Products befindet sich vorher kein Anmerkungsset. Kann mir jemand hierzu weiterhelfen woher die willkürliche Benennung kommen kann? Danke und Gruß [Diese Nachricht wurde von buecherm83 am 22. Jan. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hamlet Mitglied Konstruktions- und Entwicklungsingenieur
Beiträge: 57 Registriert: 14.05.2013 Catia V5 R21 Windows 7 64bit using: Microsoft Visual Basic
|
erstellt am: 22. Jan. 2014 12:51 <-- editieren / zitieren --> Unities abgeben: Nur für buecherm83
|
buecherm83 Mitglied Ingenieur IT Application Software
Beiträge: 78 Registriert: 20.09.2011 SIEMENS NX10 CATIA V5 R26 VB7.1 Tecnomatix Process Designer/Simulate<P>Win7 64bit Office 2016
|
erstellt am: 23. Jan. 2014 08:38 <-- editieren / zitieren --> Unities abgeben:
Hallo, hier ein kurzer auszug meines codes: Sub CATMain() ... For n = 1 To Auswahl.Count Set Messpunkt = Auswahl.Item(n).Value Messpunktstr = Messpunkt.name MesspunktName = Right(Messpunktstr, Len(Messpunktstr) - 16) Messpunkt.GetCoordinates acoord x = acoord(0) y = acoord(1) z = acoord(2) ... Set MyReference = CRSPart.CreateReferenceFromBRepName("BorderFVertex BEdge Brp skizze.1;" & n & ");None Limits1 );Limits2 );+1);Cf11: ());WithTemporaryBody;WithoutBuildError;WithLastFeatureSupport;MFBRepVersion_CXR15)", MySketch) Set usersurface1 = usersurfaces1.Generate(MyReference) Set AnmerkungsFactory = Anmerkungset.AnnotationFactory Set MyAnmerkung = AnmerkungsFactory.CreateEvoluateText(usersurface1, x, y, z, True) ... i = i + 1 If (i = 1) Then MyAnmerkung.Text.Text = ("TEST" & i & "/0" & w) ... 'usw. Else End If ... 'Text formatieren Next ... End Sub Grüße Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hamlet Mitglied Konstruktions- und Entwicklungsingenieur
Beiträge: 57 Registriert: 14.05.2013 Catia V5 R21 Windows 7 64bit using: Microsoft Visual Basic
|
erstellt am: 23. Jan. 2014 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für buecherm83
Hi, also ich bin ja noch nicht so lange am programmieren. Aber ist es richtig, dass du hier: ------------------------------------------ Set Messpunkt = Auswahl.Item(n).Value Messpunktstr = Messpunkt.name ------------------------------------------ Dem Messpunkt erst einen Wert (Zahl?) gibts und von dem Wert den Namen weiterreichst? Oder welcher Typ befindet sich in deinem Auswahl-Array? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
buecherm83 Mitglied Ingenieur IT Application Software
Beiträge: 78 Registriert: 20.09.2011 SIEMENS NX10 CATIA V5 R26 VB7.1 Tecnomatix Process Designer/Simulate<P>Win7 64bit Office 2016
|
erstellt am: 24. Jan. 2014 07:56 <-- editieren / zitieren --> Unities abgeben:
nein, daran kann es nicht liegen. es liegt eher an der If-Schleife in der die Nummer des Punktes erzeugt wird. Mir ist aufgefallen, wenn ich Catia neu starte und das selbe Part oder Product lade und das Makro laufen lasse die Nummer des Punktes dann richtig angelegt wird. Gibt es einen Befehl mit dem ich in VBA den Zwischenspeicher leeren kann? Habe nur welche für VBA unter Excel gefunden. Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hamlet Mitglied Konstruktions- und Entwicklungsingenieur
Beiträge: 57 Registriert: 14.05.2013 Catia V5 R21 Windows 7 64bit using: Microsoft Visual Basic
|
erstellt am: 24. Jan. 2014 08:10 <-- editieren / zitieren --> Unities abgeben: Nur für buecherm83
|
buecherm83 Mitglied Ingenieur IT Application Software
Beiträge: 78 Registriert: 20.09.2011 SIEMENS NX10 CATIA V5 R26 VB7.1 Tecnomatix Process Designer/Simulate<P>Win7 64bit Office 2016
|
erstellt am: 24. Jan. 2014 09:41 <-- editieren / zitieren --> Unities abgeben:
|
Hamlet Mitglied Konstruktions- und Entwicklungsingenieur
Beiträge: 57 Registriert: 14.05.2013 Catia V5 R21 Windows 7 64bit using: Microsoft Visual Basic
|
erstellt am: 24. Jan. 2014 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für buecherm83
|
buecherm83 Mitglied Ingenieur IT Application Software
Beiträge: 78 Registriert: 20.09.2011 SIEMENS NX10 CATIA V5 R26 VB7.1 Tecnomatix Process Designer/Simulate<P>Win7 64bit Office 2016
|
erstellt am: 24. Jan. 2014 17:54 <-- editieren / zitieren --> Unities abgeben:
|