cad打印代码(3)

Exit Sub End If

'读入文件的操作

Dim i As Integer, nFile As Integer Dim X As Double, Y As Double

Dim count As Integer, index As Integer Dim strTemp As String

'获得下一个可供Open语句使用的文件号 nFile = FreeFile '打开文件

Open strFileName For Input As #nFile

'读入当前路径

'读入一行文本并存储在变量中 Line Input #nFile, strTemp '读入当前路径并设置文本框文字 Input #nFile, strTemp

txtCurPath.Text = strTemp

'读入打印文件列表并添加到列表框中 Call InputData3(lstPlotFiles, nFile)

'读入是否仅打印当前图形并设置复选按钮选择状态 Call InputData2(chkOnlyPlotThis, nFile)

'读入打印机配置列表并添加到组合框中

Call InputData(cboPrintersName, nFile)

'读入打印样式表并添加到组合框中

Call InputData(cboPlotStyleTableNames, nFile)

'读入图纸尺寸列表并添加到组合框中 Call InputData(cboPaperSize, nFile)

'读入图纸单位并设置单选按钮选择状态 '读入一行文本并存储在变量中 Line Input #nFile, strTemp '读入图纸单位

Input #nFile, strTemp '设置单选按钮选择状态

If strTemp = \毫米\

optMillimeters.Value = True Else

optInches.Value = True End If

'读入图纸方向并设置单选按钮选择状态 '读入一行文本并存储在变量中 Line Input #nFile, strTemp '读入图纸方向

Input #nFile, strTemp '设置单选按钮选择状态

If strTemp = \纵向\ optVertical.Value = True Else

optHorizontal.Value = True End If

'读入是否反向打印并设置复选按钮选择状态 Call InputData2(chkReverse, nFile)

'读入打印份数

'读入一行文本并存储在变量中 Line Input #nFile, strTemp '读入打印份数

Input #nFile, count '设置文本框文字

txtNumber.Text = count

'读入是否打印到文件并设置复选按钮选择状态 Call InputData2(chkPlotToFile, nFile)

'读入打印路径列表并添加到组合框中 Call InputData(cboPlotPath, nFile)

'读入打印比例列表并添加到组合框中 Call InputData(cboPlotScale, nFile)

'读入一行文本并存储在变量中 Line Input #nFile, strTemp

'读入当前打印比例并设置文本框文字 Input #nFile, X Input #nFile, Y

txtNumerator.Text = X txtDenominator.Text = Y

'读入是否居中打印并设置复选按钮选择状态

Call InputData2(chkCenterPlot, nFile)

'读入打印偏移

'读入一行文本并存储在变量中 Line Input #nFile, strTemp '读入打印偏移并设置文本框文字 Input #nFile, X Input #nFile, Y

txtOffsetX.Text = X txtOffsetY.Text = Y

'读入是否打印对象线宽并设置复选按钮选择状态

Call InputData2(chkPlotWithLineweights, nFile) '读入是否采用打印样式并设置复选按钮选择状态 Call InputData2(chkPlotWithPlotStyles, nFile) '读入是否隐藏图纸空间对象并设置复选按钮选择状态 Call InputData2(chkPlotHidden, nFile)

'读入图框形式并设置单选按钮选择状态 '读入一行文本并存储在变量中 Line Input #nFile, strTemp '读入图框形式

Input #nFile, strTemp '设置单选按钮选择状态

If strTemp = \图块\ optBlock.Value = True Else

optLayer.Value = True End If

'读入图块名列表并添加到组合框中

Call InputData(cboBlockName, nFile)

'读入图层名列表并添加到组合框中

Call InputData(cboLayerName, nFile)

'关闭文件 Close #nFile

End Sub

Private Sub cmdListPrints_Click()

' 显示AutoCAD中当前可用的打印机列表 Call ListPlotDeviceNames

End Sub

Private Sub cmdOutput_Click() '导出打印设置 '设置标准对话框 With comDlg

'设置标准对话框标题

.DialogTitle = \导出打印设置\

'设置标准对话框类型列表中所显示的过滤器

.filter = \文本文件(*.txt)|*.txt|所有文件(*.*)|*.*\ '设置[另存为]对话框的缺省扩展名 .DefaultExt = \ '显示[另存为]对话框 .ShowSave End With

Dim strFileName As String, strTemp As String strFileName = comDlg.fileName '若返回文件名为空，不进行操作 If strFileName = \

MsgBox \请重新选择保存位置！\ Exit Sub End If

'保存文件的操作 Dim i As Integer '打开文件

Open strFileName For Output As #1

'输出当前路径

Print #1, \当前路径：\ Print #1, txtCurPath.Text

'输出打印文件列表

Print #1, \打印文件列表：\ '输出打印机配置列表的信息

Call OutputData3(lstPlotFiles, 1)

'输出是否仅打印当前图形

Print #1, \是否仅打印当前图形\

Call OutputData2(chkOnlyPlotThis, 1)

'输出打印机配置

Print #1, \打印机配置：\

'输出打印机配置列表的信息

Call OutputData(cboPrintersName, 1)

'输出打印样式表

Print #1, \打印样式表：\ '输出打印样式表的信息

Call OutputData(cboPlotStyleTableNames, 1)

'输出图纸尺寸列表

Print #1, \图纸尺寸列表：\ '输出图纸尺寸列表的信息

Call OutputData(cboPaperSize, 1)

'输出图纸单位

Print #1, \图纸单位：\ '输出图纸单位信息

If optMillimeters.Value = True Then strTemp = \毫米\ Else

strTemp = \英寸\ End If

Print #1, strTemp

'输出图纸方向

Print #1, \图纸方向：\ '输出图纸方向信息

If optVertical.Value = True Then strTemp = \纵向\ Else

strTemp = \横向\ End If

Print #1, strTemp

'输出是否反向打印

Print #1, \是否反向打印：\

Call OutputData2(chkReverse, 1)

'输出打印份数

Print #1, \打印份数：\ Print #1, txtNumber.Text

'输出是否打印到文件

Print #1, \是否打印到文件：\ Call OutputData2(chkPlotToFile, 1)