[VBA程序]：VBA调用属性块的问题

gjliang

各位大家好，最近想写个小程序，是关于调用属性块的，可是如果用vba调用，在插入块时就没有了哪个填写属性值的对话框了，显示的是默认的值，下面是我的代码，请帮我看看：
Public Sub aa()
Dim block As String
Dim inserpoint As Variant
inserpoint = ThisDrawing.Utility.GetPoint(, "enter a point:")
block = "E:\工作目录\属性块\材料表.dwg"
Dim blockobj As AcadBlockReference
Set blockobj = ThisDrawing.ModelSpace.InsertBlock(inserpoint, block, 1, 1, 1, 0)
End Sub
我是想在插入块时出现如下的对话框。谢谢了！

fjw_ok

这样做，再插入前show这个form,把值给textbox,再把text给属性

gjliang

对不起，能讲具体点吗？这个form是插入块后调整attdia属性就可以显示的，请问你的意思是让我做一个这样的块吗？还是调用cad里的frm，要是调用cad里的frm，那请问我怎样才能知道这个frm的地址呢。

efan2000

插入块后，调用ThisDrawing.SendCommand "attedit" & vbCrLf & "(entlast)" & vbCrLf，其中(entlast)是LISP的方法，表示获取图形数据库中的最后一个实体，即刚生成的实体。
当然，如果是在窗体中调用，则应首先使窗体不可见，因为在R2000以下的版本只支持模态窗体。