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

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

[求助]程序调试是成功的，可是显示图形结果却是好几个图形重叠的。。。。昏！帮我！！！[br]我在该程序里使用啦图块引用，问题大概就是出在那个地方，烦请各位大侠帮我看看，因为有窗体和数据库，我将该程序压缩上传啦！[upload=rar]
[此贴子已经被作者于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就会出现出错问题。