[VBA程序]：VBA 修改标注样式？？

wtkc

在ACAD VBA模型库中，标注对象dimstyle没有与其各标注特性相关的属性，我编制vba代码，希望动态调整标注中的某些特性，如全局比例等，由于无法通过设置dimstyle对象的相关特性，故只能通过设置与标注相关的系统变量后，想通过-dimstyle命令更新标注样式（如果不更新将产生标注替代）。可总发生如下情况：

命令: dimscale
输入 DIMSCALE 的新值 <1.0000>: 4
命令: d DIMSTYLE
命令: `d
-DIMSTYLE
当前标注样式:standard
当前标注替代:
DIMSCALE    4.0000
输入标注样式选项
[保存(S)/恢复(R)/状态(ST)/变量(V)/应用(A)/?] <恢复>: s
输入新标注样式名或 [?]:standard
该名称已在使用。是否重新定义？<N>:y
无效的选项关键字。
该名称已在使用。是否重新定义？<N>:y
无效的选项关键字。

总是无法更新保存新的标注样式，帮助中却说可以实在不得其解，请同仁帮助？？？，有否其他得替代方法!

灯火

标注样式的属性可以用如下方法修改。

[PHP]
'修改标注样式设置而不产生样式替代
Public Sub Test()

    Dim objSty As AcadDimStyle
    Dim objDim As AcadEntity

    On Error Resume Next
    Set objSty = ThisDrawing.DimStyles("mysty")
    If Err.Number = 0 Then
        ThisDrawing.ActiveDimStyle = objSty
    Else
        Set objSty = ThisDrawing.DimStyles.Add("mysty")
    End If
   
    '设置系列变量
    ThisDrawing.SetVariable "dimscale", 4#
    objSty.CopyFrom ThisDrawing
   
    For Each objDim In ThisDrawing.ModelSpace
        If objDim.StyleName = objSty.Name Then
            objDim.Update
        End If
    Next
        
End Sub
[/PHP]

wtkc

谢谢灯火，终于可以解决了

sgw310

谢谢，看能不能解决我的问题