求-wblock和-insert命令的实例

Hunix · 发表于 2005-4-6 09:04:00

哪位大哥有这方面的实例啊？贴出来吧，我试了一下，发现经常出错啊。
ThisDrawing.SendCommand "-wblock" & …… 后面就不知道了。
ThisDrawing.SendCommand "-insert" & …… 也是啊。

wylong · 发表于 2005-4-6 15:06:00

Private sub InsertBlock()
   Dim BlockName As String'块名
   Dim insertP As Variant
   With ThisDrawing.Utility
   insertP = (.GetPoint(, "请指定插入点:"))
   If IsEmpty(insertP) Then Exit Sub
   End With
   ThisDrawing.SendCommand "-insert" & vbCr & BlockName & vbCr & insertP & vbCr & vbCr & vbCr
End Sub