【转帖】新建文件
 

新建文件
www.dimcax.com
新建文件
我用下面的方法实现了新建一个db ,然后在这个新建的db上画圆，你看一下是否可行，有没有 没有被发现的潜在错误? _ sub startcad() try dim cadapp as acadapplication = getobject(, "autocad.application.17") dim oldb as database = hostapplicationservices.workingdatabase dim db as database = new database(true, false) hostapplicationservices.workingdatabase = db dim trans as transaction = db.transactionmanager.starttransaction() dim bt as blocktable = trans.getobject(db.blocktableid, openmode.forwrite) dim br as circle = createcircle(db, bt) db.saveas("d:\ff.dwg", dwgversion.ac1015) hostapplicationservices.workingdatabase = oldb trans.commit() trans.dispose() dim caddoc as acaddocument = cadapp.documents.open("d:\ff.dwg") caddoc.windowstate = common.acwindowstate.acmax caddoc.application.zoomextents() catch ex as exception end try end sub dim db as database = new database(true, false)这一句的true 和false 是否正确 db.saveas("d:\ff.dwg", dwgversion.ac1015) 这一句的dwgversion.ac1015是否正确？ 为什么在com中新建的文件会直接显示出来？arx中新建的db还要再专门打开？
不知道你这个程序是在cad中呢，还是用外接的程序访问cad