乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 37|回复: 2

跪求了!!!!!!!!!!!

[复制链接]

3

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2006-8-31 22:48:00 | 显示全部楼层 |阅读模式
急求cad下面的展点连线程序,源码!!!!! 谢谢,小弟真的跪求了!
回复

使用道具 举报

3

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
25
发表于 2006-9-2 20:27:00 | 显示全部楼层
你是要读取数据库中的坐标,然后再展点连线么??
回复

使用道具 举报

3

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
25
发表于 2006-9-2 20:39:00 | 显示全部楼层
Dim cn As ADODB.Connection
'创建ADO连接并打开
Sub CreateConnection()
    Dim ConStr As String    '连接字符串
    Set cn = New ADODB.Connection
   
    cn.CursorLocation = adUseClient
    cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
    ConStr = "Data Source=你的数据库文件;"
    cn.Open ConStr
End Sub

' 从数据库中读取数据
Public Sub ReadFromDB()
    ' 创建数据库连接
    Call CreateConnection
   
    ' 在line表中查询所有的记录
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.Open "SELECT DISTINCT * FROM line", cn, adOpenForwardOnly, _
            adLockBatchOptimistic, adCmdText
    rst.MoveFirst
   
    Dim i As Integer
    Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double
   
    ' 使用查询得到的数据创建直线
    For i = 0 To rst.RecordCount - 1
        pt1(0) = rst.Fields("x1")
        pt1(1) = rst.Fields("y1")
        pt1(2) = 0
        pt2(0) = rst.Fields("x2")
        pt2(1) = rst.Fields("y2")
        pt2(2) = 0
        
        ThisDrawing.ModelSpace.AddLine pt1, pt2
        rst.MoveNext
    Next i
   
    'rst.Close       ' 关闭记录集,准备下一次使用
   
    ' 在line表中查询
   
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.Open "SELECT x1,y1 FROM line", cn, adOpenForwardOnly, _
            adLockBatchOptimistic, adCmdText
    rst.MoveFirst
     
    ' 使用表中的数据绘制圆
       For i = 0 To rst.RecordCount - 1
        pt1(0) = rst.Fields("x1")
        pt1(1) = rst.Fields("y1")
        pt1(2) = 0
        ThisDrawing.ModelSpace.Addpoint
        rst.MoveNext
   
    Next i
    'rst.Close
   
    ThisDrawing.Application.Update
End Sub
这个代码应该符合你的要求
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 13:24 , Processed in 0.449804 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表