【工作需要】CAD+VBA 实现图块的旋转平移缩放和拼接

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

---

前言

提示：这里可以添加本文要记录的大概内容：
例如：随着人工智能的不断发展，机器学习这门技术也越来越重要，很多人都开启了学习机器学习，本文就介绍了机器学习的基础内容。

---

提示：以下是本篇文章正文内容，下面案例可供参考

一、需求

大概有80几个CAD文件里面的图块位置不对，其标示的坐标是正确的，但是实际位置并不对，存在平移旋转缩放的问题。并且这些有问题的图块需要整合至一个CAD 文件中，目前针对这个需求进行一个思路实现整理。

二、实现步骤

1.识别文件中的正确的坐标信息

目前参考的是

https://blog.csdn.net/end1n9/article/details/112801674

此处实现了对选择的文本数据进行输出，并存出了一个txt文件

还需更改成将识别的坐标提取出来

Sub AcadGetText()
    
    Dim sset As AcadSelectionSet   '声明定义选择集
    Dim ent As AcadEntity          '声明实体
    Dim fso, f
    Dim filename As String         '声明文件字符串
    Dim str As String
    Dim pp(0 To 1) As Double
    
    filename = "d:/output.txt"
    
    Do While ThisDrawing.SelectionSets.Count > 0
        ThisDrawing.SelectionSets.Item(0).Delete
    Loop
    
    Set sset = ThisDrawing.SelectionSets.Add("sst")  '添加选择集
    sset.SelectOnScreen                              '在屏幕上选择对象
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(filename, 8, True)
    
    ' 可能选取到非文本，所以。。。
    On Error Resume Next
    
    For i = 0 To sset.Count - 1
    
    str = sset(i).TextString
    
    pp(i) = Val(str)