[求助]我的根据库里坐标绘pl线时遇到的问题
本帖最后由 作者 于 2006-10-20 13:59:52 编辑 <br /><br /> <P>我大伙帮我看看我的vba怎么回事!</P><P>Sub ll()<BR>Dim cn As New ADODB.Connection<BR>Dim rst As New ADODB.Recordset<BR>Dim klj, blj, blj2 As String<BR>Dim tysx As String<BR>Dim id, js As Long<BR>Dim i As Integer<BR>Dim objpline As AcadLWPolyline<BR>blj = "select * from pline"<BR>klj = "provider=sqloledb.1;password=;persist security info=true;user id=sa;initial catalog=cadsql ;data source=huangbin" '库连接字符串<BR>'klj = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=hbsql"<BR>cn.Open klj '连接数据库<BR>rst.Open blj, cn, adOpenForwardOnly, adLockBatchOptimistic<BR>Dim pt() As Variant<BR>Do While Not rst.EOF<BR>js = js + 1<BR> rst.MoveNext<BR>Loop<BR>rst.Close<BR>ReDim pt(js - 1, 2)<BR>rst.Open blj, cn, adOpenForwardOnly, adLockBatchOptimistic<BR>i = -1<BR>Do While Not rst.EOF<BR> i = i + 1<BR> pt(i, 0) = rst.Fields("x")<BR> pt(i, 1) = rst.Fields("y")<BR> pt(i, 2) = 0<BR> <BR> rst.MoveNext<BR>Loop<BR>'ThisDrawing.ModelSpace.AddLine pt<BR>Set objpline = ThisDrawing.ModelSpace.AddLightWeightPolyline_(pt)<BR>rst.Close<BR>cn.Close</P>
<P> <BR>End Sub</P>
<P>总是提示说:对象不支持该属性或方法!</P>
<P>我是刚接触vba的请高手们赐教!!!</P> <P>AddLightWeightPolyline（pt）</P>
<P>该pt是一组二维的坐标值，没有z值的，把z值去掉就能通过了</P> 请问我把z值去掉了怎么还是不行的? 高手们指点指点我!我是百思不得其解呀~
页:
[1]