文件操作的问题，愁了我一周了

houlinbo

Try
            Dim cadApp As AcadApplication = New Autodesk.AutoCAD.Interop.AcadApplicationClass()
            cadApp.Visible = True
            Dim db As Database = New Database()
            db = HostApplicationServices.WorkingDatabase
            Dim trans As Transaction = db.TransactionManager.StartTransaction()
            Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
            Dim br As Circle = CreateCircle(db, bt)
            trans.Commit()
            trans.Dispose()
            db.SaveAs("d:\ff.dwg", DwgVersion.AC1015)
        Catch ex As Exception

        End Try

流程是：新建一个dwg文件后，要从新建的图形上插入一个圆，但运行的结果确是圆画在了未新建图时显示的图上，请各位帮忙解决，不胜感激！QQ420021327 

houlinbo

？

sieben

用Com接口啊，好久没玩这个了。

为什么不把 InsertBlock函数代码贴出来？

houlinbo

自已顶一下，两周了还没有解决

liudaohuang

看不大明白，感觉应该是数据库（db）设置有问题

houlinbo

有没有类似的代码帖上来看看，谢了

liudaohuang

我用的是C#,

Database db = new Database(true,true);  

Transaction trans = db.TransactionManager.StartTransaction();   

BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForWrite); 

BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace ],OpenMode.ForWrite );

Line line = new Line(Point3d.Origin,new Point3d(0,0,0));

btr.AppendEntity(line);

trans.AddNewlyCreatedDBObject(line,true);

db.SaveAs("ttt.dwg",DwgVersion.Current);

大体是这样子的

ww810529

加入一个创建图层的函数，把实体的layerid设置到想要的图层就行。注意：要在trans.Commit()之前啊！