AutoCAD VBA选择集操作，示例代码如下。 Public Sub Test() Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim pt3(0 To 2) As Double Dim pt4(0 To 2) As Double Dim pt5(0 To 2)...
转载
2011-03-21 22:41:00
1309阅读
2评论
后台选择集 我把20210510日志贴到此处了,并且删除了日志(些许编辑): 需要1,cad自带的函数ssget如果进行矩形范围选择,那么需要设置屏幕范围可见,API上面提供了w选和c选. 需求2,后台开图没有ssget. 这个时候不妨制作一个自己的选择模式,不用可见: 遍历模型块表记录,图元采样点 ...
转载
2021-05-14 02:56:00
579阅读
2评论
在本示例中将使用构造选择集对被过滤对象进行过滤,该类封装了选择集及其处理函数,支持如下过滤条件。参数类型
原创
2022-07-21 17:40:33
143阅读
根据指定的过滤条件，快速的从图上选择实体，选择后的实体可以用于后续的编辑修改。过滤条件，可以为：对象类型、图层、颜色和线型。运算符为： 等于、不等于、大于和小于。1.单击常用工具栏的“快速选择”按钮。2.在命令行中输入QuickSelect，按回车键：执行命令后，命令行将显示如下信息：命令: Mx_QuickSelect...
原创
2022-07-20 17:35:52
514阅读
VBA语句集
(第1辑)
定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error
转载
2012-07-24 21:55:40
935阅读
大家好，今日我们继续讲解数组与字典解决方案，今日讲解第47讲：利用字典和数组，实现按指定规则的排序。随着字典讲解的深入,我们发现字典真的很神奇,在VBA代码中,给人以十分清爽的感觉,在这套数组与字典解决方案中,我会尽可能的把经常用到的实例多多讲解给大家,让大家对于字典的理解更加深入.虽然这块内容利用其它方案都可以实现,但是字典确实能大大简化我们的代码.让我们对于VBA的理解更深入.今日实例是实现按
转载
2024-04-24 21:12:22
449阅读
问题提出:实际上自己感觉用处不是很大,非得需要将工作表进行排序吗?只要能访问不就可以吗?但既然提出来了,就看看吧,而且里面有个算法对我很有价值,就是排序算法,以前遇到需要排序的要求,心里就害怕,这次就借着这个问题,把它解决吧.Sub 工作表按升序排序() Dim i As Integer, j As Integer, n As Integer &n
转载
2024-03-22 21:07:12
241阅读
Auto CAD VBA画100个圆，代码如下。 Sub CreateCircles() Dim cc(0 To 2) As Double cc(0) = 100 cc(1) = 100 cc(2) = 0 For I = 1 To 1000 Step 10 Call ThisDrawing.ModelSpace.AddCircle...
转载
2011-03-19 20:47:00
504阅读
2评论
# 使用VBA与MySQL进行数据交互
在日常的数据管理和分析中，Excel常常作为一个重要的工具，而VBA（Visual Basic for Applications）则是Excel中用于自动化和自定义功能的强大工具。结合MySQL这样一个强大的数据库管理系统，利用VBA对MySQL中的数据进行操作和分析，可以大大提高工作效率。本文将介绍如何使用VBA访问MySQL数据库，并提供相关代码示例。
1- 区域命名ThisWorkbook.Names.Item("foo").RefersTo
=Tabelle1!$A$1:$B$1
ThisWorkbook.Names.Item("foo").RefersToRange.Address
$A$1:$B$1 2- 一个有趣的caseSub 按钮1_Click()
For j = 1 To 1000
转载
2024-04-02 09:45:26
99阅读
主程序：Sub mymain()
Dim MainArr, t
Application.ScreenUpdating = False
t = timer
With ThisWorkbook.Worksheets("排序")
MainArr = .Range("a2: a" & Cells(Rows.Count, "a").End(xlUp).
转载
2024-10-12 16:38:42
59阅读
工作表内单元格数据的排序，使用Range.Sort 命令。但是后面的参数较多，新人一般采用录制宏时出来一大堆，也不知道该如何编辑。因此，我开这一个帖子，给新人普及一下：Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, O
转载
2024-02-13 13:26:19
266阅读
直接选择排序， 从前到后， 依次选择出待排序数据的最小值并将其与待排序数据的首数据相交换。
原创
2022-05-18 10:12:45
136阅读
直接选择排序： 所有记录中选出最小的记录与第一个记录交换，其余记录中选出最小的记录与第二个记录，以此类推堆排序： 将堆顶元素与堆最后一个元素交换，同时令堆的大小减少一个，堆序的修复，反复执行，直到堆中只剩一个元素
原创
2022-08-01 09:40:12
111阅读
选择排序：
基本思想：每一趟(第i趟，i=0,1，…，n-2)在后面n-i个待排序的数据元素集合中选出关键码最小的数据元素，作为有序元素序列的第i个元素。待到第n-2趟做完，待排序元素集合中只剩下1 个元素，排序结束。
一、选择排序
每一次在一组数中选最大的放到最后,然后再在剩余的数中选次大的数放到倒数第二个位置,直到这组数选完为止;(以升序为例)
void SelectSort(
原创
2022-11-04 10:53:37
128阅读
AutoCAD VBA 通过选择集 删除图层上所有对象和图层 '删除图层上所有对象
转载
2009-10-29 11:05:00
708阅读
2评论
交换排序之——选择排序- 简单选择排序- 树形选择排序- 堆排序
原创
2022-07-07 10:03:35
221阅读
算法实现 1.每一次遍历的过程中，都假定第一个索引处的元素是最小值，和其他索引处的值依次进行比较，如果当前索引处 的值大于其他某个索引处的值，则假定其他某个索引出的值为最小值，最后可以找到最小值所在的索引 2.交换第一个索引处和最小值所在的索引处的值 /** * 选择排序 * @author wen ...
转载
2021-08-04 17:54:00
221阅读
2评论
数据结构 选择排序 直接选择排序 堆排序
原创
2014-09-28 11:27:47
637阅读
选择排序将数组分成已排序区间和未排序区间。初始已排序区间为空。每次从未排序区间中选出最小的元素插入已排序区间的末尾，直到未排序区间为空。代码:public int[] selectionSort(int[] a) { int n = a.length; for (int i = 0; i < a.length - 1; i++) ...
原创
2022-12-19 11:05:36
116阅读
