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'块名<BR>                       Dim insertP As Variant<BR>                       With ThisDrawing.Utility<BR>                                               insertP = (.GetPoint(, "请指定插入点:"))<BR>                                               If IsEmpty(insertP) Then Exit Sub<BR>                       End With<BR>                       ThisDrawing.SendCommand "-insert" &amp; vbCr &amp; BlockName &amp; vbCr        &amp; insertP &amp; vbCr &amp; vbCr &amp; 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方法。除非在对象模型中找不到相应的处理方法。
页: [1]
查看完整版本: 求-wblock和-insert命令的实例