该怎么办呢难哦 发表于 2002-12-31 09:23:00

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

本帖最后由 作者 于 2002-12-31 9:23:12 编辑

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

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

mccad 发表于 2002-12-21 13:01:00

你可使用匿名块的方法来做就可以解决该问题

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 发表于 2002-12-21 13:02:00

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

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

ZHUQI75 发表于 2003-1-8 10:58:00

版主就是版主。

版主就是版主。
页: [1]
查看完整版本: [求助]程序调试是成功的，可是显示图形结果却是好几个图形重叠的。。。。昏！帮我！