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. ENVI5.1安装破解教程

    原文地址:  ENVI5.1安装破解_百度经验 http://jingyan.baidu.com/article/020278118b5ded1bcd9ce57a.html   ENVI5.1_x86 ...

  2. Move to Another Changelist

    Move to Another Changelist 将选中的文件转移到其他的 Change list 中. Change list 是一个重要的概念,这里需要进行重点说明.很多时候,我们开发一个项目 ...

  3. R语言学习笔记:因子(Factors)

    因子提供了一个简单并且紧凑的形式来处理分类(名义上的)数据.因子用”水平level”来表示所有可能的取值.如果数据集有取值个数固定的名字变量,因子就特别有用. > g<-c("f ...

  4. freemarker跳出循环

    break语句跳出当前循环,如下: <#list table.columns as c>             <#if c.isPK>                 &l ...

  5. Codeforces 374B - Inna and Nine

    原题地址:http://codeforces.com/problemset/problem/374/B 这道题没什么难度,但是考场上就是没写对.Round #220彰显了它的逗比性质——这道题的“标算 ...

  6. Innodb引擎 long semaphore waits

    上一篇介绍了因为子表过多,导致innodb crash的情况,但crash的原因是long semaphore waits.long semaphore waits又为何物? 背景:Innodb使用了 ...

  7. Java数组你知多少?

    下面我带大家一起加深一下对Java数组的认识: 1.理解数组 数组也是一种数据类型,本身就是一种引用类型,我们从它的初始化方法,通过关键字new去完成定义及初始化就可以知道. 数组的长度是不变的,一旦 ...

  8. Spring data rest 如何显示主键

    How to expose the resourceId with Spring-Data-Rest? Spring-Data-Rest is a quite new project in the S ...

  9. LeetCode Balanced Binary Tree (判断平衡树)

    题意:如题,平衡树是指任意一个节点(除了叶子),其左子树的高度与右子树的高度相差不超过1. 思路:递归解决,但是提供的函数不满足递归的要求啊,我们至少得知道高度,又得返回真假,所以另开个函数解决. / ...

  10. 我个人有关 Azure 网络 SLA、带宽、延迟、性能、SLB、DNS、DMZ、VNET、IPv6 等的 Azure 常见问题解答

    Igor Pagliai(微软)   2014 年 9月 28日上午 5:57  年 11 月 3 年欧洲 TechEd 大会新宣布的内容). 重要提示:这篇文章中我提供的信息具有时间敏感性,因为这些 ...