Sub CATMain()
Dim doc as DrawingDocument
Set doc = CATIA.ActiveDocument
doc.Parameters.Item("Rev2Chg1ZD1Desc").ValuateFromString "Новый текст"
End Sub
Sub Main()
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
Dim wb As Object
Set wb = oExcel.Workbooks.Open("C:\data.xls")
MsgBox wb.Worksheets(1).Cells(1,1).Text
oExcel.Quit
Set oExcel = Nothing
End Sub
Wireless_Fidelity писал(а):Зравствуйте.
Как Вы создаете штамп?
Sub Main()
Dim oExcel As Object
Set oExcel = GetObject(, "Excel.Application")
MsgBox oExcel.ActiveWorkbook.ActiveSheet.Cells(1,1).Text
End Sub
Sub Main()
Dim oWorkbook As Object
Set oWorkbook = GetObject("C:\Temp\book.xls", "Excel.Application")
MsgBox oWorkbook.ActiveSheet.Cells(1,1).Text
End Sub
Wireless_Fidelity писал(а):
VladimirK писал(а):Здравствуйте!
Как уже написал Wireless_Fidelity, выбирая в этом окне стиль основной надписи (Style of Title Block) и необходимое действие (Action), Вы по сути запускаете на выполнение процедуру в скрипте CATIA.
В приведённом Вами тексте Help'а как раз и написано про вызов процедур из скрипта и возможность самостоятельного создания своих скриптов и процедур для действий.
Судя именно по Вашему скриншоту видно следующее:
на вашем компьютере в папке с установленной CATIA, например, в C:\Program Files\Dassault Systemes\B19\win_b64\VBScript\FrameTitleBlock\ должен быть скрипт с именем вроде Boeing_Drawing_Forms.CATScript. В этом скрипте должны быть процедуры, соответствующие названиям действий (Action), только с префиксами "CATDrw_".
Соответственно, искомая Вами процедура для действия Redraw_Form должна называться Sub CATDrw_Redraw_Form(...).
Точное имя скрипта и вызываемых методов посмотрите в файле <Путь установки CATIA>\resources\msgcatalog\FrameAndTitleBlock.CATNls.
Поищите этот скрипт в подпапке с установленной CATIA \VBScript\FrameTitleBlock\ и отредактируйте процедуру CATDrw_Redraw_Form под Ваши нужды.
Wireless_Fidelity писал(а):Зравствуйте.
Как Вы создаете штамп?
Для редактирования параметров на чертеже можно использовать следующий код:
Код: Выделить всё
Sub CATMain()
Dim doc as DrawingDocument
Set doc = CATIA.ActiveDocument
doc.Parameters.Item("Rev2Chg1ZD1Desc").ValuateFromString "Новый текст"
End Sub
Dim param as StrParam
Set param = doc.Parameters.CreateString("Rev2Chg1ZD1Desc", "Новый текст")
'----FILLING PART PROPERTIES----
On Error Resume Next
Dim ProductDrawn
Set ProductDrawn = DrwSheet.Views.Item(3).GenerativeBehavior.Document
'----DRAWING NUMBER----
Dim DrwNo As String
DrwNo = ProductDrawn.ReferenceProduct.UserRefProperties.Item("DRAWING No.").ValueAsString
Set MyTextDrwNo = MyDrawingViews.ActiveView.Texts.Add("DRAWING No.", 246.5, 14)
MyTextDrwNo.Name = "TitleBlock_Text_Title_8"
MyTextDrwNo.SetFontSize 0, 0, 2
MyTextDrwNo.SetFontName 0, 0, "Century Gothic (TrueType)"
MyTextDrwNo.AnchorPosition = catTopLeft
DrwTexts.GetItem("TitleBlock_Text_Title_8").Text = ProductDrawn.ReferenceProduct.UserRefProperties.Item("DRAWING No.").ValueAsString
If (DrwNo <> "") Then
Else
Set MyTextDrwNo = Texts.GetItem("TitleBlock_Text_Title_8")
VariableDrw = InputBox("DRW. No. NOT FOUND! PLEASE ENTER DRAWING NUMBER" & Chr(13) & _
" " & Chr(13) & _
"GO BACK TO PART PROPERTIES, FILL DRAWING NUMBER AND UPDATE TITLE BLOCK", "DRAWING NUMBER WARRING", "ENTER DRAWING NUMBER")
MyTextDrwNo.Text = VariableDrw
End If
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1