关于vba二次开发

ytredboy

各位大侠好，我是新来的！
4 ~, L" d9 X: I( S1 i( E2 F首先我本科不是学CAD开发的，我是学计算机的。最近为了帮助朋友做些插件，学了些简单的AUTOCAD VBA，突然觉得CAD非常的有意思，所以到此向大家多学习学习。
% G& I8 \2 v! m+ ^3 p' Q& n% h' g希望以后各位能给与多多的帮助。
: a1 `" A0 X# G0 S2 I4 E问题：我最近在做批量打印CAD图到PDF图的过程中发现，自动打印出来的文档名称是CAD文档默认的名称，这样的话一张CAD图中有如果有N>2张图纸的话就会在默认的存储路径中覆盖掉已有的PDF文档，有没有什么好办法在不自动存储CAD文档的前提下改变打印出PDF文档的名称呢。（因为文档内容较多，如果每次都另存为太费时间）

ytredboy

其中的核心代码如下：
7 Y+ u) |+ ~6 @, s9 @For Each returnobj In doc.ModelSpace
  If returnobj.ObjectName = "AcDb2dPolyline" Then
. ^  c' i8 [% U    If Round(returnobj.Area, 4) >= 62370 Then
        returnobj.GetBoundingBox minext, maxext
& E% A$ S5 ]& V  }2 K% t8 p: C
6 I& H0 Y4 z( K/ F0 J; a9 Q        point1(0) = minext(0): point1(1) = minext(1)
+ D9 p' M/ y. D" o8 T        point2(0) = maxext(0): point2(1) = maxext(1)
doc.ActiveLayout.CenterPlot = True '中心打印
! E% M1 F4 Z( [* s. V9 [doc.ActiveLayout.StandardScale = acScaleToFit '合适比例
" e1 p8 E3 a: V8 F- udoc.ActiveLayout.SetWindowToPlot point1, point2
" C' ^( _9 G! _' A1 Qdoc.ActiveLayout.PlotRotation = ac0degrees '旋转90度
2 J7 q, H3 y- b0 N; \doc.ActiveLayout.PlotType = acWindow
8 N# v) W9 C7 E* \  s* Rdoc.Plot.PlotToDevice "D:\plot\pdfFactory Pro.pc3" '打印机pc3文件，或者打印机名称，我这里用到的事PDFfactory pro
( r2 C& _% h0 g) X' Z% d* c  KEnd If
End If
Next
) r& u: ~$ Q: N) T2 w5 {5 p3 p上面的代码是搜索面积大于一定值的2dPolyline，并以他的最大点和最小点作为Window打印模式的边界点 doc是autcad.activedocument

woaishuijia

有两个办法:
一.使用2007及以上版本.打印机使用CAD自带的"DWG To PDF",打印到文件,自行指定PDF文件名.
- c6 x& l9 o% {4 j2 `二.使用低版本(2000或以上),把需要打印的内容复制到图纸空间,按需要修改所在布局的名称,从图纸空间打印,打印到设备时PDF文件名是文档名和布局名的组合.