社区 › VB › 虚线& amp图纸空间中的中心线比例:巨大！

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

虚线& amp图纸空间中的中心线比例:巨大！

在我的宏中，sysvar LTSCALE 被设置为一个值，该值使虚线和中心线在模型空间中看起来正常。但在我的纸质空间布局中，它们就像制图员匆匆忙忙一样出现。无论 sysvar PSLTSCALE 是设置为 0 还是 1...他们是巨大的！
如何使纸质空间线型看起来与模型空间中的线型相同？
**** Hidden Message *****

havano 发表于 2006-12-6 03:10:01

更改PSLTSCALE后，您必须进行重新编码以显示更改。
担

Bryco 发表于 2006-12-6 03:23:12

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

havano 发表于 2006-12-6 09:38:27

另一种方法是将PSLTSCALE设置为1（始终），并使用AcadDocument_LayoutSwitched将Lts设置为1或0.5（无论何时进入paperspace），然后设置为您想要的模型空间。另一种方法也可以，只要没有不同的视口比例

havano 发表于 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

havano 发表于 2006-12-6 19:11:19

几年前当我写这样的东西时，我最初使用LayoutSwaitched，特别是为了进入模型空间。
没有什么比等待重生更烦人的了，因为LTSCALE被设置为1，而它应该是500。
我放弃了LayoutSwitched，因为在事件链中为时已晚，也就是说，在AutoCAD重新生成要切换到的布局之前，您无法更改LTSCALE，也无法做出任何改变。Acad会重新生成，然后您的ltscale会重新生成，或者您必须手动执行。

havano 发表于 2006-12-7 17:49:22

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

查看完整版本: 虚线& amp图纸空间中的中心线比例:巨大！