VB操作CAD
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim sheet As Excel.Worksheet
Dim obj As Excel.OLEObject
Set xlapp = New Excel.Application
' Set xlbook = xlapp.Workbooks.Add
' Set xlapp = New Excel.Application
' Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets.Add
xlapp.Visible = True
Range.Select
Set obj = xlsheet.OLEObjects.Add(FileName:="E:\Data\Eg\PROGRAM\MiTOP\BOTSmt.dwg", Link:=True, DisplayAsIcon:=False)
obj.Verb Verb:=xlPrimary
Set zwcadapp = GetObject(, "ZwCAD.Application")
If Err Then
MsgBox ("CAD启动错误")
Exit Sub
End If
zwcadapp.Visible = False
zwcadapp.ZoomExtents '可以显示图形的全部,使绘制的图形最大限度地充满绘图区域
zwcadapp.ActiveDocument.Close
Set zwcadapp = Nothing
Dim zwcadapp As ZwcadApplication
Dim obj As Excel.OLEObject
range.Select
Set obj = objsheet.OLEObjects.add(FileName:=strFileName, Link:=True, DisplayAsIcon:=False)
obj.Verb Verb:=xlPrimary
On Error Resume Next
Set zwcadapp = GetObject(, "ZwCAD.Application")
If Err Then
MsgBox ("CAD启动错误")
Exit Sub
End If
zwcadapp.Visible = False
zwcadapp.WindowState = zcMax
zwcadapp.ZoomExtents '可以显示图形的全部,使绘制的图形最大限度地充满绘图区域
zwcadapp.ActiveDocument.SetVariable ("filedia"), 0 '''''''''''''''''''''''''禁止弹出对话框
zwcadapp.ActiveDocument.Save
zwcadapp.ActiveDocument.Close
zwcadapp.Quit
Set zwcadapp = Nothing
With obj.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 65
.Fill.Transparency = 1# '透明度100%
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoFalse
End With
If isSMT = True And isPagesizeA3 = True Then
With obj.ShapeRange
.IncrementTop 25#
End With
End If
With obj.ShapeRange
.LockAspectRatio = msoTrue
.width = 570#
.IncrementTop 100.25
End With
End If
If isSMT = False And isPagesizeA3 = True Then
With obj.ShapeRange
.LockAspectRatio = msoTrue
.width = 588#
.IncrementLeft 229#
End With
End If
If isSMT = False And isPagesizeA3 = False Then
With obj.ShapeRange
.LockAspectRatio = msoTrue
.width = 570#
.IncrementLeft 143#
End With
End If
最新文章
- 【UISegmentedControl】-  分段控件
- 切分 Tomcat 的 catalina.out 文件,解决日志文件过大的问题
- RDIFramework.NET ━ .NET快速信息化系统开发框架 V3.0 版新增消息管理
- Jquery,jquery-cookie.js 做的点击记住用户名和密码!
- Eclipse较为常用快捷键
- javascript第三弹——数组
- [LeetCode]题解(python):053-Maximum Subarray
- tesseract-ocr了解
- Java知识结构思维导图
- 文件过滤驱动实现目录重定向(一)good
- V - stl 的 优先队列 Ⅱ
- IE 第三方设置cookie失效
- [VirtualBox] - Install Oracle Linux 7 on Oracle VirtualBox
- RSA算法优化
- 【Unity3d游戏开发】游戏中的贝塞尔曲线以及其在Unity中的实现
- 使用git克隆指定分支的代码
- 第4阶段——制作根文件系统之分析init_post()如何启动第1个程序(1)
- Android简易实战教程--第十五话《在外部存储中读写文件》
- LeetCode - 198 简单动态规划 打家劫舍
- linux学习——sed工具
热门文章
- Windows8、Windows8.1和Microsoft Office 2013激活
- SGU 101 修改
- CentOS7.1 安装关键步骤 记录下来
- 到底怎么样才叫看书?——Tony Zhao's
- Oracle中Blob和Clob类型的区别与操作
- Android开发之少去踩坑,多走捷径【转】
- php简单实现MVC
- I.MX6 Android iperf3 porting failed
- SharePoint中修改密码的WEB Part之终极版:即可以修改AD,又可以修改本机用户密码的Web Part!!
- 28、activity之间传递数据&;批量传递数据