[求助]程序调试是成功的，可是显示图形结果却是好几个图形重叠的。。。。昏！帮我！

该怎么办呢难哦

[求助]程序调试是成功的，可是显示图形结果却是好几个图形重叠的。。。。昏！帮我！！！[br]我在该程序里使用啦图块引用，问题大概就是出在那个地方，烦请各位大侠帮我看看，因为有窗体和数据库，我将该程序压缩上传啦！[upload=rar]

[此贴子已经被作者于2002-12-20 22:54:02编辑过]

mccad

Dim blkobj As AcadBlock
Dim blkname As String

Dim inspnt(0 To 2) As Double
inspnt(0) = 0: inspnt(1) = 0: inspnt(2) = 0
Set blkobj = ThisDrawing.Blocks.Add(inspnt, "*U")
blkname = blkobj.Name
'...........
  Set blkrefobj = ThisDrawing.ModelSpace.InsertBlock(insertpnt, blkname, xscale, yscale, 1, rotangle)

还有就是程序里对于对话框的初始化还没有做好，如果没有填写内容时直接 OK就会出现出错问题。

mccad

另外，数据库的调用使用了绝对路径也是个问题，可使用实用函数栏目下的FindFile函数来解决[br]

ZHUQI75

版主就是版主。