|
Txtstr = "C:\085-612-01.dwg"
Set insertedBlock = cadapp.ActiveDocument.ModelSpace.AttachExternalReference(Txtstr, "kuai1", Pt_Temp_1, 1, 1, 1, 0, False)
' cadapp.ActiveDocument.Blocks.Item(insertedBlock.Name).Bind False
cadapp.ActiveDocument.Blocks.Item("kuai1").Bind False
我引入了一个快,如何才能把块炸开,然后进行里面的内容操作?
我用的是VB+cad 2004
|
|