社区 › VB › 虚线（&A）；纸张空间中的中心线比例：巨大！

Bryco 发表于 2006-12-6 03:04:00

虚线（&A）；纸张空间中的中心线比例：巨大！

在我的宏中，sysvar LTSCALE设置为一个值，该值使虚线和中心线在模型空间中看起来正常。但在我的图纸空间布局中，它们显示得就像绘图员非常匆忙一样。无论sysvar PSLTSCALE设置为0还是1……它们都是巨大的
如何使图纸空间线型与模型空间中的线型相同？

纵横五海 发表于 2006-12-6 03:10:01

更改PSLTSCALE后，您必须执行regenall以显示更改
Dan

混在北京 发表于 2006-12-6 03:23:12

啊哈！所以我必须为每个布局将PSLTSCALE设置为0（并执行REGENALL）。非常有用，你的提示。谢谢Dan

撒旦恶魔 发表于 2006-12-6 09:38:27

另一种方法是离开；PSLTSCALE设置为1（始终），并使用AcadDocument\u LayoutSwitched将Lts设置为1或0.5，无论何时进入paperspace，然后设置为模型空间所需的值。另一种方法很好，只要你不#039；t具有不同的视口比例

海盗 发表于 2006-12-6 10:17:05

Private Sub AcadDocument_LayoutSwitched(ByVal LayoutName As String)
    Dim dblLTScale As Double
    Dim dblDimScale As Double
    dblLTScale = 0.6 * (Val(ThisDrawing.GetVariable("DIMSCALE")))
    If dblLTScale = 0 Then
      dblLTScale = 0.6
    End If
    With ThisDrawing
      If .ActiveSpace = acModelSpace Then
            .SetVariable "LTSCALE", dblLTScale
            ThisDrawing.Regen acAllViewports
            Exit Sub
      Else
            .SetVariable "LTSCALE", 0.6
            .SetVariable "PSLTSCALE", 1
            ThisDrawing.Regen acAllViewports
            Exit Sub
      End If
    End With
    Exit Sub
End Sub

网络桃源 发表于 2006-12-6 19:11:19

几年前，当我写这样的东西时，我最初使用了layoutswaitch，尤其是在进入模型空间时
没有什么比等待重生成更烦人的了，因为LTSCALE设置为1，例如，当它应该为500时
我放弃了布局，因为在一连串的事件中已经太晚了；在AutoCAD重新生成要切换到的布局之前，不要更改LTSCALE，以产生任何差异。Acad将重新生成，然后您的ltscale将重新生成或您必须手动执行。

叶根友 发表于 2006-12-7 17:49:22

再次感谢大家。我混合使用了您的建议，使纸面空间LTScale看起来像模型空间LTScale。经过反复试验，不是很优雅，比抱歉更安全等等。这使得我的Autocad窗口在适应所有布局的同时像一辆警车一样闪烁。我的客户会印象深刻！

查看完整版本: 虚线（&A）；纸张空间中的中心线比例：巨大！