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 4

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 4', 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ả | Trong đó Object Đối tượng là đường Spline. space Không gian vê hoặc không gian giấy. StartTangen Điểm bắt đầu cùa đường cong gồm cỏ ba phần tử có kiều dữ liệu Double là vector tiếp tuyến của đường Spline tại điểm đầu tiên. PointsArra Là các điểm trên spline có kiểu dữ liệu Double. EndTangen Điểm cuối cùng cùa đường cong gồm ba phần từ cỏ kiểu dữ liệu Double là vector tiếp tuyến cùa đường spline tại điểm cuối cùng. Đoạn mâ chương trình dưới đây sẽ vẽ một đường cong tự do đển khi người sử dụng ấn phím Enter . Một đường Spline được tạo ra trong không gian vẽ với các thông số được nhập vào như hỉnh . StartTangent PointsArray O PointsArray 4 EndTangent Hình Đường cong tự do Spline. Tên file Sub VBA_AddSpline Khai báo đổi tượng đường Spline trong VBA. Dim objSpline As AcadSpline Dim dblFitPtsQ As Double Dim intCounter As Integer Dim varTanPtl As Variant Dim varTanPt2 As Variant Dim varFitPt As Variant 82 Biến đếm ban đầu được gán bằng 0. intCounter 0 Dừng khi có loi. On Error Resume Next Nhập điểm đầu tiên. varFitPt .Ge PointC vbCrLĩ N f irst point Tiếp tục lựa chọn các điểm cho đến ỉdĩi ẩn phím ị Enter While - 0 ReDim Preserve dblFítPts ìntCounter 2 I Toạ độ X. dblFitPts intCounter varFitPt O Toạ độ Y. dblFitPts intCounter 1 varFitPt 1 Toạ độ z. dblFítPts intCounter 2 varFÌtPt 2 Nhập điểm kể tiếp. varFitPt varFitPt vbCrLf Next point intCounter intCounter 3 Wend Xỏa loi. Nhập điểm start tangent. varTanPtl vbCrLf Start tangent point Nhập điểm end tangent. VarTanPt2 vbCrLf End tangent point Tạo đường Spline với các thông số đầu vào. Set objSpline dblFitPts varTanPtl _ varTanPt2 Khôi phục lọi đoi tượng trong bản vẽ. End Sub Kết thúc. 83 . VẼ Đốr TƯỢNG LÀ ĐƯỜNG TRÒN Để vẽ đối tượng là đường tròn trong bản vẽ ACAD ta sừ dụng lệnh AddCircle. Củ pháp Object space. AddCi re .

• 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