TAILIEUCHUNG - 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

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 .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.