如何用vba清空绘图区?
<P>如何用vba清空绘图区?我做了一个按钮,想每次点一下就自动清除上一次画的图?</P> 绘图区?什么意思?用选择集+过滤器吧 <P>undo功能是吧?sendcommand "u"</P> Public Sub del()<BR>Dim obj As AcadEntity<BR>For Each obj In ThisDrawing.ModelSpace<BR>obj.Delete<BR>Next<BR>End Sub<BR> <P>就是在绘图区画好了图形,然后用vba代码清除绘图区里的所有图形,在绘图区下的命令行可以输入(COMMAND "ERASE" "ALL" "")清空,但不知用vba怎么做?</P> 4楼的朋友说对了,谢谢了. 用VB驱动CAD自动绘制凸轮!有没有源程序可以让我借鉴一下!如果需要什么数据我随时提供!谢谢了! <P>你把一个图形传上来,然后写明你想要怎么样的功能,让大家看看吗</P><P> </P> 用thisdrawing.sendcommand("_erase all ")就可以了!!!
页:
[1]