VB编程操作AutoCAD尺寸标注样式
2011-06-20 20:32 精诚所至 金石为开 阅读(1144) 评论(0) 编辑 收藏 举报尺寸标注样式是决定尺寸标注外观的一组设置,例如,可以通过属性设置一组尺寸标注的尺寸线的颜色、箭头大小和标注文字高度,然后为这些尺寸创建一个尺寸标注样式,以后标注尺寸时,只要将这一尺寸标注样式设置为当前尺寸标注样式,标注的尺寸均与该尺寸标注样式定义的外观相同,没有定义尺寸标注样式之前,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