AutoCAD 二次开发-VBA 问题与技巧

笔记不定期更新。。。

问题3. 创建字典

字典在哪里?如何创建字典?
字典是由scrrun.dll 链接库提供的，
工具-引用-浏览找到scrrun.dIl- 确定，
Set d = CreateObiect(" scripting.dictionary")

问题2. 清空选择集

先介绍几个关于选择集的删除操作吧。
1、Clear:：Clear方法是清空选择集。选择集依然存在，但不包含任何实体对象。这些实体对象仍驻留在图形数据库中，只是不再与该选择集关联。
2、RemoveItems：RemoveItems方法是从选择集中清除一个或者多个实体对象。这些被清除的实体对象仍旧驻留在图形数据库中，只是不再与该选择集关联。

问题1. 如何在 userform 和CAD 窗体之间随意切换

(1)在“工具箱”中的空白区域单击右键，从弹出的菜单中选择“附加控件”菜单项。
(2)在“附加控件”对话框中，引用“AcFocusCtrl”控件，单击“确定”按钮关闭该对话框。
(3)将添加的“AcFocusCtrl”控件放置在要作为非模态使用的窗体中，并在窗体的初始化事件中添加：Me.AcFocusCtrl1.KeepFocus = True
(4)在ThisDrawing模块中添加下面的语句：
Sub Test()
UserForm1.Show vbModeless
End Sub
(5)运行Test宏，窗体自由切换的效果。

实际上这是非模态对话框
"模态对话框"：在Form1窗口上点击按钮弹出一个Form2窗口，在关闭Form2窗口之前，不能在Form1窗口上操作
"非模态对话框"：在Form1窗口上点击按钮弹出一个Form2窗口，这个时候既可以在Form1窗口上操作，也可以在Form2窗口上操作

可以解决使用问题，但不是很完善