通过选定整个目录中的图形文件插入到图形中的过程(zt)

转载 2004年10月12日 17:19:00
通过选定整个目录中的图形文件插入到图形中的过程
Sub IntBlkByDirDwg()
On Error GoTo Err_Control
Dim BlkFile As Variant
Dim i As Integer
Dim InstPnt As Variant
Dim BlkRefObj As AcadBlockReference
Dim varCancel As Variant

BlkFile = GetDir("选择要插入图形所在的目录:", "*.dwg")

If IsArray(BlkFile) Then
    ThisDrawing.Utility.Prompt vbCrLf & " 你选定了" & Str(UBound(BlkFile) + 1) & "个图形"
    For i = 0 To UBound(BlkFile)
        
        InstPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & " 请选择图形 " & JustFileName(BlkFile(i)) & " 的插入点:")
        Set BlkRefObj = ThisDrawing.ModelSpace.InsertBlock(InstPnt, _
                        BlkFile(i), 1#, 1#, 1#, 0#)
    Next

End If

Exit_Here:
  Exit Sub
Err_Control:
  Select Case Err.Number
    Case -2147352567
      varCancel = ThisDrawing.GetVariable("LASTPROMPT")
      If InStr(1, varCancel, "*Cancel*") <> 0 And InStr(1, varCancel, "*取消*") <> 0 Then
        Err.Clear
        Resume Exit_Here
      Else
        Err.Clear
        Resume
      End If
    Case -2145320928
      Err.Clear
      Resume Exit_Here
    Case Else
      Resume Exit_Here
  End Select

End Sub

'返回指定目录下指定名称所有文件的函数
Function GetFileListByPath(Path As String, FileName As String) As Variant

    Dim s As String
    Dim sFiles() As String
    Dim i As Integer
    s = Dir(Path & FileName)
    If s <> "" Then
     ReDim sFiles(i) As String
     sFiles(i) = Path & s
     i = 1
     s = Dir()
     While s <> ""
        ReDim Preserve sFiles(i) As String
        sFiles(i) = Path & s
        i = i + 1
        s = Dir()
     Wend
     GetFileListByPath = sFiles
    End If
    
End Function

'选定目录的函数,使用了commonDialog类
Public Function GetDir(DialogTitle As String, FileName As String) As Variant

Dim dlg As CommonDialog
Dim Path As String
Dim FileList As Variant

Set dlg = New CommonDialog
    dlg.DialogTitle = DialogTitle
    If dlg.Browse Then
        Path = dlg.Path
        If Path <> "" Then
            Path = Left$(Path, InStr(Path, vbNullChar) - 1)
            If Right$(Path, 1) <> "/" Then Path = Path & "/"
            FileList = GetFileListByPath(Path, "*.dwg")
            GetDir = FileList
        End If
    End If
        

End Function

'由文件全路径名称返回文件的函数
Public Function JustFileName(FileName) As String
On Error Resume Next
Dim count As Integer
For count = Len(FileName) - 1 To 1 Step -1
    If Mid(FileName, count, 1) = "/" Or Mid(FileName, count, 1) = "/" Then
        JustFileName = Right(FileName, Len(FileName) - count)
        Exit For
    End If
Next
End Function

cacti安装后提示图形文件不存在

cacti安装后提示图形文件不存在 这个问题是由于时间问题引起的! 查看cacti的日志就可以看出来: Log File [Total Lines: 14 – All Items S...
  • houdaiye
  • houdaiye
  • 2016年01月18日 22:20
  • 1875

一次性把DataTable中的数据插入数据库

///    /// 初始化一个DataTable类型的数据源   /// Author : AnDequan   /// Date   : 2011-3-14   ///    /// S...
  • qq_30469045
  • qq_30469045
  • 2016年10月22日 22:02
  • 1836

HTML页面渲染过程——在浏览器中敲入URL到完整渲染出来,经历的过程解析

浏览器与服务器的交互浏览器的主要功能是将用户选择的web资源呈现出来,它从服务器请求资源,并将得到的资源(HTML,PDF,image等等)显示在浏览器窗口。那么从用户敲入URL到完整渲染出来,经历了...
  • jiangawait
  • jiangawait
  • 2017年02月27日 16:58
  • 1178

图形文件的格式

近年来,个人计算机和工作站上的图形工具比几年前的巨型机上的图形工具还要多,计算机图形学的领域也随之扩展。过去,当人们编出越来越多的图形应用程序后,需要把图像文件存储下来以作日后的处理或显示之用。在缺乏...
  • fire_woods
  • fire_woods
  • 2007年07月20日 15:18
  • 2439

平衡二叉排序树插入结点的学习总结

最近写了平衡二叉排序树代码,在这里对自己的理解做一下总结。 下面的文字,更多的是把我自己的遇到的理解上的问题和思路讲清楚,可能不能让你一下就看明白,这是我的问题。网上其实有很多写的很好的文章...
  • wangxiaolongbob
  • wangxiaolongbob
  • 2012年08月01日 21:31
  • 1482

给LaTeX文章加上目录表格

http://tex.stackexchange.com/questions/24750/article-appendix-with-sections-and-toc-entries-in-the-f...
  • stereohomology
  • stereohomology
  • 2014年02月22日 15:09
  • 2472

wget 下载整个网站,或者特定目录

转载自:http://www.cnblogs.com/lidp/archive/2010/03/02/1696447.html 需要下载某个目录下面的所有文件。命令如下 wget -c -r ...
  • memray
  • memray
  • 2013年09月16日 23:44
  • 41429

Java程序的编译过程

一.java的编译阶段大致分为两个阶段: 早期: 将java程序源码编译成字节码 ,“前端编译器”javac 晚期: 从字节码生成本地机器码的过程, “后端编译器”JIT编译器...
  • u013275928
  • u013275928
  • 2017年03月28日 10:02
  • 765

使用ftp获取服务器上的整个目录

ftp命令只可以使用get命令获取到普通文件,不能获取目录。 写了个脚本getDir.sh,获取服务器上某个目录下所有文件。 getDir.sh #! /bin/bash # filename...
  • caoren642424136
  • caoren642424136
  • 2012年04月22日 22:10
  • 1812

从无到有:软件项目过程敏捷实践

项目过程分解 通过本次消息中间件系统的全程参与,对于软件项目从无到有的生产过程有了较深入的了解,尤其对于架构设计的决策过程和依据,有了全面的认识。整个项目过程从无到有依次可以分解为九个过程,下面一...
  • u013721793
  • u013721793
  • 2016年04月20日 20:56
  • 533
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通过选定整个目录中的图形文件插入到图形中的过程(zt)
举报原因:
原因补充:

(最多只允许输入30个字)