A-A+

在CATIA二次開發中使用VBA(VBS)的TypeName函數獲取文檔類型

2019年06月23日 15:38:46 CAD 暫無評論 閱讀 0 views 次

在CATIA二次開發中可以使用VBA(VBS)的TypeName函數獲取文檔類型,TypeName函數的定義如下:

TypeName(varname)

參數 varname 是一個Variant , 它包含除用戶定義類型的變量之外的任何變量。此函數返回一個提供有關變量的信息的 String。由 TypeName 返回的字符串可以為下列任一項:

返回的字符串變量
對象類型類型為 objecttype 的對象
Byte字節值
IntegerInteger
Long長整數
Single單精度浮點數
Double雙精度浮點數
Currency貨币值
Decimal小數值
Date日期值
StringString
Boolean布爾值
Error錯誤值
為空
NULL無有效數據
Object對象
未知類型未知的對象
Nothing未引用對象的對象變量

如果 varname 是一個數組,則返回的字符串可以為任一可能返回的追加了空圓括号的字符串(或 Variant)。 例如, 如果_varname_是一個整數數組, 則TypeName返回"Integer()""。

示例代碼如下:

Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null    ' Assign Null value.
MyType = TypeName(StrVar)    ' Returns "String".
MyType = TypeName(IntVar)    ' Returns "Integer".
MyType = TypeName(CurVar)    ' Returns "Currency".
MyType = TypeName(NullVar)    ' Returns "Null".
MyType = TypeName(ArrayVar)    ' Returns "Integer()".

CATIA二次開發應用示例代碼:

Sub catmain()
Dim DocType
DocType = TypeName(CATIA.ActiveDocument)
MsgBox "The Document Type is" & DocType
End Sub

TypeName 返回是文檔類型的字符串,CATIA中的文檔類型共有8種:PartDocument、ProductDocument、DrawingDocument、AnalysisDocument、ProcessDocument、FunctionalDocument、MaterialDocument、CatalogDocument。對文檔類型進行判斷的VBA(VBS)示例代碼如下:

If TypeName(CATIA.ActiveDocument) <> "PartDocument" Then
    MsgBox ("Please confirm that current active document is a part document")
    Exit Sub
End If
本站微信公衆賬号,歡迎關注,如有問題可在下方留言也可在公衆賬号提問。

微信公衆賬号

給我留言