看了kean的打印专栏后。自己想做个多文档打印功能的程序。
' 对指定的文件进行插入操作过程
Public Function ReadDwgFromFile(ByVal filename As String) As Boolean ' 创建集合,定义设计的objectID与点坐标的X与Y值
Dim ids As New ObjectIdCollection
Dim idsLine As New ObjectIdCollection
' 用来判断是否是A3或A4的左下点坐标
Dim minX As List(Of Double)
Dim minY As List(Of Double)
' 新建一个数据库对象以读取Dwg文件
Dim db As New Database()
Dim ex As Autodesk..Runtime.Exception
Try
' 如果指定文件名的文件存在，则
If System.IO.File.Exists(filename) Then
' 把文件读入到数据库中
db.ReadDwgFile(filename, System.IO.FileShare.ReadWrite, True, Nothing)
Dim pMins As New Point3dCollection
Dim pMaxs As New Point3dCollection
minX = New List(Of Double)
minY = New List(Of Double)
' 开始事务处理
Using trans As Transaction = db.TransactionManager.StartTransaction()
' 获取数据库的块表对象
Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
' 打开数据库的模型空间块表记录对象
Dim btr As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForRead)
' 循环遍历模型空间中的实体
For Each id As ObjectId In btr
Dim obj As DBObject = trans.GetObject(id, OpenMode.ForRead)
If TypeOf (obj) Is DBText Then
Dim st As DBText = DirectCast(obj, DBText)
Dim s As String = st.TextString
If s = "设 计" Then
' 将符合条件的文字id加入ids集合中
ids.Add(id)
End If
End If
If TypeOf (obj) Is Line Then
Dim ln As Line = DirectCast(obj, Line)
If ln.StartPoint.X = ln.EndPoint.X Then
minX.Add(ln.StartPoint.X)
If ln.StartPoint.Y > ln.EndPoint.Y Then
minY.Add(ln.EndPoint.Y)
Else
minY.Add(ln.StartPoint.Y)
End If
End If
End If
If TypeOf (obj) Is Polyline Then
Dim pl As Polyline = DirectCast(obj, Polyline)
If pl.StartPoint = pl.EndPoint Then
minX.Add(pl.GeometricExtents.MinPoint.X)
minY.Add(pl.GeometricExtents.MinPoint.Y)
End If
End If
Next
' 根据文件中图的坐标位置排序
Dim resultIds As ObjectIdCollection = SortImageForTwoV(ids, db)
Dim num As Integer = 1
For Each id As ObjectId In resultIds
Dim obj As DBObject = trans.GetObject(id, OpenMode.ForRead)
If TypeOf (obj) Is DBText Then
Dim st As DBText = DirectCast(obj, DBText)
Dim s As String = st.TextString
If s = "设 计" Then
Dim x As Double = st.Position.X
Dim y As Double = st.Position.Y
Dim z As Double = st.Position.Z
Dim h As Double = st.Height
Dim pointMin As New Point3d(x + h * minX_A3, y + h * minY_A3, z)
Dim pointMax As New Point3d(x + h * maxX_A3, y + h * maxY_A3, z)
Dim DwgType As String = "A3"
For i = 0 To minX.Count - 1
Dim leftX As Double = minX(i)
Dim leftY As Double = minY(i)
If leftX - pointMin.X < 0.2 * h And pointMin.X - leftX < 0.2 * h Then
If leftY - pointMin.Y < 0.2 * h And pointMin.Y - leftY < 0.2 * h Then
Exit For
End If
End If
If i = minX.Count - 1 Then
DwgType = "A4"
Dim pointMinA4 As New Point3d(x + h * minX_A4, y + h * minY_A4, z)
Dim pointMaxA4 As New Point3d(x + h * maxX_A4, y + h * maxY_A4, z)
pointMin = pointMinA4
pointMax = pointMaxA4
End If
Next
PlotTest(pointMin, pointMax, num, db, filename, DwgType)
num = num + 1
End If
End If
Next
While PlotFactory.ProcessPlotState = ProcessPlotState.BackgroundPlotting Or _
PlotFactory.ProcessPlotState = ProcessPlotState.ForegroundPlotting
Threading.Thread.Sleep(10)
Windows.Forms.Application.DoEvents()
End While
trans.Commit()
btr.Dispose()
bt.Dispose()
trans.Dispose()
End Using
End If
db.SaveAs(filename, DwgVersion.Current)
Catch ex
' 销毁数据库对象
db.Dispose()
Return False
End Try
' 销毁数据库对象
db.Dispose()
Return True
End Function Public Sub PlotTest(ByVal pMin As Point3d, ByVal pMax As Point3d, ByVal num As Integer, ByVal db As Database, ByVal filename As String, ByVal DwgType As String)
Dim ex As Autodesk.AutoCAD.Runtime.Exception
Dim acCurDb As Database = db
