急！！！请教VBA语言在CAD中插入另一图形的源程序

yzbj1983

请教各位大虾们，我想在CAD图形中插入另一张没打开的图形，并作成块，请教高手们指点一下，帮忙编下源程序，小弟跪谢了！

雪山飞狐_lzh

InsertBlock方法

yzbj1983

我是个菜鸟

请教你能帮忙写个具体一点的源程序了

小弟在这跑谢了！！！

my_computer

 

Sub InsertB()
Dim p(0 To 2) As Double
p(0) = 0: p(1) = 0: p(2) = 0
ThisDrawing.ModelSpace.InsertBlock p, "c:\a4.dwg", 1, 1, 1, 0
End Sub

my_computer

终于有一个我能回答的问题,谢谢啊!!!

yzbj1983

谢谢了哈!各位大哥

小弟一定要更加努力、勤奋学习！

 

djby2659

谢谢，总是在不经意间得到提高

kfpl

带回去研究研究。谢谢!