获取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获取中国节假日数据记录入JSON文件

《Python获取中国节假日数据记录入JSON文件》项目系统内置的日历应用为了提升用户体验,特别设置了在调休日期显示“休”的UI图标功能,那么问题是这些调休数据从哪里来呢?我尝试一种更为智能的方法:P... 目录节假日数据获取存入jsON文件节假日数据读取封装完整代码项目系统内置的日历应用为了提升用户体验,

微信公众号脚本-获取热搜自动新建草稿并发布文章

《微信公众号脚本-获取热搜自动新建草稿并发布文章》本来想写一个自动化发布微信公众号的小绿书的脚本,但是微信公众号官网没有小绿书的接口,那就写一个获取热搜微信普通文章的脚本吧,:本文主要介绍微信公众... 目录介绍思路前期准备环境要求获取接口token获取热搜获取热搜数据下载热搜图片给图片加上标题文字上传图片

SpringBoot3实现Gzip压缩优化的技术指南

《SpringBoot3实现Gzip压缩优化的技术指南》随着Web应用的用户量和数据量增加,网络带宽和页面加载速度逐渐成为瓶颈,为了减少数据传输量,提高用户体验,我们可以使用Gzip压缩HTTP响应,... 目录1、简述2、配置2.1 添加依赖2.2 配置 Gzip 压缩3、服务端应用4、前端应用4.1 N

SpringBoot实现数据库读写分离的3种方法小结

《SpringBoot实现数据库读写分离的3种方法小结》为了提高系统的读写性能和可用性,读写分离是一种经典的数据库架构模式,在SpringBoot应用中,有多种方式可以实现数据库读写分离,本文将介绍三... 目录一、数据库读写分离概述二、方案一:基于AbstractRoutingDataSource实现动态

Python FastAPI+Celery+RabbitMQ实现分布式图片水印处理系统

《PythonFastAPI+Celery+RabbitMQ实现分布式图片水印处理系统》这篇文章主要为大家详细介绍了PythonFastAPI如何结合Celery以及RabbitMQ实现简单的分布式... 实现思路FastAPI 服务器Celery 任务队列RabbitMQ 作为消息代理定时任务处理完整

Java枚举类实现Key-Value映射的多种实现方式

《Java枚举类实现Key-Value映射的多种实现方式》在Java开发中,枚举(Enum)是一种特殊的类,本文将详细介绍Java枚举类实现key-value映射的多种方式,有需要的小伙伴可以根据需要... 目录前言一、基础实现方式1.1 为枚举添加属性和构造方法二、http://www.cppcns.co

使用Python实现快速搭建本地HTTP服务器

《使用Python实现快速搭建本地HTTP服务器》:本文主要介绍如何使用Python快速搭建本地HTTP服务器,轻松实现一键HTTP文件共享,同时结合二维码技术,让访问更简单,感兴趣的小伙伴可以了... 目录1. 概述2. 快速搭建 HTTP 文件共享服务2.1 核心思路2.2 代码实现2.3 代码解读3.

MySQL双主搭建+keepalived高可用的实现

《MySQL双主搭建+keepalived高可用的实现》本文主要介绍了MySQL双主搭建+keepalived高可用的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,... 目录一、测试环境准备二、主从搭建1.创建复制用户2.创建复制关系3.开启复制,确认复制是否成功4.同

Java实现文件图片的预览和下载功能

《Java实现文件图片的预览和下载功能》这篇文章主要为大家详细介绍了如何使用Java实现文件图片的预览和下载功能,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... Java实现文件(图片)的预览和下载 @ApiOperation("访问文件") @GetMapping("

使用Sentinel自定义返回和实现区分来源方式

《使用Sentinel自定义返回和实现区分来源方式》:本文主要介绍使用Sentinel自定义返回和实现区分来源方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录Sentinel自定义返回和实现区分来源1. 自定义错误返回2. 实现区分来源总结Sentinel自定