Code:
Public Sub Test()Const COUNT = 3
Dim CATIA As Object
Dim docDocuments
Dim i As Integer
Dim IDFP1 As Long, IDFP2 As Long, IDFP3 As Long, IDFP4 As Long, IDPunkt As Long
Dim Antwort As Integer
Dim FP1Tn As String, FP2Tn As String, FP3Tn As String, BezFP1 As String, BezFP2 As String, BezFP3 As String
Dim Punktname As String
Dim GeoDatei As String
Dim Suchstring As String
Dim Geo1 As String
Dim Geo2 As String
Dim prodWurzel As Product
Dim prodProducts As Object 'As Products
Dim arrayOfVariantOfBSTR1()
ReDim arrayOfVariantOfBSTR1(COUNT)
Dim prodDoc As ProductDocument
Set CATIA = CreateObject("catia.application")
Set prodDoc = CATIA.ActiveDocument
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Dim jey As Integer
Dim crt As ChartObject
Dim pApp As Object
Dim pres As Object
Dim sld As Object
Dim shp As Object
Dim sFile As String
Set pApp = CreateObject("PowerPoint.Application")
sFile = "C:\Desktop\PowerP.pptx"
Set pres = pApp.Presentations.Open(sFile, , , msoFalse)
'Erster Punkt +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Set rst = dbs.OpenRecordset("SELECT NodeBez, PPPunkt_Teil1_TeilNr, PPPunkt_Teil2_TeilNr, PPPunkt_Teil3_TeilNr FROM tblStruktur WHERE NodeId = 2999570;", dbOpenDynaset, dbSeeChanges)
BezFP1 = Replace(rst!PPPunkt_Teil1_TeilNr, "_", ".")
BezFP2 = Replace(rst!PPPunkt_Teil2_TeilNr, "_", ".")
BezFP3 = Replace(rst!PPPunkt_Teil3_TeilNr, "_", ".")
Punktname = "FI_" & rst!NodeBez & ".2999570"
Set rst = dbs.OpenRecordset("SELECT GEO_GeometrieDatei, GEO_TeilNummer, NodeBez FROM tblStruktur WHERE GEO_TeilNummer = '" & BezFP2 & "' AND GEO_GeometrieDatei LIKE '%" & Replace(BezFP2, ".", "") & "%';", dbOpenDynaset, dbSeeChanges)
Set rst = dbs.OpenRecordset("SELECT GEO_GeometrieDatei, GEO_TeilNummer, NodeBez FROM tblStruktur WHERE GEO_TeilNummer = '" & BezFP1 & "' AND GEO_GeometrieDatei LIKE '%" & Replace(BezFP1, ".", "") & "%';", dbOpenDynaset, dbSeeChanges)
If BezFP3 <> "" Then
Set rst = dbs.OpenRecordset("SELECT GEO_GeometrieDatei, GEO_TeilNummer, NodeBez FROM tblStruktur WHERE GEO_TeilNummer = '" & BezFP3 & "' AND GEO_GeometrieDatei LIKE '%" & Replace(BezFP3, ".", "") & "%';", dbOpenDynaset, dbSeeChanges)
End If
Set prodWurzel = prodDoc.Product
Set prodProducts = prodWurzel.Products
prodProducts.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
Dim selection1 As Selection
Set selection1 = prodDoc.Selection
selection1.add prodWurzel
CATIA.StartCommand "Activate Terminal Node"
selection1.Clear
Suchstring = "Part Number='" & Punktname & "',all"
Suchstring = "Name='" & Punktname & "',all"
selection1.Search Suchstring
selection1.add selection1
Foren auf CAD.de (alle Foren)
| 
)
