---

Screenshot1.png Screenshot2.png Screenshot3.png

Servus,

Ich möchte den Geoset: 'Geometrical Set.1' von ein .IGS File kopieren und es statt GeoSet 'InputVermessungen' in andere .CATpart ersetzen.

Anbei findet man hier paar scrennshots:

Screenshot-1:
Baum von HauptFile 'X.CATPart'

Screenshot-2:
Baum von .IGSFile 'Powerinspect.IGS'

Screenshot -3:
Von aktuelle Code

Ich brauche Hilfe an den foolgenden:
1) Die GeoSet 'Geometrical Set-1' von IGS.File kopieren
2)Die GeoSet InputVermessungen in .CATPart File mit 'Geometrical Set -1' ersetzen aber der Name 'InputVermessugen' gleich behalten

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

---

Servus

Bitte Code als Text in entsprechenden Tag posten.
Wo liegt dein Problem, bzw wo hängst du?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Servus Bernd,

Danke für die schnelle Rückmeldung.
ich will hier den Geoset von .IGS File kopieren und statt den gelöschte Geoset "Input Vermessung" in den Haupt-File ersetzen.

Code:

Sub CATMain()

Dim objSel As Selection
Dim objPart As Part
Dim strFilePath As String
Dim objFile As File
Dim objTextStream As TextStream
Dim strLine As String

'Upload IGS File
strFilePath = CATIA.FileSelectionBox("Select .IGS Vermessung File", "*.igs", 0)
Set objProd = objCATIA.Documents.Open("strFilePath")
'hier muss man den einzige Geoset von den ausgewählten .igs File kopieren

'Deleting Geoset "Input Vermessungen" in main .CatPart file
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Input Vermessungen")

Set objSel = CATIA.ActiveDocument.Selection
Set objPart = CATIA.ActiveDocument.Part
objSel.clear

objSel.Add hybridBody1
objSel.delete

'ich möchte hier den Geoset von den kopierte.IGS File statt den gelöschte Geoset "Input Vermessung" in den Haupt-File ersetzen. Ich habe den Befehl Replace versucht aber hab nicht weiter gekommen.

End Sub

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

---

Servus

Bitte Code in entsprechende Tags posten.
Hier ein Beispiel zum kopieren einen GeoSet

Code:

---

Sub CATMain()

Dim oSourceDoc As PartDocument
Dim oTartgetDoc As PartDocument
Dim oSelSource As Selection
Dim oSelTarget As Selection
Dim oSourcePart As Object
Dim oTartgetPart As Part
Dim sPathToFile as String

sPathToFile = "C:\Test.igs"

'Vorbereitung
Set oTartgetDoc = CATIA.ActiveDocument
Set oTartgetPart = oTartgetDoc.Part
Set oSelTarget = oTartgetDoc.Selection

'öffnen
CATIA.Documents.Open(sPathToFile)
Set oSourceDoc = CATIA.ActiveDocument
Set oSelSource = oSourceDoc.Selection
Set oSourcePart = oSourceDoc.Part

'kopieren
oSelSource.Clear
oSelSource.Add oSourcePart.HybridBodies.Item(1)
oSelSource.Copy

'einfügen
oSelTarget.Clear
oSelTarget.Add oTartgetPart
oSelTarget.Paste

oSourceDoc.Close

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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