CAD直接打印，不出现打印对话框（com接口VB语言）

主要用到函数说明：

MxDrawXCustomFunction::Mx_Print

直接打印，不出现打印对话框，详细说明如下：

参数 说明

double ptLBx
打印的范围左下角x

double ptLBy
打印的范围左下角y

double ptRTx
打印的范围右上角x

double ptRTy
打印的范围右上角y

LPCTSTR pszPrintName
打印机名，如果传为空，取系统默认打印机

LPCTSTR pszPaperName
打印的图纸名,如果传为空，取系统默认打印机设置

LONG iPrintDirection
打印的方向，2 为横向，1为纵向,默认取1

LONG iLeftMargin
打印的页边的左边距离,如果为-1,取打印机默认的页边距

LONG iRightMargin
打印的页边的右边距离,如果为-1,取打印机默认的页边距

LONG iTopMargin
打印的页边的上边距离,如果为-1,取打印机默认的页边距

LONG iBottomMargin
打印的页边的下边距离,如果为-1,取打印机默认的页边距

LPCTSTR pszLayoutName
打印的布局,为NULL就是模型Model中的内容

LPCTSTR pszPrintConfig
打印配制，暂没有使用

LPCTSTR pszDocName
打印的文档名称，在用pdf虚拟打印机时，指定打印的pdf文件的缺省文件名

LONG lIsPrintLineWdith
是否打印线宽，默认值为1,表示打印，传0表示不打印

iFlag
pRectPageMargin参数的含义,iFlag = 0表示页边距，iFlag = 1表示打印区域矩形框位置

VB代码实现如下：


1

2

3

4

5

6

7

8

9

10

11

12

13

‘打印10,10,100,100范围的图纸到当前系统默认设置打印机

Dim printParam As MxDrawResbuf

Set printParam = New MxDrawResbuf

‘ 打印的左下角10,10

printParam.AddDouble 10

printParam.AddDouble 10

‘ 打印的右上角100,100

printParam.AddDouble 100

printParam.AddDouble 100

‘ 开始打印

MxDrawX1.CallEx "Mx_Print", printParam

原文地址：https://www.cnblogs.com/yzy0224/p/11003370.html

时间： 2024-10-09 04:03:09

CAD直接打印，不出现打印对话框（com接口VB语言）的相关文章

CAD绘制一个图象标记对象（com接口VB语言）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 Private Sub DrawImageMarkImp()     'Dim

CAD得到ImageMark数据（com接口VB语言）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String)        If sEventName = "ObjectGripEdit" Then           

CAD关于图层删除图层操作（com接口c#语言）

在删除图层前,最好判断一个该图层上是否有CAD绘图对象,如果有的话就不要删除图层 C#代码: private bool DeleteLayer(String sLayerName) { // 判断图上是否对象. MxDrawResbuf param = (MxDrawResbuf)axMxDrawX1.Call("ExApp_isUselessLayer", sLayerName); if (param.AtLong(1) != 1) { // 图上还有对象,不能删除. return

CAD向控件注册一个命令（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::Mx_RegistUserCustomCommand 向控件注册一个命令,用户在命令行输入命令名这个字符串,就会触发执行命令事件 命令事件的id就是该注册时的id值,详细说明如下: 参数 说明 CString sCommandName 命令名称 LONG lId 命令id VB代码实现如下: 1 2 3 4 5 6 Set param2 = New MxDrawXLib.MxDrawResbuf param2.AddString

CAD实现自定义实体夹点移动（com接口VB语言）

主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt 自定义实体事件,自定义实体夹点被移动,详细说明如下: 参数 说明 LONGLONG lEntity 自定义实体id IN LONG lGridIndex 夹点索引号 IN McGePoint3d vec 夹点移动的向量 VB代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

CAD执行一个带参数的命令（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::Mx_SendStringToExecute 执行一个带参数的命令.详细说明如下: 参数 说明 CString sCmaName 命令名 Param 命令参数 VB中实现代码说明: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Dim param As MxDrawResbuf Set param = New MxDrawRes

CAD与用户互在图面上得到一个矩形框（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::ExApp_CutDwg 与用户互在图面上得到一个矩形框,详细说明如下: 参数 说明 IN DOUBLE dX1 保存范围的左下角位置X值 IN DOUBLE IN dY1 保存范围的左下角位置Y值 IN DOUBLE dX2 保存范围的右上角位置X值 IN DOUBLE IN dY2 保存范围的右上角位置Y值 sFile 保存的文件名 主要用到函数说明: MxDrawXCustomFunction::Mx_GetCorner 与

CAD把一个dwg文件，或者图像文件当着一个背景导入（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::Mx_OpenBackgroundFile 把一个dwg文件,或者图像文件当着一个背景导入.详细说明如下: 参数 说明 CString sFileName DWGBMPJPG文件路径,,文件件名为空时,清空背景文件 LONG lightColor = 0x505050 背景灰度显示颜色,灰度显示的颜色,默认值为0x505050 BOOL isZoomE = TRUE 是否自动把调用ZoomE操作,默认值为1 BOOL isUpDi

CAD隐藏或显示工具条上的按钮（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::Mx_HideToolBarControl 隐藏或显示工具条上的按钮.详细说明如下: 参数 说明 IN LPCTSTR pszToolBarName 工条名称 IN LPCTSTR pszControlName = NULL 按钮名称,多个按钮名称,可以用逗号分隔开,为空,隐藏或显示所有按钮 IN BOOL isHide = TRUE 是否隐藏按钮 IN BOOL isAutoRecalcLayout = TRUE 是否自动重新布