社区 › VB › 求-wblock和-insert命令的实例

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

求-wblock和-insert命令的实例

哪位大哥有这方面的实例啊？贴出来吧，我试了一下，发现经常出错啊。
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

Hunix 发表于 2005-4-6 15:39:00

那"-wblock"命令呢？

雪山飞狐_lzh 发表于 2005-4-6 21:21:00

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

mccad 发表于 2005-4-6 21:48:00

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

查看完整版本: 求-wblock和-insert命令的实例