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
VB操作CAD的更多相关文章
- VB操作EXCEL文件
用VB操作Excel(VB6.0)(整理) 首先创建Excel对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel. ...
- VB操作EXCEL文件大全
Private Sub writeToExcel(strTmp1() As String, colTmp1 As Collection)'' Dim tmp1 Dim i1 As Integer, i ...
- 用VB操作Excel的方法
VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报 ...
- VB操作Excel
在工程中添加引用:Microsoft Office 9.0 Object Library Microsoft Excel 9.0 Object Library ...
- python操作cad
from pyautocad import Autocad # 自動連接上cad,只要cad是開着的,就創建了一個<pyautocad.api.Autocad> 對象.這個對象連接最近打開 ...
- VB学习笔记(一)VB操作字符串
在vb中 dim a# 定义a变量为双精度型变量~ #是类型符 % 整型 & 长整型 !单精度 $ 字符型 VB中strconv 的作用 StrConv("要转换的字符串" ...
- VB获取CAD属性值
Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadMod ...
- VC,VB操作XML
TCHAR buffer[MAX_PATH] = {}; ::GetModuleFileName(NULL, buffer, MAX_PATH); CString strPath = buffer; ...
- 转发:VB程序操作word表格(文字、图片)
很多人都知道,用vb操作excel的表格非常简单,但是偏偏项目中碰到了VB操作word表格的部分,google.baidu搜爆了,都没有找到我需要的东西.到是搜索到了很多问这个问题的记录.没办法,索性 ...
随机推荐
- ENVI5.1安装破解教程
原文地址: ENVI5.1安装破解_百度经验 http://jingyan.baidu.com/article/020278118b5ded1bcd9ce57a.html ENVI5.1_x86 ...
- Move to Another Changelist
Move to Another Changelist 将选中的文件转移到其他的 Change list 中. Change list 是一个重要的概念,这里需要进行重点说明.很多时候,我们开发一个项目 ...
- R语言学习笔记:因子(Factors)
因子提供了一个简单并且紧凑的形式来处理分类(名义上的)数据.因子用”水平level”来表示所有可能的取值.如果数据集有取值个数固定的名字变量,因子就特别有用. > g<-c("f ...
- freemarker跳出循环
break语句跳出当前循环,如下: <#list table.columns as c> <#if c.isPK> &l ...
- Codeforces 374B - Inna and Nine
原题地址:http://codeforces.com/problemset/problem/374/B 这道题没什么难度,但是考场上就是没写对.Round #220彰显了它的逗比性质——这道题的“标算 ...
- Innodb引擎 long semaphore waits
上一篇介绍了因为子表过多,导致innodb crash的情况,但crash的原因是long semaphore waits.long semaphore waits又为何物? 背景:Innodb使用了 ...
- Java数组你知多少?
下面我带大家一起加深一下对Java数组的认识: 1.理解数组 数组也是一种数据类型,本身就是一种引用类型,我们从它的初始化方法,通过关键字new去完成定义及初始化就可以知道. 数组的长度是不变的,一旦 ...
- Spring data rest 如何显示主键
How to expose the resourceId with Spring-Data-Rest? Spring-Data-Rest is a quite new project in the S ...
- LeetCode Balanced Binary Tree (判断平衡树)
题意:如题,平衡树是指任意一个节点(除了叶子),其左子树的高度与右子树的高度相差不超过1. 思路:递归解决,但是提供的函数不满足递归的要求啊,我们至少得知道高度,又得返回真假,所以另开个函数解决. / ...
- 我个人有关 Azure 网络 SLA、带宽、延迟、性能、SLB、DNS、DMZ、VNET、IPv6 等的 Azure 常见问题解答
Igor Pagliai(微软) 2014 年 9月 28日上午 5:57 年 11 月 3 年欧洲 TechEd 大会新宣布的内容). 重要提示:这篇文章中我提供的信息具有时间敏感性,因为这些 ...