求-wblock和-insert命令的实例

Hunix

哪位大哥有这方面的实例啊？贴出来吧，我试了一下，发现经常出错啊。


ThisDrawing.SendCommand "-wblock" & …… 后面就不知道了。


ThisDrawing.SendCommand "-insert" & …… 也是啊。

wylong

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

Hunix

那"-wblock"命令呢？

雪山飞狐_lzh

你在CAD命令行里试试不就完了

mccad

使用VBA编程尽量少用SendCommand方法。除非在对象模型中找不到相应的处理方法。