为什么这个程序在2002中不能正常运行呢??

yucheng413 · 发表于 2004-12-29 11:51:00

Public Sub aaawe()
Dim obj As AcadBlockReference
Dim str As String
Dim point(2) As Double
point(0) = 100: point(1) = 100: point(2) = 0
str = "c:\wjct\tl\dxs.dwg"
Set obj = ThisDrawing.ModelSpace.InsertBlock(point, str, 1#, 1#, 1#, 1#)
End Sub
总是提示我插入块作用于Iacadmodelspace*对象错误

yulijin608 · 发表于 2004-12-29 12:39:00

Set obj = ThisDrawing.ModelSpace.InsertBlock(point, str, 1#, 1#, 1#, 1)

yucheng413 · 发表于 2004-12-29 13:09:00

谢过2楼的兄弟

为什么这个程序在2002中不能正常运行呢??

发表回复

精选推荐