GetObject 函數(shù)

返回對(duì)文件中 Automation 對(duì)象的引用。

GetObject([pathname] [, class])

參數(shù)

Pathname

可選項(xiàng)。字符串，包含待檢索對(duì)象的文件的完整路徑和名稱。如果省略 pathname 則必須有 class。

Class

可選項(xiàng)。字符串，對(duì)象的類。

class 參數(shù)的語(yǔ)法格式為 appname.objectype，其中包括以下部分：

參數(shù)

appname

必選項(xiàng)。字符串，提供對(duì)象的應(yīng)用程序名稱。

objectype

必選項(xiàng)。字符串，要?jiǎng)?chuàng)建的對(duì)象的類型或類。

說(shuō)明

使用 GetObject 函數(shù)可以訪問(wèn)文件中的 Automation 對(duì)象，而且可以將該對(duì)象賦值給對(duì)象變量。使用 Set 語(yǔ)句將 GetObject 返回的對(duì)象賦值給對(duì)象變量。例如：

Dim CADObjectSet CADObject = GetObject("C:/CAD/SCHEMA.CAD")

在執(zhí)行上述代碼時(shí)，就會(huì)啟動(dòng)與指定路徑名相關(guān)聯(lián)的應(yīng)用程序，同時(shí)激活指定文件中的對(duì)象。如果 pathname 是零長(zhǎng)度字符串 ("")，GetObject 返回指定類型的新對(duì)象實(shí)例。如果省略 pathname 參數(shù)，GetObject 將返回指定類型的當(dāng)前活動(dòng)對(duì)象。如果沒(méi)有指定類型的對(duì)象，就會(huì)出現(xiàn)錯(cuò)誤。

某些應(yīng)用程序允許只激活文件的一部分，方法是在文件名后加上一個(gè)驚嘆號(hào) (!) 以及用于標(biāo)識(shí)要激活的文件部分的字符串。有關(guān)創(chuàng)建這種字符串的詳細(xì)信息，請(qǐng)參閱創(chuàng)建對(duì)象的應(yīng)用程序的有關(guān)文檔。

例如，在繪圖應(yīng)用程序中，一個(gè)存放在文件中的圖可能有多層。可以使用下述代碼來(lái)激活圖 SCHEMA.CAD 中的某一層：

Set LayerObject = GetObject("C:/CAD/SCHEMA.CAD!Layer3")

如果沒(méi)有指定對(duì)象的類，則 Automation 會(huì)根據(jù)所提供的文件名，確定要啟動(dòng)的應(yīng)用程序以及要激活的對(duì)象。但是，有些文件可能支持多個(gè)對(duì)象類。例如，圖可能支持三種不同類型的對(duì)象：Application 對(duì)象、Drawing 對(duì)象和 Toolbar 對(duì)象，所有這些都是同一個(gè)文件中的一部分。使用可選項(xiàng)的 class 參數(shù)可以指定文件中要激活的對(duì)象。例如：

Dim MyObjectSet MyObject = GetObject("C:/DRAWINGS/SAMPLE.DRW", "FIGMENT.DRAWING") 

在上述樣例中，F(xiàn)IGMENT 是繪圖應(yīng)用程序的名稱，而 DRAWING 則是它支持的一種對(duì)象類型。對(duì)象被激活之后，就可以在代碼中使用所定義的對(duì)象變量來(lái)引用它。在前面的例子中，可以使用對(duì)象變量 MyObject 訪問(wèn)新對(duì)象的屬性和方法。例如：

MyObject.Line 9, 90MyObject.InsertText 9, 100, "嗨，你好！"MyObject.SaveAs "C:/DRAWINGS/SAMPLE.DRW"

注意 在對(duì)象的當(dāng)前實(shí)例存在，或者要用已加載的文件創(chuàng)建對(duì)象時(shí)，請(qǐng)使用 GetObject 函數(shù)。如果沒(méi)有當(dāng)前實(shí)例，并且不準(zhǔn)備使用已加載的文件啟動(dòng)對(duì)象，請(qǐng)使用 CreateObject 函數(shù)。