vb点虐 打印cad vb打印对话框

如何使用vb点虐 调用cad进行绘图

你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视

成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站设计、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的荥阳网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

vb点虐 打印功能

可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。

也可以做成vb报表(VB自带有)。

先设置报表格式，打印时向报表传递数据就可以了。

在vb中如何调用autocad进行打印

''''取得当前文档对象 VB a中的方法,如果是在VB中时需要从顶层对象开始引用取得)

Dim currentDoc As AcadDocument

Set currentDoc = ThisDrawing

''''文档的模型空间

Dim sp As AcadModelSpace

Set sp = currentDoc.modelspace

''''取得模型空间中的块属性

Dim index As Integer

For index = 0 To sp.Count - 1

Dim name As String

name = sp.Item(index).ObjectName

''''判断模型空间中的项目是否是一个块引用

If name Like "*Ac*" Then

Dim blockRef As AcadBlockReference

Set blockRef = sp.Item(index)

''''块引用的插入点

Dim insertPoint As Variant

insertPoint = blockRef.InsertionPoint

''''放大比例

Dim xScale, yScale As Integer

xScale = blockRef.XScaleFactor

yScale = blockRef.YScaleFactor

''''宽高基数

Dim width, height As Double

width = 297

height = 210

''''打印区域

Dim UpperRight(0 To 1) As Double, LowerLeft(0 To 1) As Double

UpperRight(0) = insertPoint(0)

UpperRight(1) = insertPoint(1)

LowerLeft(0) = insertPoint(0) + width * xScale

LowerLeft(1) = insertPoint(1) - height * yScale

list.AddItem "inserPoint:X=" UpperRight(0) " Y:" UpperRight(1)

list.AddItem "lowerLeft :X=" LowerLeft(0) " Y:" LowerLeft(1)

Dim plotConfs As AcadPlotConfigurations

Set plotConfs = ThisDrawing.PlotConfigurations

list.AddItem plotConfs.Count

Dim plotconf As AcadPlotConfiguration

Set plotconf = plotConfs.Add("plot")

''''list.AddItem plotconf.GetPlotDeviceNames(5)

''''Set plotConf = ThisDrawing.PlotConfigurations.Add

''''设置定义要打印的布局范围的坐标

ThisDrawing.ActiveLayout.SetWindowToPlot LowerLeft, UpperRight

''''指定布局或打印配置的类型

ThisDrawing.ActiveLayout.PlotType = acWindow

''''按局部或完整视图预览方式显示打印预览对话框

ThisDrawing.Plot.DisplayPlotPreview acFullPreview

''''打印布局到设备

ThisDrawing.Plot.PlotToDevice

End If

Next index