程序等待的问题!........

myfreemind

如下面的程序,怎样才可以让用户画完多段线再执行后面的操作??

sub draw()
thisdrawing.sendcommand "pline "
msgbox "ok"
end sub

程序总是先运行到对话框,有什么方法解决吗?

esri

不知你用VBA还是VB？

VBA相对较简单一些，在事件EndCommand里加入MSGBOX就行了（必要时可以加条件判断语句：IF COMMANDNAME = “” THEN）
对于VB来讲就比较复杂了，可以通过GETPOINT来得到LWPOLYLINE的每个顶点，用得到的顶点数组（或集合，集合用自定义的POINT结构用来记录X Y Z）创建线！要注意对功能工具的判断（就是在用GETPOINT的同时用ZOOM IN 或 PAN命令是的错误处理）直到鼠标右键结束为止！这时再MSGBOX吧！

myfreemind

写在事件里我试过,但这样的话,无论你做什么只要一结束命令就会MSGBOX,比如用CIRCLE命令结束后也会MSGBOX!

myfreemind

在ENDCOMMAND中加MSGBOX是没有用的,因为你一结束PLINE还没有画线,对话框就先出来了!