[問題]AutoCAD VBA將點座標儲存在資料表欄位
我有建立一個資料表
資料表欄位設計:
object ID ptcenter(x) ptcenter(y) ptcenter(z)
我想將點座標儲存在資料表欄位
以下是我的VBA CODE:
在Thisdrawing上
Public Sub test()
Dim pt(0 To 2) As Double
pt(0) = 100: pt(1) = 100: pt(2) = 100 /點座標
End Sub
在表單上
Dim daodb As DAO.Database /數據庫對象
Dim daors As DAO.Recordset /記錄集對象
Private Sub Form1_Initialize()
Set daodb = OpenDatabase(" D\我的VBA\column.db1")
Set daors = daodb.OpenRecordset("column_center", 2)
daors.Fields("ptcenter(x)") = 100 /將點座標存入資料表欄位
daors.Fields("ptcenter(y)") = 100
daors.Fields("ptcenter(z)") = 100
End Sub
Private Sub Form1_Terminate()
daors.Close
daodb.Close
End Sub
程式沒有連接到資料庫,因為點座標沒有儲存在資料表欄位
麻煩各位前輩解答小弟的問題.
謝謝前輩們看完.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.27.209
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
52
80