在AutoCAD上更改绘图比例

Question

您好我正在处理将英制值转换为公制的代码。但是我无法让我的代码工作，它总是在第一行给我一个错误。请参阅以下代码：

Sub DrawingViewScale()
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oView As DrawingView
    Set oView = oDoc.ActiveSheet.DrawingViews.Item(1)
    MsgBox oView.scale()

    oView.[scale] = 25.4
    MsgBox oView.scale()
End Sub

Answer 1

你应该像这样声明oDoc

Dim oDoc As AcadDocument

这是关于

的问题的答案

  第一行

错误

但是在这段代码中存在更多问题