Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  wenn Makro durchläuft werden vergebene Namen nicht übernommen!

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:  wenn Makro durchläuft werden vergebene Namen nicht übernommen! (348 mal gelesen)
Frank...
Mitglied



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

Beiträge: 27
Registriert: 25.04.2008

erstellt am: 05. Nov. 2008 10:18    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

Huhu.

Ich hab ein Makro aufgezeichnet, welches mir im Baum verschiedene verzweigte geo. Sets und Ebenen erzeugt, die ich immer wieder benötige. Diese habe ich danach umbenannt und das auch aufgezeichnet. Beim anwenden und durchlaufen des Makros werden mir aber nun die vergebenen Namen für die geo. Sets und die Ebenen nicht mehr angezeigt! Was kann ich tun, damit diese übernommen werden bzw. was hab ich falsch gemacht? Makros kann ich nur aufzeichnen und nicht selbst schreiben (keine Ahnung davon!!) und einbinden (keine Lizenz).

Gruß, Frank

Weiß nicht, ob das hilft oder notwendig ist, aber hier mal der Quellcode, der aufgezeichnet worden ist:


Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

Dim part1 As Part
Set part1 = partDocument1.Part

Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Absolute Axis System")

Set axisSystems1 = axisSystem1.Parent

Dim bSTR1 As String
bSTR1 = axisSystem1.Name

selection1.Add axisSystem1

Set visPropertySet1 = visPropertySet1.Parent

Dim bSTR2 As String
bSTR2 = visPropertySet1.Name

Dim bSTR3 As String
bSTR3 = visPropertySet1.Name

visPropertySet1.SetShow 1

selection1.Clear

Dim selection2 As Selection
Set selection2 = partDocument1.Selection

Dim visPropertySet2 As VisPropertySet
Set visPropertySet2 = selection2.VisProperties

Dim originElements1 As OriginElements
Set originElements1 = part1.OriginElements

Dim hybridShapePlaneExplicit1 As AnyObject
Set hybridShapePlaneExplicit1 = originElements1.PlaneXY

selection2.Add hybridShapePlaneExplicit1

Dim hybridShapePlaneExplicit2 As AnyObject
Set hybridShapePlaneExplicit2 = originElements1.PlaneYZ

selection2.Add hybridShapePlaneExplicit2

Dim hybridShapePlaneExplicit3 As AnyObject
Set hybridShapePlaneExplicit3 = originElements1.PlaneZX

selection2.Add hybridShapePlaneExplicit3

Set visPropertySet2 = visPropertySet2.Parent

Dim bSTR4 As String
bSTR4 = visPropertySet2.Name

Dim bSTR5 As String
bSTR5 = visPropertySet2.Name

visPropertySet2.SetShow 0

selection2.Clear

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

part1.UpdateObject hybridBody1

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0.000000, 0.000000, 0.000000)

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(axisSystem1)

hybridShapePointCoord1.RefAxisSystem = reference1

hybridBody1.AppendHybridShape hybridShapePointCoord1

part1.InWorkObject = hybridShapePointCoord1

part1.Update

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

Dim hybridShapePlaneOffsetPt1 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt1 = hybridShapeFactory1.AddNewPlaneOffsetPt(reference2, reference3)

hybridBody1.AppendHybridShape hybridShapePlaneOffsetPt1

part1.InWorkObject = hybridShapePlaneOffsetPt1

part1.Update

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit2)

Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

Dim hybridShapePlaneOffsetPt2 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt2 = hybridShapeFactory1.AddNewPlaneOffsetPt(reference4, reference5)

hybridBody1.AppendHybridShape hybridShapePlaneOffsetPt2

part1.InWorkObject = hybridShapePlaneOffsetPt2

part1.Update

Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit3)

Dim reference7 As Reference
Set reference7 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

Dim hybridShapePlaneOffsetPt3 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt3 = hybridShapeFactory1.AddNewPlaneOffsetPt(reference6, reference7)

hybridBody1.AppendHybridShape hybridShapePlaneOffsetPt3

part1.InWorkObject = hybridShapePlaneOffsetPt3

part1.Update

Dim selection3 As Selection
Set selection3 = partDocument1.Selection

Dim visPropertySet3 As VisPropertySet
Set visPropertySet3 = selection3.VisProperties

selection3.Add hybridShapePlaneExplicit1

selection3.Add hybridShapePlaneExplicit2

selection3.Add hybridShapePlaneExplicit3

Set visPropertySet3 = visPropertySet3.Parent

Dim bSTR6 As String
bSTR6 = visPropertySet3.Name

Dim bSTR7 As String
bSTR7 = visPropertySet3.Name

visPropertySet3.SetShow 1

selection3.Clear

Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies1.Add()

part1.UpdateObject hybridBody2

Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = hybridBody2.HybridBodies

Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies2.Add()

part1.UpdateObject hybridBody3

Dim hybridBody4 As HybridBody
Set hybridBody4 = hybridBodies2.Add()

part1.UpdateObject hybridBody4

Dim hybridBody5 As HybridBody
Set hybridBody5 = hybridBodies2.Add()

part1.UpdateObject hybridBody5

Dim hybridBodies3 As HybridBodies
Set hybridBodies3 = hybridBody5.HybridBodies

Dim hybridBody6 As HybridBody
Set hybridBody6 = hybridBodies3.Add()

part1.UpdateObject hybridBody6

Dim hybridBody7 As HybridBody
Set hybridBody7 = hybridBodies3.Add()

part1.UpdateObject hybridBody7

Dim hybridBody8 As HybridBody
Set hybridBody8 = hybridBodies2.Add()

part1.UpdateObject hybridBody8

Dim hybridBody9 As HybridBody
Set hybridBody9 = hybridBodies2.Add()

part1.UpdateObject hybridBody9

Dim hybridBodies4 As HybridBodies
Set hybridBodies4 = hybridBody9.HybridBodies

Dim hybridBody10 As HybridBody
Set hybridBody10 = hybridBodies4.Add()

part1.UpdateObject hybridBody10

Dim hybridBody11 As HybridBody
Set hybridBody11 = hybridBodies4.Add()

part1.UpdateObject hybridBody11

Dim hybridBody12 As HybridBody
Set hybridBody12 = hybridBodies4.Add()

part1.UpdateObject hybridBody12

Dim hybridBody13 As HybridBody
Set hybridBody13 = hybridBodies4.Add()

part1.UpdateObject hybridBody13

End Sub

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

miezeka
Mitglied
Ingenieurin


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

Beiträge: 44
Registriert: 30.09.2008

CATIA V5R16SP5
Catia V5 R18<P>Win XP Prof

erstellt am: 06. Nov. 2008 10: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 Nur für Frank... 10 Unities + Antwort hilfreich

HI

leider macht es der Recorder nicht.

Aber Namenvergabe ist

Linie2.Name = " hier Name für die Linie "

und fertisch!

dann
Linie dem geometrischen set zuweisen#

GeoSet_Linien.AppendHybridShape Linie2

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