cdr vba 怎么实现运行脚本后在鼠标位置画圆

在VBA (Visual Basic for Applications) 中，`CDR` 函数通常用于创建轮廓线，但它本身并不能直接用于在特定鼠标位置画圆。然而，你可以通过`CreateObject`函数创建一个`AutoCAD.Application`的对象，并利用其绘图功能来绘制圆。

以下是一个基本步骤：

1. 首先，你需要引用 `Acad` 对象库，它包含了 AutoCAD 的 Automation API。如果你还没有引用，可以在 VBA 窗口中添加 `Tools > References`，然后选择 `AutoCAD Type Library`。

2. 创建一个变量 `acadApp` 来存储 `AutoCAD.Application` 对象：

Dim acadApp As Object
Set acadApp = CreateObject("AutoCAD.Application")

3. 获取当前鼠标的屏幕坐标，假设变量为 `MousePoint`（这里需要你自己定义这个变量并获取鼠标位置），例如：

Dim MousePoint As Variant ' 假设鼠标点的X、Y值分别为MousePoint(0) 和 MousePoint(1)

4. 使用 `acadApp.ActiveDocument` 访问当前活动文档，然后在 `MousePoint` 位置画圆：

acadApp.ActiveDocument.ModelSpace.AddCircle(MousePoint(0), MousePoint(1), acadApp.ActiveViewport.Width / 2) ' 半径可以根据需要自定

5. 最后别忘了保存你的更改：

acadApp.Document.SaveAs "YourDrawing.dwg" ' 保存为 dwg 格式或其他你需要的格式

请注意，实际操作中可能需要处理异常，因为用户可能尚未打开 AutoCAD 应用程序。此外，由于安全限制，直接在 VBA 中控制鼠标坐标可能会有局限，实际应用时应谨慎考虑。