获取CAD图形边界框(getboundingbox和getvariable)及字外加圆实例应用——vba实现

本文主要是介绍获取CAD图形边界框(getboundingbox和getvariable)及字外加圆实例应用——vba实现,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

        获取某个实体的边界框可用getboundingbox方法(注意:坐标需定义为变体变量variant)

Obj.GetBoundingBox minExt, maxExt

获取整图的边界框可用获取系统变量方法

youshang = ThisDrawing.GetVariable("extmax") '获取系统变量取得整图的边界
zuoxia = ThisDrawing.GetVariable("extmin")

代码如下:

Sub 获取边界框boundingbox()'yngqq443440204@2024年4月18日10:55:10' 画条线获取边界框并取得边界框的左下角和右上角坐标(三维)Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As DoubleDim lineObj As AcadLine, youshang As Variant, zuoxia As VariantstartPoint(0) = 2#: startPoint(1) = 2#: startPoint(2) = 0#endPoint(0) = 4#: endPoint(1) = 4#: endPoint(2) = 0#Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)ZoomExtents '缩放到范围Dim minExt As Variant, maxExt As VariantlineObj.GetBoundingBox minExt, maxExt' 获取最小和最大范围MsgBox "线的边界范围是:" & vbCrLf _& "最小范围: " & minExt(0) & "," & minExt(1) & "," & minExt(2) _& vbCrLf & "最大范围: " & maxExt(0) & "," & maxExt(1) & "," & maxExt(2), vbInformation, "qq443440204"youshang = ThisDrawing.GetVariable("extmax") '获取系统变量取得整图的边界zuoxia = ThisDrawing.GetVariable("extmin")Stop
End Sub

 结果如下:

 

通过系统变量的方法获取范围比getboundingbox方法获取范围略微大点。

以下为循环字外加圆实例:

Public Sub 循环字外加圆()
'yngqq443440204@2024年4月18日11:48:49
On Error GoTo errorcontrol
Do
Dim objText As AcadText, ptPick As Variant
ThisDrawing.Utility.GetEntity objText, ptPick, "拾取文字:"
Dim ptMin As Variant, ptMax As Variant
objText.GetBoundingBox ptMin, ptMax
Dim ptCenter(0 To 2) As Double
ptCenter(0) = (ptMin(0) + ptMax(0)) / 2
ptCenter(1) = (ptMin(1) + ptMax(1)) / 2
ptCenter(2) = 0
Dim radius As Double
radius = Sqr((ptMin(0) - ptMax(0)) ^ 2 + (ptMin(1) - ptMax(1)) ^ 2) / 2
Dim objCircle As AcadCircle
Set objCircle = ThisDrawing.ModelSpace.AddCircle(ptCenter, radius)
Loop
errorcontrol:
Err.Clear
Exit Sub
End Sub

这篇关于获取CAD图形边界框(getboundingbox和getvariable)及字外加圆实例应用——vba实现的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/925518

相关文章

python实现svg图片转换为png和gif

《python实现svg图片转换为png和gif》这篇文章主要为大家详细介绍了python如何实现将svg图片格式转换为png和gif,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 目录python实现svg图片转换为png和gifpython实现图片格式之间的相互转换延展:基于Py

Python利用ElementTree实现快速解析XML文件

《Python利用ElementTree实现快速解析XML文件》ElementTree是Python标准库的一部分,而且是Python标准库中用于解析和操作XML数据的模块,下面小编就来和大家详细讲讲... 目录一、XML文件解析到底有多重要二、ElementTree快速入门1. 加载XML的两种方式2.

Java的栈与队列实现代码解析

《Java的栈与队列实现代码解析》栈是常见的线性数据结构,栈的特点是以先进后出的形式,后进先出,先进后出,分为栈底和栈顶,栈应用于内存的分配,表达式求值,存储临时的数据和方法的调用等,本文给大家介绍J... 目录栈的概念(Stack)栈的实现代码队列(Queue)模拟实现队列(双链表实现)循环队列(循环数组

C++如何通过Qt反射机制实现数据类序列化

《C++如何通过Qt反射机制实现数据类序列化》在C++工程中经常需要使用数据类,并对数据类进行存储、打印、调试等操作,所以本文就来聊聊C++如何通过Qt反射机制实现数据类序列化吧... 目录设计预期设计思路代码实现使用方法在 C++ 工程中经常需要使用数据类,并对数据类进行存储、打印、调试等操作。由于数据类

Python实现图片分割的多种方法总结

《Python实现图片分割的多种方法总结》图片分割是图像处理中的一个重要任务,它的目标是将图像划分为多个区域或者对象,本文为大家整理了一些常用的分割方法,大家可以根据需求自行选择... 目录1. 基于传统图像处理的分割方法(1) 使用固定阈值分割图片(2) 自适应阈值分割(3) 使用图像边缘检测分割(4)

Android实现在线预览office文档的示例详解

《Android实现在线预览office文档的示例详解》在移动端展示在线Office文档(如Word、Excel、PPT)是一项常见需求,这篇文章为大家重点介绍了两种方案的实现方法,希望对大家有一定的... 目录一、项目概述二、相关技术知识三、实现思路3.1 方案一:WebView + Office Onl

Java中的Lambda表达式及其应用小结

《Java中的Lambda表达式及其应用小结》Java中的Lambda表达式是一项极具创新性的特性,它使得Java代码更加简洁和高效,尤其是在集合操作和并行处理方面,:本文主要介绍Java中的La... 目录前言1. 什么是Lambda表达式?2. Lambda表达式的基本语法例子1:最简单的Lambda表

C# foreach 循环中获取索引的实现方式

《C#foreach循环中获取索引的实现方式》:本文主要介绍C#foreach循环中获取索引的实现方式,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友参考下吧... 目录一、手动维护索引变量二、LINQ Select + 元组解构三、扩展方法封装索引四、使用 for 循环替代

Spring Security+JWT如何实现前后端分离权限控制

《SpringSecurity+JWT如何实现前后端分离权限控制》本篇将手把手教你用SpringSecurity+JWT搭建一套完整的登录认证与权限控制体系,具有很好的参考价值,希望对大家... 目录Spring Security+JWT实现前后端分离权限控制实战一、为什么要用 JWT?二、JWT 基本结构

Java实现优雅日期处理的方案详解

《Java实现优雅日期处理的方案详解》在我们的日常工作中,需要经常处理各种格式,各种类似的的日期或者时间,下面我们就来看看如何使用java处理这样的日期问题吧,感兴趣的小伙伴可以跟随小编一起学习一下... 目录前言一、日期的坑1.1 日期格式化陷阱1.2 时区转换二、优雅方案的进阶之路2.1 线程安全重构2