程序等待的问题!........
如下面的程序,怎样才可以让用户画完多段线再执行后面的操作??sub draw()
thisdrawing.sendcommand "pline "
msgbox "ok"
end sub
程序总是先运行到对话框,有什么方法解决吗? 不知你用VBA还是VB?
VBA相对较简单一些,在事件EndCommand里加入MSGBOX就行了(必要时可以加条件判断语句:IF COMMANDNAME = “” THEN)
对于VB来讲就比较复杂了,可以通过GETPOINT来得到LWPOLYLINE的每个顶点,用得到的顶点数组(或集合,集合用自定义的POINT结构用来记录X Y Z)创建线!要注意对功能工具的判断(就是在用GETPOINT的同时用ZOOM IN 或 PAN命令是的错误处理)直到鼠标右键结束为止!这时再MSGBOX吧! 写在事件里我试过,但这样的话,无论你做什么只要一结束命令就会MSGBOX,比如用CIRCLE命令结束后也会MSGBOX! 在ENDCOMMAND中加MSGBOX是没有用的,因为你一结束PLINE还没有画线,对话框就先出来了!
页:
[1]