13、AutoCAD 中选择对象及缩放操作的实现

emacs5lisp

于 2025-11-05 12:15:22 发布

阅读量1

点赞数

CC 4.0 BY-SA版权

分类专栏：掌握AutoCAD VBA编程文章标签： AutoCAD SelectionSet AcadEntity

本文链接：https://blog.youkuaiyun.com/emacs5lisp/article/details/155259645

掌握AutoCAD VBA编程专栏收录该内容

34 篇文章 ¥99.00

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

AutoCAD 中选择对象及缩放操作的实现

1. 识别用户选择的线条

在 AutoCAD 里，用户能够挑选一组绘图对象，随后将这些对象组成一个临时集合，也就是属于当前绘图对象的 SelectionSet 集合。这个集合仅在绘图处于打开状态时存在。可以用一个被声明为能够引用 AcadSelectionSet 对象的变量来引用这个集合。而每个成员对象则可以用一个被声明为引用 AcadEntity 对象的变量来引用。AcadEntity 类的对象能够包含任何 AutoCAD 对象。

1.1 GetUsersSelection 宏

下面的 GetUsersSelection 宏能让用户选择线条（或者其他绘图对象），接着把所有选中项的颜色改成绿色。把这个宏输入到 Line Input 项目的 Module1 中。

Sub GetUsersSelection()
    Dim UsersSelection As AcadSelectionSet
    Dim DrawingSelected As AcadEntity
    ‘delete the selection set if it already exists
    With ThisDrawing
        On Error Resume Next
       .SelectionSets(“CurrentSelection”).Delete
        ‘get selection from user
        MsgBox “Select objects! Hit Enter to finish!”
        Set Us