Привет,
Как отобразить структуру, полученную командой Desk в модуле Drafting?
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Front view")
Dim drawingTexts1 As DrawingTexts
Set drawingTexts1 = drawingView1.Texts
Dim drawingText1 As DrawingText
Set drawingText1 = drawingTexts1.GetItem("Text.2")
Dim oLocation As String
oLocation = "C:\temp\Product2.txt"
Dim fso
Dim file, content
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(oLocation , ForReading)
content = file.ReadAll
drawingText1.text=content
MsgBox(content)
End Sub
' You can add procedures or functions here (with Sub...End Sub or Function...End Function structures)
' and call them from your main)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5