VI. Làm v ic vi Group (0.5 Ti t)
3. Gán layer, color, linetype cho đ it ng
S d ng các thu c tính sau : Object.Layer Object.Color Object.LineType VIII.Làm vi c v i kích th c (2t) 1. Làm vi c v i DimStyle Thêm m t DimStyle Object.
DimStyle object thi t l p s xu t hi n c a m t nhóm các kích th c và các leader. Các DimStyle objects n m trong DimStyles collection, do v y chúng ta có th truy c p đ n nó thông qua ph ng th c Item c a DimStyles collection's.
t o m t DimStyle, chúng ta s d ng ph ng th c Add nh sau :
Set DimStyleObject = DimStylesCollection.Add(DimStyleName)
NAME DATA TYPE DESCRIPTION
DimStyleName String Tên c a DimStyle
Ví d :
Dim objDimStyle As AcadDimStyle
Set objDimStyle = ThisDrawing.DimStyles.Add("NewDimStyle")
Thi t l p m t Dimension Style
thi t l p m t DimStyle trong VBA, b n ph i n m v ng t t c các bi n h th ng mà thông qua nó b n có th đi u khi n t t c các TAB trong Dimension Style.
Ph ng th c CopyFrom.
B n có th s d ng ph ng th c CopyFrom đ copy m t DimStyle object, cú pháp nh sau :
DimStyleObject.CopyFrom SourceObject
Thông s SourceObject là đ i t ng DimStyle object đ c copy. Ki u Copy ph thu c vào ngu nc Copy mà b n s d ng đ c li t kê ra trong b ng d i đây :
OBJECT STYLES COPIED
Dimension, Tolerance, Leader
VBA s copy t t c các d li u v Dimension style c a kích th c, dung sai, d u d n, k c các d li u ghi đè (override) có trong các dimension này vàoDimStyleObject
Document Copy Dimension style và override c a Dimension style hi n hành c a b n v đ c ch đnh trong Document
DimStyle Copy Dimension style c a b n v hi n hành đ c ch đnh trong DimStyle
Ví d sau t o m t DimStyle m i, l y tên là NewDimStyle. DimStyle này th a h ng t t c các thu c tính c a DimStyle hi n hành, tr màu c a dimension line, extension line, và dimension text đ c đ t theo th t là red, blue, and white.
Public Sub NewDimStyle
Dim objDimStyle As AcadDimStyle
Set objDimStyle = ThisDrawing.DimStyles.Add("NewDimStyle") SetVariable "DIMCLRD", acRed
SetVariable "DIMCLRE", acBlue SetVariable "DIMCLRT", acWhite
SetVariable "DIMLWD ", acLnWtByLwDefault objDimStyle.CopyFrom ThisDrawing
End Sub
Gi i thích nh sau : khi thay đ i các thông s h th ng c a Dimension style, Cad s t o ra m t ki u kích th c ghi đè (override) d a trên ki u kích th c hi n hành. o n mã objDimStyle.CopyFrom ThisDrawing s copy toàn b thi t l p c a Dimstyle hi n hành và override c a nó vào NewDimStyle
S d ng Dimension Style
Gán m t Dimstyle cho m t Dimension (m t bi n kích th c) Object.StyleName = DimStyleName
NAME DATA TYPE DESCRIPTION
Object Dimension, Leader, or Tolerance object
Là object mà b n mu n áp đ t Dimstyle cho nó.
DimStyleName String Tên c a Dimstyle
Chuy n m t DimStyle thán Dimstyle hi n hành
chuy n m t DimStyle thành DimStyle hi n hành, b n s d ng ph ng th c ActiveDimStyle nh sau :
Set DocumentObject.ActiveDimStyle = DimStyleObject
NAME DATA TYPE DESCRIPTION
DimStyleObject DimStyle object Là bi n ki u Dimstyle mà b n mu n chuy n nó thành Dimstyle hi n hành.
Ví d sau hi n th ki u kích th c hi n hành c a b n v hi n hành.
Msgbox “Ki u kích th c hi n hành : “ & ThisDrawing.ActiveDimStyle.Name Dim objDimStyle As AcadDimStyle
Duy t qua các Dimstyle có trong b n v hi n hành. For Each objDimStyle In ThisDrawing.DimStyles
Msgbox objDimStyle.Name Next
2. T o các đ ng đo kích th c T o các Dimensions