如何在选择实体时输入关键字？

陈宫在家吗

各位大神，我想在VBA中实现以下功能，能否实现？


画一根直线，正常提示是指定一个点（起点），但此时可以输入一个关键字，转换成选择一个实体，如选择一个圆，直线的起点自动定位到圆的中心。然后继续指定直线的终点，但也可以输入一个关键字，转换成选择一个实体。

liuhe

获取 AutoCAD 中选定的点。

参阅 | 示例

语法

RetVal = GetPoint([Point][, Prompt])

Object

Utility
使用该方法的对象。

Point

Variant[变体] (三元素双精度数组); 仅用于输入; 可选项
指定相对基点的三维 WCS 坐标。

Prompt

Variant[变体] (字符串); 仅用于输入; 可选项
提示用户输入的文本信息。

RetVal

Variant[变体] (三元素双精度数组)
AutoCAD 用户选择的点的三维 WCS 坐标。

说明

AutoCAD 暂停等待用户输入一个点，将选择点的值设为返回值。Point 参数指定的在WCS中的相对基点。Prompt 参数指定了AutoCAD在暂停前显示的字串。Point 和 Prompt 都是可选项。

AutoCAD 用户可以通过输入一个当前单位格式的坐标点来指定一个点；GetPoint 将 Point 参数及返回值作为三维维点。用户也可以通过在图形屏幕上指定一个位置来确定一个点。如果提供了 Point 参数，AutoCAD 将从该点到当前十字光标处画一条橡皮筋线。

存储在返回值中的点坐标根据 WCS 来表示。

如果返回一个关键字而不是点，AutoCAD 将生成错误信息“用户输入关键词”。用 GetInput 方法可以获得返回值中的关键字。

chixun99

用捕捉能不能实现你说的功能？

陈宫在家吗

liuhe 发表于 2023-9-14 13:01
获取 AutoCAD 中选定的点。

参阅 | 示例

谢谢！已经测试成功了！

陈宫在家吗

chixun99 发表于 2023-9-14 16:44
用捕捉能不能实现你说的功能？

用getinput成功实现这个功能了。

qmotuo

学习学习

mikewolf2k

ACAD VBA不直接支持不同类型的输入，得通过错误捕获来绕弯实现。MS就直接支持任意类型的输入，交互相当方便。

陈宫在家吗

mikewolf2k 发表于 2023-9-18 09:25
ACAD VBA不直接支持不同类型的输入，得通过错误捕获来绕弯实现。MS就直接支持任意类型的输入，交互相当方便 ...

请问MS是指什么？

mikewolf2k

陈宫在家吗 发表于 2023-10-7 17:12
请问MS是指什么？

MicroStation