您的位置:网站首页 > CAD新闻

VB编程操作AutoCAD尺寸标注样式

时间:2011-08-14 16:26:24 来源:未知

尺寸标注样式是决定尺寸标注外观的一组设置,例如,可以通过属性设置一组尺寸标注的尺寸线的颜色、箭头大小和标注文字高度,然后为这些尺寸创建一个尺寸标注样式,以后标注尺寸时,只要将这一尺寸标注样式设置为当前尺寸标注样式,标注的尺寸均与该尺寸标注样式定义的外观相同,没有定义尺寸标注样式之前,AutoCAD默认以系统默认样式标注。

创建尺寸标注样式。

尺寸标注样式的创建方法是先用尺寸标注样式DimStyles对象的Add方法创建一个命名的尺寸标注样式,再用该对象的CopyFrom方法获得个各种尺寸标注设置。

Private Sub Command1_Click()
    Dim newstyle1 As AcadDimStyle
    Dim newstyle2 As AcadDimStyle
    Dim newstyle3 As AcadDimStyle
    Set newstyle1 = acadapp.ActiveDocument.DimStyles.Add("style1 copid from a dim")
    Call newstyle1.CopyFrom(acadapp.ActiveDocument.ModelSpace(0))
    Set newstyle1 = acadapp.ActiveDocument.DimStyles.Add("style2 copied from style1")
    Call newstyle2.CopyFrom(acadapp.ActiveDocument.DimStyles.Item("style1 copied from a dim"))
    Set newstyle3 = acadapp.ActiveDocument.DimStyles.Add("style3 copied from the running drawing values")
    Call newstyle3.CopyFrom(acadapp.ActiveDocument)
End Sub