Tham khảo tài liệu 'cơ sở lập trình tự động hóa tính toán, thiết kế với vb và vba trong môi trường auto cad part 8', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | dblStartPt O dblStartPt l - dblStartPt 2 0 dblEndPt O dblEndPt l dblEndPt 2 0 dblStartPt dblEndPt Đường thẳng thứ hai. dblStartPt O dblStartPt l dblStartPt 2 0 dblEndPt O dblEndPt l dblEndPt 2 0 dblStartPt dblEndPt Đường thẳng thứ ba. dblStartPt O dblStartPt l - dblStartPt 2 0 dblEndPt O dblEndPt l - dblEndPt 2 0 dblStartPt dblEndPt đường thẳng thứ tư. dblStartPt O dblStartPt l dblStartPt 2 0 dblEndPt O dblEndPt l dblEndPt 2 0 dblStartPt dblEndPt Chữ. Chiều cao chữ. dblTextHeight Vị trí chèn chữ 190 dblTextlnsPt O 0 dblTextlnsPt l dblText nsPt 2 0 strTextValue VALVE SetobjText strTextValue dblTextlnsPt dbITextHeight acAlignmentMiddleCenter dblTextlnsPt dblAttHeight intAttMode acAttributeModeNormal strAttPrompt Size dblAttlnsPt O 0 dblAttlnsPt l dbl AttInsPt 2 0 strAttTag SIZE strAttValue 6. Set objAttribute dblAttHeight intAttMode strAttPrompt dblAttlnsPt strAttTag strAttValue obj Attribute. Alignment acAlignmentMiddleCenter dblAttlnsPt Chèn Block dblBlklnsPt O 0 dblBikInsPt 0 dblBlk nsPt 2 0 Set objBlockRef dblBlklnsPt _ Valve 1 1 1 0 varAttributes For intCounter LBound varAttributes To UBound varAttributes If varAttributes intCounter .TagString SIZE Then varAttributes intCounter .TextString 8 End If Next End Sub Ket thúc chương trình. 191 Khi chạy chương trình cho ta kết quả như hình . VAL E 8 Hình . . HIẺN THỊ CÁC THUỘC TÍNH BLOCK Để hiển thị các thuộc tính của Block sử dụng phương thức GetAttrỉbutes. Ngoài ra còn có thể xác định qua thuộc tính HasAttributes. Thuộc tính HasAttributes cùa đối tượng BlockRef cho phép xác định rõ Block có các thuộc tính kết hợp với nhau. Thuộc tính .
