本例创建MText 对象。接着使用MText 对象作为其注释来创建引线。 Sub Ch5_AddAnnotation() Dim leaderObj As AcadLeader Dim mtextObj As AcadMText Dim ...
wenku.baidu.com