máy bơm nước hỏa tiễn công ty in ấn https://duan-knparadise.com/ Bơm nước hỏa tiễn bóp da nam Túi nilon PP cong ty in bieu mau
[Lập trình VBA] Kết nối với Sap và Etabs nhờ API một tính năng mới - Diễn đàn của các kỹ sư kết cấu Việt Nam










































































Features
Go Back   Diễn đàn của các kỹ sư kết cấu Việt Nam > ỨNG DỤNG TIN HỌC TRONG THIẾT KẾ XÂY DỰNG > Lập trình tính toán, phân tích kết cấu
Tên thành viên
Mật mã
Tin HOT Thông tin BQT diễn đàn

Result  Reload Thống Kê - Diễn đàn của các kỹ sư kết cấu Việt Nam
All Forums | Thông báo | Văn Bản Pháp Luật | Văn Hóa Văn Nghệ Giao Lưu
Please wait...
Please wait...
Loading...
Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 16-12-2015   #1
vkt2015
Thành viên mới
 
Tham gia ngày: May 2015
Bài gởi: 21
Thanks: 47
Thanked 8 Times in 6 Posts
Default [Lập trình VBA] Kết nối với Sap và Etabs nhờ API một tính năng mới

Em thấy trên diễn đàn chưa có chủ đề về tương tác trực tiếp với Sap qua lập trình VBA nên em mạn phép tạo chủ đề mới để trao đổi, chia sẻ cùng anh em kết cấu ạ:
Em đang bị lỗi ở câu lệnh này: "Set mySapObject= CreateObject("CSI.SAP2000.API.SapObject")". Em lấy từ trong tài liệu của Sap mang ra test các bác ạ! Bác nào đã thử test hay nghiên cứu về API chỉ giáo em với ạ! Từ khóa này trên google cũng có vẻ hiếm và em vẫn chưa tìm được câu trả lời ạ!

------------------------Ví dụ API lấy từ CSi OAPI Sap Documentation----------------------------------------------
Sub MyProgram
'dimension variables
Dim mySapObject As Sap2000v17.cOAPI
Dim mySapModel As cSapModel
Dim ret As Long

'create an instance of the Sap2000 object
Set mySapObject= CreateObject("CSI.SAP2000.API.SapObject")

'start the Sap2000 application
mySapObject.ApplicationStart

'create the SapModel object
Set mySapModel= mySapObject.SapModel

'initialize model
ret = mySapModel.InitializeNewModel

'call Sap2000 API functions here to perform desired tasks
'in this example a new 2D frame is created from template
ret = mySapModel.File.New2DFrame(PortalFrame, 3, 124, 3, 200)

'close the Sap2000 application, if desired
mySapObject.ApplicationExit False

'set the objects to Nothing
'at the end of your program ALWAYS terminate the objects in this manner
Set mySapModel= Nothing
Set mySapObject= Nothing
End Sub
vkt2015 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Loading...
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền sử dụng ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Mở

Chuyển đến



Múi giờ GMT. Hiện tại là 03:17 AM.


DIỄN ĐÀN http://ketcau.com/forum NƠI HỘI TỤ CỦA CÁC KỸ SƯ KẾT CÂU VIỆT NAM
WWW.KETCAU.COM - CẦU NỐI CỦA CÁC KỸ SƯ KẾT CẤU CÔNG TRÌNH, ĐỊA KỸ THUẬT VIỆT NAM. DIỄN ĐÀN ĐƯỢC MUA BẢN QUYỀN CỦA JELSOFT ENTERPRISES Ltd. Thiết kế website