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 6

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 6', 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ả | found False For Each entry In If StrComp name 1 0 Then found - True Exit For End If Next If Not found Then name End Sub 1 Chương trình chính. Sub main_Linetỵpe tam O 100 tam l 100 tam 2 0 FirstPoint O tam 0 FirstPoint l tam l FirstPoint 2 tam 2 EndPoint O tam 0 a EndPoint l tam l h EndPoint 2 tam 2 Gọi thù tục chọn kiểu đường. Call Linetype CONTINUOUS Thù tục vẽ hình chừ nhật. Call Rectang FirstPoint EndPointO Call Línetype Center FirstPoint O tam 0 a 2 FirstPoint l tam l FirstPoint 2 tam 2 EndPoint O tam 0 a 2 EndPoint l tam l h EndPoint 2 tam 2 Call AddLine FirstPoint EndPointO Call Linetype ACAD_IS002W100 FirstPoint O tam 0 a 4 FirstPoint l tam l FirstPoint 2 tam 2 EndPoint O tam 0 a 4 EndPoint l tam l h EndPoint 2 tam 2 Gọi thủ tục vẽ đường thẳng. Call AddLine FirstPoint EndPointO FirstPoint O tam 0 a ỉ 2 FirstPoint l tam l FirstPoint 2 tam 2 EndPoint O tam 0 a 2 EndPoínt l tam l h EndPoìnt 2 tam 2 Gụi thủ tục lẩy đối xứng đối tượng. Call Mirror FirstPoint EndPointO ZoomAll End Sub Kết thúc. 136 . Độ rộng của đưỉrng Muốn thay đổi độ rộng đường của các đối tượng trong bàn vẽ sừ dụng thuộc tính Lineweight. Cú pháp Trong đó Object Các đối tượng trong bản vẽ. Lineweight Độ rộng cùa đường như bàng . Đoạn mã chương trình sau vẽ đường tròn và đặt độ rộng của đường có kiểu là acLnWtO13 mm . Tên file . Sub VAB_LineWeight Dim circleObj As AcadCircle Dim centerPoint 0 To 2 As Double Dìm radius As Double centerPoint O 0 centerPoint l 0 centerPoint 2 0 rad ins 5 Set circleObj ThisDrawing centerPoint radius acLnWt013 ZoomAII End Sub Kết thúc. Bảng . Bảng độ rộng cùa đường Độ rộng của đường trong VBA acLnWtByLayer ByLayer acLnWtByBlock By Block acLnWtByLwDefault Default acLnWtOOO mm acLnWt005 mm acLnWt009 mm 137 Bàng . tiếp theo acLnWtO13 mm acLnWtO15 mm acLnWtO18 mm .

• Kỹ thuật lập trình
• lập trình tự động hóa
• tài liệu lập trình tự động hóa
• hướng dẫn lập trình tự động hóa
• phương pháp lập trình tự động hóa
• kinh nghiệm lập trình tự động hóa
• Đồ án tốt nghiệp Điện tự động công nghiệp
• Điện tự động công nghiệp
• Hệ thống tự động hóa dây truyền
• Dây truyền đúc liên tục 3 dòng đi sâu
• Lập trình PLC cho máy kéo nắn
• Lập trình PLC
• Tự động hóa thiết kế cơ khí
• Giáo trình tự động hóa thiết kế cơ khí
• Tự động hóa thiết kế cầu đường
• Lập trình ứng dụng nền
• Công trình giao thông
• Lập trình visual basic
• Giáo trình Tự động hóa
• Tự động hóa
• Tự động hoá quá trình sản xuất
• PLC SIMATIC S7 200
• Bộ điều khiển lập trình PLC
• Cơ cấu tự động cơ khí
• Lập trình với PLC Zen
• Lập trình với CPM1 A
• Lập trình với Inverter OMRON
• Hệ điều khiển lập trình
• Tự động hóa với Inverter 3G3JV
• Tự động hóa với Inverter 3G3EV
• điều khiển tự động hoá
• tự động hóa công nghiệp
• giáo trình PLC
• bộ điều khiển tự động
• điều khiển thông số
• ngôn ngữ lập trình
• Luận văn mẫu
• Đề án tốt nghiệp
• Cấu trúc thang máy
• Phân tích cấu trúc
• Lập trình điều khiển
• Phần mềm lập trình PLC
• Lập trình thang máy
• máy bán nước tự động
• điều khiển tự động
• bộ nhớ PLC
• bộ vi xử lý
• bộ nhớ S7 200