ضļ Automation á

GetObject([pathname] [, class])

Pathname 
ѡַļ·ơʡ pathname  class 
Class 
ѡַࡣ 
class ﷨ʽΪ appname.objectypeа²֣


appname 
ѡַṩӦóơ 
objectype 
ѡַҪĶͻࡣ 
˵
ʹ GetObject Էļе Automation 󣬶ҿԽöֵʹ Set 佫 GetObject صĶֵ磺 

Dim CADObject
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")
ִʱͻָ·ӦóͬʱָļеĶ pathname 㳤ַ ("")GetObject ָ͵¶ʵʡ pathname GetObject ָ͵ĵǰûָ͵Ķ󣬾ͻִ

ĳЩӦóֻļһ֣ļһ̾ (!) ԼڱʶҪļֵַйشַϸϢĴӦóйĵ

磬ڻͼӦóУһļеͼж㡣ʹͼ SCHEMA.CAD еĳһ㣺

Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")
ûָ࣬ Automation ṩļȷҪӦóԼҪĶ󡣵ǣЩļֶ֧ࡣ磬ͼֲ֧ͬ͵ĶApplication Drawing  Toolbar Щͬһļеһ֡ʹÿѡ class ָļҪĶ磺 

Dim MyObject
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING") 
УFIGMENT ǻͼӦóƣ DRAWING ֵ֧һֶ͡󱻼֮󣬾ͿڴʹĶǰУʹö MyObject ¶Ժͷ磺 

MyObject.Line 9, 90
MyObject.InsertText 9, 100, "ˣã"
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"
ע   ڶĵǰʵڣҪѼصļʱʹ GetObject ûеǰʵҲ׼ʹѼصļʹ CreateObject 
עΪʵĶִжٴ CreateObjectֻܴöһʵʹõʵ󣬵ʹ㳤ַ ("") ﷨ʱGetObject Ƿͬһʵʡ pathname ִ

Ҫ
汾 5

