作者poisonnous (假扮的天使)
看板Cad_Cae
标题[问题]AutoCAD VBA将点座标储存在资料表栏位
时间Wed May 9 15:40:18 2007
我有建立一个资料表
资料表栏位设计:
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