在 Set mspace = doc.ModelSpace后加上以下两句就可以了。Set pre = acadapp.Application.Preferences.Systempre.SingleDocumentMode = True
多文档界面和单文档界面的调用接口不同，详细看下acad的 com 对象模型参考
