社区 › VB › PlotOrigin切换

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

PlotOrigin切换

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

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

成功！！！
谢谢大家!!!
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

Dommy2Hotty 发表于 2005-11-15 11:50:55

很高兴我能帮忙。你什么时候去法兰克福？

deegeecees 发表于 2005-11-15 11:52:00

我昨晚出去了。我女朋友住在莫凯纳。我的前女友（现任前）住在法兰克福，她的前任住在莫凯纳...我一定喜欢那个地区的人！

Dommy2Hotty 发表于 2005-11-15 11:58:40

外面有点偏僻，也许水里有东西。

查看完整版本: PlotOrigin切换