guanggun 发表于 2004-6-8 11:58:00

CAD输出数据到ACCESS问题

一个程序实现CAD里面的一条直线的数据：起点和终点的坐标输出到ACCESS里面！       Private Sub CommandButton1_Click()<BR>Dim DatabaseObject As Database<BR>Dim LineObject As Recordset<BR>Dim LObject As AutoCAD.AcadLine<BR>Dim Count As Integer<BR>Set DatabaseObject = OpenDatabase("D:\数据库\画线.mdb")<BR>Set LineObject = DatabaseObject.OpenRecordset("LineData")<BR>For Count = 0 To ThisDrawing.ModelSpace.Count - 1<BR>                       If ThisDrawing.ModelSpace.Item(Count).ObjectName = "AcDbLine" Then<BR>                       LineObject.AddNew<BR>                       Set LObject = ThisDrawing.ModelSpace.Item(Count)<BR>                       LineObject!StartX = LObject.StartPoint(0)<BR>                       LineObject!StartY = LObject.StartPoint(1)<BR>                       LineObject!EndX = LObject.EndPoint(0)<BR>                       LineObject!EndY = LObject.EndPoint(1)<BR>                       LineObject!Color = LObject.Color<BR>                       LineObject.Update<BR>                       Text1.Text = Count<BR>                       End If<BR>                       Next<BR>                       LineObject.Close<BR>                       DatabaseObject.Close<BR>                       Set LineObject = Nothing<BR>                       <BR>                       MsgBox "Line data sabe to database!"<BR>                       Unload Me        <BR>               End Sub


但是我运行了。确是在ACCESS里面输出了好多行数据。我只是想输出一行。就2个坐标的X和Y的坐标值

guanggun 发表于 2004-6-8 11:59:00

但是为什么每次输出的都有好几行啊！！怎么改下。只输出那一行数据       ？

guanggun 发表于 2004-6-8 15:36:00

顶上来 ！！

guanggun 发表于 2004-6-8 18:59:00

怎么都不理我啊 ！！！

莫名 发表于 2004-6-8 19:50:00

因为你有好多条线

雪山飞狐_lzh 发表于 2004-6-8 21:10:00

LineObject!Color = LObject.Color去掉


不过你的数据库结构要改改

guanggun 发表于 2004-6-14 15:35:00

现在可以了！！谢谢大家 ！！！！
页: [1]
查看完整版本: CAD输出数据到ACCESS问题