[VBA程序]：请教:如何实现动态绘制矩形框?

fyxzi

就像CAD的绘制矩形那样,可以随鼠标的滑动动态绘制一个矩形,请教怎么实现啊,谢谢.

雪山飞狐(lzh)

获取矩形的角点。

参阅 | 示例

语法

RetVal = GetCorner(Point[, Prompt])

Object

Utility
使用该方法的对象。

Point

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

Prompt

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

RetVal

Variant[变体] (三元素双精度数组)
表示矩形框另一角点的三维WCS坐标。

说明

AutoCAD暂停等待用户输入矩形的角点，然后将返回值设成选取点的值。Point 参数指定了矩形基点的三维WCS坐标；该参数是必需的。Prompt 参数指定了在AutoCAD暂停时显示字符串。该提示是可选项。

AutoCAD用户可以通过输入一个WCS格式的坐标点来指定角点；GetCorner 将点作为一个三维空间的点。用户也可以通过在图形屏幕上指定位置确定角点。AutoCAD从基点到当前十字光标处画出一个有动态大小的矩形来帮助用户认清第二个角点的位置。矩形是在WCS的XY平面中画出。当用点设备时，GetCorner忽略点的Z值，设置Z值的结果为当前标高。

wjl1014

我也想知道。