Giáo trình phân tích các phương pháp lập trình trên autocad p10

Màu của đối tượng lấy theo màu của Block chứa đối tượng đó. Màu đỏ. Màu vàng. Màu xanh lá. Màu xanh lam. Màu xanh da trời. Màu tím Màu trắng hoặc đen tuỳ thuộc vào màu nền. Màu của đối tượng lấy theo màu của lớp chứa đối tượng đó.oạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi màu đối tượng được chọn thành màu đỏ:Sub VD_Color() Dim ent As AcadEntity Dim P(2) As Double ‘ Chọn đối tượng trên màn hình On Error Resume Next...
Nội dung trích xuất từ tài liệu:
Giáo trình phân tích các phương pháp lập trình trên autocad p10 Giá trị của thuộc tính Color là số nguyên trong phạm vi từ 0 đến 256, 9 trong các số này được định nghĩa trước với các hằng số acColor trong AutoCAD. Dưới đây là danh sách các hằng số này: Hằng số Giá trị Ý nghĩa acByBlock 0 Màu của đối tượng lấy theo màu của Block chứa đối tượng đó. acRed 1 Màu đỏ. acYellow 2 Màu vàng. acGreen 3 Màu xanh lá. acCyan 4 Màu xanh lam. acBlue 5 Màu xanh da trời. acMagenta 6 Màu tím acWhite 7 Màu trắng hoặc đen tuỳ thuộc vào màu nền. acByLayer 256 Màu của đối tượng lấy theo màu của lớp chứa đối tượng đó. Đoạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi màu đối tượng được chọn thành màu đỏ: Sub VD_Color() Dim ent As AcadEntity Dim P(2) As Double ‘ Chọn đối tượng trên màn hình On Error Resume Next ThisDrawing.Utility.GetEntity ent, P, Chon doi tuong can doi mau: If Not (ent Is Nothing) Then ‘ Đổi màu đối tượng ent.Color = acRed ent.Update End If End Sub ThuộctínhLayer–Lớpchứađốitượng Sử dụng thuộc tính Layer để lấy và thay đổi lớp chứa đối tượng. Thông thường, khi một đối tượng hình học mới được tạo ra, đối tượng đó sẽ được đặt trên lớp hiện hành của bản vẽ. Khi người dùng thay đổi giá trị của thuộc tính Layer thành tên của một lớp khác, đối tượng đó sẽ được tự động chuyển về nằm trên lớp mới này. Nếu người dùng gán cho thuộc tính Layer một tên lớp không có trong bản vẽ thì chương trình sẽ không báo lỗi, và đối tượng vẫn nằm trên lớp cũ. object.Layer Tham số Giải thích Object Là đối tượng hình học. Layer Chuỗi chứa tên của lớp. Đoạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi lớp của đối tượng được chọn thành lớp “Layer1” (người dùng phải tạo trước một lớp có tên là “Layer1” bằng lệnh của AutoCAD):248 CHƯƠNGV:LẬPTRÌNHTRÊNAUTOCAD Sub VD_Layer() Dim ent As AcadEntity Dim P(2) As Double Chọn đối tượng trên màn hình On Error Resume Next ThisDrawing.Utility.GetEntity ent, P, Chon doi tuong can doi lop: If Not (ent Is Nothing) Then Chuyển lớp cho đối tượng ent.Layer = Layer1 ent.Update End If End SubThuộctínhLineType–KiểuđườngcủađốitượngĐể thay đổi kiểu hiển thị của nét vẽ các đối tượng hình học trên màn hình, thiết lập lại thuộctính Linetype của đối tượng thành một kiểu đường hiện có trong bản vẽ. Thông thường, khimột đối tượng vừa mới được tạo ra, đối tượng sẽ được gán kiểu đường bằng kiểu đường hiệnhành trong bản vẽ. Thuộc tính này cũng có hiệu lực với đối tượng Layer.object.LinetypeTham số Giải thíchObject Là đối tượng hình học hoặc đối tượng Layer.Linetype Chuỗi chứa tên của kiểu đường của đối tượng. Ngoài ra, thuộc tính này cũng có thể bằng một trong những giá trị đặc biệt sau: CONTINUOUS: đây là kiểu đường mặc định, được AutoCAD tự động tạo ra. BYLAYER: kiểu đường của đối tượng sẽ được lấy bằng kiểu đường đã được gán cho lớp chứa đối tượng. BYBLOCK: kiểu đường của đối tượng sẽ được lấy bằng kiểu đường của block có chứa đối tượng.Đoạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi kiểuđường của đối tượng được chọn thành “DASHED2” (người dùng phải tạo trước kiểu đường cótên là “DASHED2” bằng lệnh của AutoCAD): Sub VD_LineType() Dim ent As AcadEntity Dim P(2) As Double Chọn đối tượng trên màn hình On Error Resume Next ThisDrawing.Utility.GetEntity ent, P, Chon DT can doi kieu duong: If Not (ent Is Nothing) Then Chuyển kiểu đường cho đối tượng ent.Linetype = DASHED2 ent.Update End If End Sub CHÚ Ý có thể phải điều chỉnh giá trị của biến hệ thống LTSCALE thì mới quan sát được các kiểu đường không phải là nét liền. 249 ThuộctínhLineweight–Chiềudàynétin Thuộc tính Lineweight dùng để thiết lập chiều dày nét in cho các đối tượng hình học và đối tượng Layer. object.Lineweight Giá trị của thuộc tính này là một hằng số kiểu acLineWeight: Hằng số Bề dày (mm) Hằng số Bề dày Hằng số Bề dày (mm) (mm) acLnWtByLayer Theo lớp acLnWt020 0.2 acLnWt080 0.8 acLnWtByBlock Theo Block acLnWt025 0.25 acLnWt090 0.9 acLnW ...