Dim xlapp As Excel.Application
            Dim xlbook As Excel.Workbook
            Dim sheet As Excel.Worksheet

            Dim Range As Excel.Range
        Dim zwcadapp As ZwcadApplication
       
        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
        xlsheet.Cells(1, 1) = "测试" '写入内容
        Set Range = xlsheet.Range("B2")
       
       
        Range.Select
        Set obj = xlsheet.OLEObjects.Add(FileName:="E:\Data\Eg\PROGRAM\MiTOP\BOTSmt.dwg", 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 = acMax
        zwcadapp.ZoomExtents   '可以显示图形的全部,使绘制的图形最大限度地充满绘图区域
        zwcadapp.ActiveDocument.Save
        zwcadapp.ActiveDocument.Close
        zwcadapp.Quit
        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

        If isSMT = True And isPagesizeA3 = False Then
            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的更多相关文章

  1. VB操作EXCEL文件

    用VB操作Excel(VB6.0)(整理) 首先创建Excel对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel. ...

  2. VB操作EXCEL文件大全

    Private Sub writeToExcel(strTmp1() As String, colTmp1 As Collection)'' Dim tmp1 Dim i1 As Integer, i ...

  3. 用VB操作Excel的方法

    VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报 ...

  4. VB操作Excel

    在工程中添加引用:Microsoft Office 9.0 Object Library                    Microsoft Excel 9.0 Object Library   ...

  5. python操作cad

    from pyautocad import Autocad # 自動連接上cad,只要cad是開着的,就創建了一個<pyautocad.api.Autocad> 對象.這個對象連接最近打開 ...

  6. VB学习笔记(一)VB操作字符串

    在vb中 dim a# 定义a变量为双精度型变量~ #是类型符 % 整型 & 长整型 !单精度 $ 字符型 VB中strconv 的作用 StrConv("要转换的字符串" ...

  7. VB获取CAD属性值

    Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadMod ...

  8. VC,VB操作XML

    TCHAR buffer[MAX_PATH] = {}; ::GetModuleFileName(NULL, buffer, MAX_PATH); CString strPath = buffer; ...

  9. 转发:VB程序操作word表格(文字、图片)

    很多人都知道,用vb操作excel的表格非常简单,但是偏偏项目中碰到了VB操作word表格的部分,google.baidu搜爆了,都没有找到我需要的东西.到是搜索到了很多问这个问题的记录.没办法,索性 ...

随机推荐

  1. 93. Restore IP Addresses

    题目: Given a string containing only digits, restore it by returning all possible valid IP address com ...

  2. Mac修改用户名

    Mac 修改用户是一件很悲剧的事,因为牵涉到很多地方的修改,当然,如果只是需要满足登陆用户名的修改的话,就比较简单.而如果需要将某个用户在每一个地方显示的名字都改掉的话,就要修改不是地方了,下面就来讲 ...

  3. 数论/the first wave

    线性筛素数(原来我之前学的不是线性的啊... void getprime(){ rep(i,2,nmax){ if(!vis[i]) prime[++prime[0]]=i; for(int j=1; ...

  4. BZOJ1954: Pku3764 The xor-longest Path

    题解: 在树上i到j的异或和可以直接转化为i到根的异或和^j到根的异或和. 所以我们把每个点到根的异或和处理出来放到trie里面,再把每个点放进去跑一遍即可. 代码: #include<cstd ...

  5. [swustoj 679] Secret Code

    Secret Code 问题描述 The Sarcophagus itself is locked by a secret numerical code. When somebody wants to ...

  6. 【转】禁止seekbar的拖动事件

    原文网址:http://blog.csdn.net/ansionnal/article/details/8229801 当然是可以的! 其实是 onTouchEvent 事件时,不让他传递事件就行了! ...

  7. HTML.ActionLink 和Html.Action和 Url.Action 的区别

    1. html.ActionLink生成一个<a href=".."></a>标记..例如:@Html.ActionLink(“链接文本”.“someact ...

  8. ToString() 格式化字符串

    例如i=: i.ToString().PadLeft(,'); 固定长度为10,左不足补0,结果为0000000001:

  9. 开源项目ets_cache分析

    1 背景 当在程序中,有大量的数据需要读写,数据库的响应会延迟,甚至阻塞.缓存可以缓解对数据库访问的压力,而且在内存中数据的读写要比读写硬盘上的数据快. 2 目的 ets_cache是用erlang实 ...

  10. ASP.NET工作笔记之一:图片上传预览及无刷新上传

    转自:http://www.cnblogs.com/sibiyellow/archive/2012/04/27/jqueryformjs.html 最近项目里面涉及到无刷新上传图片的功能,其实也就是上 ...