【问题标题】:Change drawing Scale on AutoCAD在 AutoCAD 上更改图形比例
【发布时间】:2017-07-31 17:30:57
【问题描述】:

您好,我正在编写将英制值转换为公制的代码。但是我无法让我的代码正常工作,它总是在第一行给我一个错误。见以下代码:

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

【问题讨论】:

    标签: vba autocad


    【解决方案1】:

    你应该像这样声明 oDoc

    Dim oDoc As AcadDocument
    

    这就是关于

    的问题的答案

    第一行出错

    但是在这段代码中还有很多问题

    【讨论】:

    • 成功了,谢谢,但现在错误已移至第三行。我只想要一个可以自动将英制绘图比例更改为公制绘图比例的代码。
    • 你能看出第一行和第三行之间有什么相似之处吗?你有错误吗?真的吗?也许你分享错误信息?
    • 所以这意味着你的声明是错误的。我认为您应该使用对象浏览器 (F2) 在 CAD 应用程序中查找正确的数据类型。顺便说一句,这似乎是一个误解。您提到了“转换”,但仅操作视图。您的代码,即使正确时也会缩放视图,但不会更改任何实体的任何尺寸
    • 我还是 vba 新手,有时会让人困惑,但谢谢
    猜你喜欢
    • 1970-01-01
    • 2017-04-24
    • 1970-01-01
    • 2021-06-28
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多