【请教】使用vb来进行cad2000的图纸打印

武文弄墨 · 发表于 2003-8-27 15:48:00

没有思路，我查到plottodevice的功能是：将布局绘图到设备
而plottofile的功能是：将布局绘图到文件
但是，这两个方法中的参数plotfile（这个大概是文件输出名）、plotconfig并没有指明
也就仅此而已，希望各位大侠可以给些代码实例或者意见，谢谢！
我的目标就是，在Command1_Click（）事件中，可以讲2000的当前图纸
能在zoomall状态下，以某种图纸规格输出（譬如，ISO A4)到固定目录
急切盼望回复，谢谢

武文弄墨 · 发表于 2003-8-28 22:03:00

最近论坛怎么这么冷清呢！？

lhkz · 发表于 2003-8-29 16:08:00

' 建立输出用的图纸空间布局 Dim strLayouts(0 To 1) As String Dim varLayouts As Variant strLayouts(0) = "Layout1" strLayouts(1) = "Layout2" varLayouts = strLayouts ThisDrawing.Plot.SetLayoutsToPlot varLayouts ' 设置打印份数为1 ThisDrawing.Plot.NumberOfCopies = 1 ' 开始打印 ThisDrawing.Plot.PlotToDevice

lhkz · 发表于 2003-8-29 16:10:00

试试这个
' 建立输出用的图纸空间布局
  Dim strLayouts(0 To 1) As String
Dim varLayouts As Variant
strLayouts(0) = "Layout1"
strLayouts(1) = "Layout2"
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts
ThisDrawing.Plot.NumberOfCopies = 1       ' 设置打印份数为1
ThisDrawing.Plot.PlotToDevice                ' 开始打印

【请教】使用vb来进行cad2000的图纸打印

发表回复

精选推荐