[VBA程序]：怎样用sendcommand命令实现块的插入??

hesuzhen

怎么用sendcommand命令调用CAD本身的命令_measure来实现定距等分直线后插入块的功能?
我在编程时用
thisdrawing.sendcommand"_measure   ( )   b  'blkName' 10 "
运行到选择要定距等分的对象时说无效
这是怎么一回事呀
上面命令的( )内应该填什么才能够在CAD的运行环境中选择要定距等分的对象呢?

请哪位高手指点一下!!!!

dyheng

你发送命令时的参数不正确，看下面的例子：
ThisDrawing.SendCommand "Measure " & GetBlockhandle(要等分的线) & vbCr & "b " &  块名 & "N " &  距离 & " "

Private Function GetBlockhandle(objEntity As AcadEntity) As String
    Dim strHandle As String
    strHandle = objEntity.Handle
    GetEntityCmd = "(handent" & Chr(34) & strHandle & Chr(34) & ")"
End Function

hesuzhen

请问二楼的高手,那个GetBlockhandle函数,是放在模块中吗?

怎么我们运行还是出现一个的错误呢?

那个函数好像不能获取哦
请你再帮一下忙好不?

dyheng

不是一定要放在模块中的，我用这个函数运行时都是正确的！如果你的程序依然有错误的话，可否把你的代码发布上来，让大家看一下，帮你解决一下，看看究竟是哪儿出问题了。