|
|
发表于 2006-6-6 08:54:00
|
显示全部楼层
应该是没问题的，下面这个是VBA上的例子，你参考一下。。。
Sub Example_StyleName()
' This example creates an aligned dimension and then changes the
' StyleName property for that dimension. Dim dimObj As AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double
Dim currStyleName As String
' Define the dimension
point1(0) = 5#: point1(1) = 3#: point1(2) = 0#
point2(0) = 10#: point2(1) = 3#: point2(2) = 0#
location(0) = 7.5: location(1) = 5#: location(2) = 0# ' Create an aligned dimension object in model space
Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
ZoomAll
currStyleName = dimObj.styleName
MsgBox "The initial StyleName for the dimension is " & dimObj.styleName, vbInformation, "TextString Example"
' Create a new dimension style
ThisDrawing.DimStyles.Add ("NewDimensionStyle")
' Change the text string for the dimension
dimObj.styleName = "NewDimensionStyle"
dimObj.Update
MsgBox "The new StyleName for the dimension is " & dimObj.styleName, vbInformation, "TextString Example"
' Reset the text string for the dimension
dimObj.styleName = currStyleName
dimObj.Update
MsgBox "The StyleName for the dimension has been reset to " & dimObj.styleName, vbInformation, "TextString Example"
End Sub |
|
置顶卡
