Question

CAD中用VBA编程来查找图元的问题

我本来是下面的语句，通过鼠标点击来获取图元
Dim entObj As AcadEntity
'选择图元
ThisDrawing.Utility.GetEntity entObj, pickPnt
但如果图中图元太多，通过鼠标点击太麻烦，所以我想用for循环来获取图元

我试着用下面这段语句
For Each entObj in ThisDrawing
但是，这句话连编译都通不过。
请问该怎么改？

Answer 1

朋友您好！

在CAD中查找图元可以用CAD中自带的快速选择功能，没必要进行复杂的编程。
如果编译无法通过，很有可能是语法的错误。

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。
掌握了VBA，可以发挥以下作用：
1.规范用户的操作，控制用户的操作行为；
2.操作界面人性化，方便用户的操作；
3.多个步骤的手工操作通过执行VBA代码可以迅速的实现；
4.实现一些VB无法实现的功能。
5.用VBA制做EXCEL登录系统。
6.利用VBA可以Excel内轻松开发出功能强大的自动化程序。

追问

那个快速选择是选择一堆图元。我是要一个一个选择，然后根据每个所在的位置，设置不同的属性。

追答

这么高深莫测的问题，我只能叹为观止了！

Answer 2

建议用select来获取图元，要用到“选择集”

追问

嗯，好像思路可行。先设计一个选择集，然后在选择集里做for循环。我明天试试。