|
|
请高手帮助解决：
下面是将CAD文件作为块参照插入的代码，我想问一个问题，这套代码是将块参照插入在模型中的，怎么样将块参照插入在布局中的，最好是当前为模型就插入模型，当前为布局 就插入布局
Private Sub CommandButton14_Click()
'VBA插入文件A.DWG作为块参照时提示“参照本身”的原因及解决方法
'dxm证明是因为VBA插入文件A.DWG作为块参照时，A文件中本身就有一个名为A的块参照。这样程序当然不允许，总不能A包含A本身吧。解决方法是清理A文件中的A块参照，使其不存在
On Error Resume Next '的含义遇到错误往下执行下一个
Dim 序号
Dim WJM
Dim pt1 As Variant
'先取得选中的序号
序号 = ListBox1.ListIndex
'再取得选中的序号中的数据
WJM = ListBox1.List(序号)
Me.Hide
pt1 = ThisDrawing.Utility.GetPoint(, "pick:")
Dim obj As AcadBlockReference
Set obj = ThisDrawing.ModelSpace.InsertBlock(pt1, address & "\" & WJM, 1, 1, 1, 0)
pt1 = ThisDrawing.Utility.GetPoint(, "pick:")
Me.Show
End Sub |
|
置顶卡
