dynacy 发表于 2006-5-13 00:54:00

[求助]CAD画地面线时出现的奇怪问题，急寻答案

<P>我在用vb调用CAD画道路路线地面线时，编写了下面这段程序，程序未提示出错，可在CAD中就是没有出图效果，请高人给个解法:<BR>我不会直接从数据库中取单个数据，于是我将数据引用到了listbox，在取其list属性值作为地面线各点值，可是我定义的basepnt()和pnt()却出现了下标越界的错误提示，实在想不通，而且在下面这个子过程中没有出现终止程序运行的错误<BR>Public Sub drawdmx()<BR>Dim db As Database<BR>Dim rs As Recordset<BR>Dim i As Integer<BR>Dim basepnt() As Double, pnt() As Double<BR>Dim plineobj As AcadLWPolyline<BR>Dim points() As Double<BR>Dim lineobj As AcadLine<BR>Set db = opendatabase("L:\设计！重要！！\我的设计\zdm1.mdb")<BR>Set rs = db.OpenRecordset("地面线数据")<BR>Do While Not rs.EOF<BR>&nbsp;&nbsp; List1.AddItem rs.fields(1).Value<BR>&nbsp;&nbsp; List2.AddItem rs.fields(2).Value<BR>&nbsp;&nbsp; rs.MoveNext<BR>Loop<BR>&nbsp;ReDim points(List1.ListCount)<BR>Do Until i = List1.ListCount<BR>basepnt(0) = 0<BR>basepnt(1) = 10 * Me.List2.List(0)<BR>basepnt(2) = 0<BR>pnt(0) = Me.List1.List(i + 1)<BR>pnt(1) = 10 * Me.List2.List(i + 1)<BR>pnt(2) = 0<BR>Set lineobj = cadapp.ActiveDocument.ModelSpace.AddLine(basepnt, pnt)<BR>i = i + 1<BR>loop </P>
<P>还有个问题是：写好的添加文本程序为何只能使用前期绑定方式才能添加到CAD中？</P>

mccad 发表于 2006-5-13 05:59:00

<P>那是因为你的basepnt()和pnt()都没有具体定义是多少个元素。</P>
<P>如果你的程序只需要3个元素，就定义成basepnt(2)和pnt(2)。</P>

dynacy 发表于 2006-5-13 12:54:00

<P>斑竹果然是高手，我打心里佩服， 这问题困扰我好几天了，早点求教您就好了，设计当前，还要多多劳烦象您一样的高手</P>

dynacy 发表于 2006-5-14 10:14:00

还是想麻烦您，昨天经您提示，这个程序已经运行，我准备把它做为一个主程序的一部分，就是在vb中的菜单下添加出图项，然后把这个程序的代码拷贝到出图项的click事件下，结果就没有地面线出现，连listbox也读不到数据，而同样的代码只要放在form-load下的单独程序中就运行好好的，这个问题有点怪，您看可以解决么？
页: [1]
查看完整版本: [求助]CAD画地面线时出现的奇怪问题，急寻答案