yang686526

cad输出数据到access问题
www.dimcax.com
cad输出数据到access问题
一个程序实现cad里面的一条直线的数据：起点和终点的坐标输出到access里面！ private sub commandbutton1_click()
dim databaseobject as database
dim lineobject as recordset
dim lobject as autocad.acadline
dim count as integer
set databaseobject = opendatabase("d:\数据库\画线.mdb")
set lineobject = databaseobject.openrecordset("linedata")
for count = 0 to thisdrawing.modelspace.count - 1
if thisdrawing.modelspace.item(count).objectname = "acdbline" then
lineobject.addnew
set lobject = thisdrawing.modelspace.item(count)
lineobject!startx = lobject.startpoint(0)
lineobject!starty = lobject.startpoint(1)
lineobject!endx = lobject.endpoint(0)
lineobject!endy = lobject.endpoint(1)
lineobject!color = lobject.color
lineobject.update
text1.text = count
end if
next
lineobject.close
databaseobject.close
set lineobject = nothing

msgbox "line data sabe to database!"
unload me
end sub
但是我运行了。确是在access里面输出了好多行数据。我只是想输出一行。就2个坐标的x和y的坐标值
此主题相关图片如下：
但是为什么每次输出的都有好几行啊！！怎么改下。只输出那一行数据 ？
顶上来 ！！
怎么都不理我啊 ！！！
因为你有好多条线
索取，只有在一个场合才能越多越好，那就是读书。
认识你自己并做自己的事。
lineobject!color = lobject.color去掉
不过你的数据库结构要改改
随心飘荡
无梦域: