Hallo Liebe Cad Gemeinde,
Ich habe da mal ein Problem,
ich versuche schon seit Tagen den Link von vom Part auszulesen ich schaffe es aber einfach nicht.
Das View1 ist immer das wovon ich denn Link einlesen möchte
Und im Skript möchte ich den Beispieltext ersetzen und da den Speicherpfad des Parts haben.
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.ActiveView
Dim ReferenceComponent As DrawingViewGenerativeBehavior
Set ReferenceComponent = drawingView1.GenerativeBehavior
Ich habe es schon mal mit
MyView.GenerativeLinks
ViewLinks.addLinks (MyPartDocument)
Kein erfolg
Hier ist mal das Skript wo ich dieses auch noch einbauen möchte.
Das Skript habe ich hier auf cad.de gefunden.
Im Anhang ist mal ein bild wo ich darauf zugreifen möchte.
Hier ist mal der Code:
Code:
'http://ww3.cad.de/foren/ubb/Forum137/HTML/000403.shtml#000002
Sub CATMain()
Dim Eingabe As String
Eingabe = "D:\pf"
Eingabe = InputBox ("Bitte geben Sie Speicher Ort ein.", "Eingabe Speichern", Eingabe) Dim oFileSystem As INFITF.FileSystem
Set oFileSystem = CATIA.FileSystem
Dim oFolder As INFITF.Folder
' Verzeichnisname für CATIA-Zeichnungen
Set oFolder = oFileSystem.GetFolder (Eingabe)
Dim FileSep As String
FileSep = oFileSystem.FileSeparator
Dim i As Long
Dim j as Variant
Dim oFile As INFITF.File
Dim oActiveDoc As DrawingDocument
Dim BackView As DrawingView
Dim oText As DrawingText
For i = 1 To oFolder.Files.Count
Set oFile = oFolder.Files.Item(i)
If Right(oFile.Name, 10) = "CATDrawing" Then
Set oActiveDoc = CATIA.Documents.Open(oFolder.Path + FileSep + oFile.Name)
For j = 1 to oActiveDoc.Sheets.Count
Set BackView = oActiveDoc.Sheets.Item(j).Views.Item(2)
Beispieltext bei x=100, y=100
Set oText = BackView.Texts.Add("Beispieltext", 100.0, 100.0)
Next
oActiveDoc.Save
oActiveDoc.Close
End If
Next
End Sub
Hoffe mir kann jemand von euch helfen (bitte bitte) ansonsten habe ich viel arbeit vor mir.
Danke
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP