两年没写体会了，这中间发生了很多有意义的事。包括顺利完成Master Degree。走上攻城师的不归路。开始意识到压力之大，工资和房价的悬殊。唯有保持看书、思考，才能不让自己对现实的苦逼屈服，多学点东西，相信岩土工程还是很有钱途。
闲话少说，今天想谈谈工作中常需要做的一个事：出版。
无论是打印成pdf，还是发送到打印机，道理是类似的。
批量打印WORD,EXCEL,CAD的意义就不说了，大项目动辄几百张DWG汇总。
目前打印CAD有很多工具，很多人只是知道，但对于其原理还是不太清楚，一旦遇到故障了，也不知道如何解决。下面先讲讲批量打印的原理，贴一些代码，懂编程的同行可以拿回去稍加修改，做成自己想要的样子。
CAD有两个主要的表达空间，模型和布局，我们经常会在这两个空间类型里面打印图纸。
‘=================================================================
模型modelspace的打印
通常是图框为一个外部参照（或某个特定图层上的多段线），批量打印的流程是：
打开dwg->配置打印参数->遍历modelspace里面的实体->找出参照对象->判断是否为图框对象->获取对象的范围（GetBoundingBox函数）->将范围赋值给打印设置->窗口方式打印->出图完成。
下面是这个流程的主要代码，逐句看看相信很快就能知道是怎么回事儿
’==============================================================
Dim ptMin As Variant, ptMaxAs Variant
Dim Ent As AcadEntity
Dim PlotCount As Integer
Set objDoc = ThisDrawing.Application.ActiveDocument
Set objLayout = objDoc.Layouts.Item("Model")
Set objPlot = objDoc.Plot
ThisDrawing.Application.ZoomExtents
' 设置打印机
If Not Trim(PrinterName) ="" Then
objLayout.ConfigName ="pdfFactory Pro"
Else
Exit Sub
End If
' 设置打印样式表
objLayout.StyleSheet = "acad.ctb"
objLayout.CanonicalMediaName = "A3"
' 设置图纸单位
objLayout.PaperUnits = acMillimeters
' 设置默认图纸打印方向
objLayout.PlotRotation= ac0degrees '横向
' 设置图纸打印比例
objLayout.StandardScale = ac1_1
objLayout.UseStandardScale = True '使用标准打印比例
' 设置图纸是否居中打印
objLayout.CenterPlot = True
' 打印时使用图形文件中的线宽
objLayout.PlotWithLineweights = True
' 设置是否应用打印样式
objLayout.PlotWithPlotStyles = True
' 将打印错误报告切换为静默错误模式，以便不间断地执行打印任务
objPlot.QuietErrorMode = True
' 重新生成当前图形
objDoc.Regen acAllViewports
' 设置前台打印，使打印任务按打印顺序依次发送到打印机
objDoc.SetVariable "BACKGROUNDPLOT",0
'至此配置打印机完成。准备查找图框
For Each Ent In objDoc.ModelSpace
If TypeOf Ent IsAcadBlockReference Then ‘如果对象是参照的话，进入下面判断
IfIsFrame(Ent, AutoFrame) = True And objDoc.Blocks(Ent.Name).count > 0 Then
Ent.GetBoundingBox ptMin, ptMax
Debug.Print Ent.Name & "--"& objDoc.Blocks(Ent.Name).count
' 将三维点转化为二维点坐标
ReDim Preserve ptMin(0 To1)
ReDim Preserve ptMax(0 To1)
' 设置打印窗口
ThisDrawing.ActiveLayout.SetWindowToPlotptMin, ptMax
objLayout.PlotType = acWindow
End If
objPlot.PlotToDevice objLayout.ConfigName '这句话就是发送到打印机了、
End If
Next Ent
‘其中IsFrame函数为
Public FunctionIsFrame(entobj As Object, AutoMode As Boolean) As Boolean '判断是否为图框
On Error Resume Next
IsFrame = False
Dim i As Integer
Dim FrmNameList As Variant
FrmNameList = "blkFrame,A1,A2,A3,TK,图框" '图框块、编组名列表
FrmNameList = Split(FrmNameList, ",")
For i = 0 To UBound(FrmNameList)
If entobj.Name = FrmNameList(i) Then
IsFrame = True
Exit For
End If
Next
End Function
’=========================================================
当图框不是参照，是位于某个图层上的多段线时，我们可以通过构建选择集，将那个图层上的多段线加入，然后遍历选择集（同橙色部分）dim ent as acadpolyline或acadlightpolyline，然后还是getboundingbox获取打印范围。
布局layout的打印
其批量打印的原理可以不同，这取决于制图习惯。对于自动成图的比如桥和路线，通常是一个布局一张图，一个cad几十个布局序列。还有一种是一个布局里面很多张图，每个图有一个图框参照。
对于前一种情况，方法为
遍历dwg的layouts集合，对一个集合layout(i)进行如上的配置，注意 objLayout.CenterPlot = false，布局不能居中打印。
dim i as acadlayout
for each i in acadoc.layouts
'将上面的代码中 objLayout换成i，配置打印机，打印方式PlotType = acLayout，此处省略重复。
i.PlotToDevice i.ConfigName
next
如此，即可把所有布局打印。
对于一个布局里面很多个图纸的，同上，例如layout(i)里面很多，那就遍历layout(i)里面的外部参照，将每个参照的GetBoundingBox获取下来，采用plotType=acWindow的方式，同modelspace一样的方法打印
如果仔细看到这里，有一定的VBA基础的同行们，估计已经知道CAD内部的打印原理了，过去一直没静下研究下这个，最近花了点时间看明白后，就自己写了一个，然后集成了自动打印word和excel。现在遇到不工作，或者打印图纸方向不对，纸张不对的，就可以随时对源代码修改。
关于打印WORD和excel，大家可以用录制宏的办法，查看自动生成的代码，然后修改移植，就可以放到VB6.0或者VB.NET里面了。
用VB.net或6.0采用com组件独立编制exe程序时，区别是程序启动时定义AcadApp=GetObject(,"AutoCAD.Application) 或new一个Application。Thisdrawing替换为AcadDoc=AcadApp.ActiveDocument.
今天先到这，敲累了休息下，U盘没带回来。
另外国庆七天假，祝各位同行朋友玩的愉快。
最后插一句广告，承接边坡支护设计(计算书，施工图，数量表)，搞地基处理设计图，搞小型基坑支护。也搞CAD，excel二次开发，挣点零花钱。筒子们项目上有闲钱的恰好需要上述服务的，支援下，房租要涨价咯。
