PlotOrigin切换

Dommy2Hotty · 发表于 2005-11-15 10:59:14

所以我开始涉足AutoCAD中的VB。设法修改了一些代码以获得以下将居中布局的代码。还做了一个设置偏移量的代码。但是，我不知道如何让它用一个按钮切换。我假设这是我需要修改的=Not部分，但我只是不知道如何修改。再说一次，我现在太忙了，无法阅读它，所以我将感谢任何关于如何使其切换的建议，对布局的批评，或者对您今天的感受的一般解释。谢谢你的时间。我爱你们所有人：爱：

copy

Sub PlotCentered()
    Dim ACADLayout As ACADLayout
    
    Set ACADLayout = ThisDrawing.ActiveLayout
    ACADLayout.CenterPlot = Not ACADLayout.CenterPlot
    ThisDrawing.Regen acAllViewports
End Sub
Sub PlotOffset()
    Dim ACADLayout As ACADLayout
    Dim newValue(0 To 1) As Double
    
    Set ACADLayout = ThisDrawing.ActiveLayout
    newValue(0) = 0
    newValue(1) = 64.516
    ACADLayout.PlotOrigin = newValue
    ThisDrawing.Regen acAllViewports
End Sub

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

deegeecees · 发表于 2005-11-15 11:05:52

想到布尔。
不如说一句“如果”。
伪代码:
如果
则
否则
结束如果

Arizona · 发表于 2005-11-15 11:10:03

鲍勃，
你把话从我嘴里说出来了。然而，在他们的示例中，Autodesk做了完全相同的事情。我很惊讶<而且，你的陈述是正确的。

Dommy2Hotty · 发表于 2005-11-15 11:20:19

非常感谢大家。我将在午餐时间测试新代码。是的，此代码来自帮助文件。耻辱，耻辱欧特克！ :p issed：
再说一遍，我只是在进入这个领域，所以请忍受我！

Dommy2Hotty · 发表于 2005-11-15 11:26:16

错误消息

Dommy2Hotty · 发表于 2005-11-15 11:36:15

哎呀！只需在声明部分添加“Dim newValue（0 to 1）为双精度”。

deegeecees · 发表于 2005-11-15 11:41:17

成功！！！
谢谢大家!!!

copy

Sub PlotOriginToggle()
    Dim objLayout As ACADLayout
    Dim newValue(0 To 1) As Double
    
    Set objLayout = ThisDrawing.ActiveLayout
    If objLayout.CenterPlot = False Then
        objLayout.CenterPlot = True
    Else
        newValue(0) = 0
        newValue(1) = 64.516
        objLayout.PlotOrigin = newValue
    End If
    ThisDrawing.Regen acAllViewports
End Sub