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搜爆了,都没有找到我需要的东西.到是搜索到了很多问这个问题的记录.没办法,索性 ...
随机推荐
- 93. Restore IP Addresses
题目: Given a string containing only digits, restore it by returning all possible valid IP address com ...
- Mac修改用户名
Mac 修改用户是一件很悲剧的事,因为牵涉到很多地方的修改,当然,如果只是需要满足登陆用户名的修改的话,就比较简单.而如果需要将某个用户在每一个地方显示的名字都改掉的话,就要修改不是地方了,下面就来讲 ...
- 数论/the first wave
线性筛素数(原来我之前学的不是线性的啊... void getprime(){ rep(i,2,nmax){ if(!vis[i]) prime[++prime[0]]=i; for(int j=1; ...
- BZOJ1954: Pku3764 The xor-longest Path
题解: 在树上i到j的异或和可以直接转化为i到根的异或和^j到根的异或和. 所以我们把每个点到根的异或和处理出来放到trie里面,再把每个点放进去跑一遍即可. 代码: #include<cstd ...
- [swustoj 679] Secret Code
Secret Code 问题描述 The Sarcophagus itself is locked by a secret numerical code. When somebody wants to ...
- 【转】禁止seekbar的拖动事件
原文网址:http://blog.csdn.net/ansionnal/article/details/8229801 当然是可以的! 其实是 onTouchEvent 事件时,不让他传递事件就行了! ...
- HTML.ActionLink 和Html.Action和 Url.Action 的区别
1. html.ActionLink生成一个<a href=".."></a>标记..例如:@Html.ActionLink(“链接文本”.“someact ...
- ToString() 格式化字符串
例如i=: i.ToString().PadLeft(,'); 固定长度为10,左不足补0,结果为0000000001:
- 开源项目ets_cache分析
1 背景 当在程序中,有大量的数据需要读写,数据库的响应会延迟,甚至阻塞.缓存可以缓解对数据库访问的压力,而且在内存中数据的读写要比读写硬盘上的数据快. 2 目的 ets_cache是用erlang实 ...
- ASP.NET工作笔记之一:图片上传预览及无刷新上传
转自:http://www.cnblogs.com/sibiyellow/archive/2012/04/27/jqueryformjs.html 最近项目里面涉及到无刷新上传图片的功能,其实也就是上 ...