如何用vba清空绘图区？

feifei1238 · 发表于 2006-5-7 14:13:00

如何用vba清空绘图区？我做了一个按钮，想每次点一下就自动清除上一次画的图？

xinghesnak · 发表于 2006-5-7 16:41:00

绘图区？什么意思？用选择集＋过滤器吧

mikewolf2k · 发表于 2006-5-7 19:21:00

undo功能是吧？sendcommand "u"

yuangw1234 · 发表于 2006-5-8 13:02:00

Public Sub del()
Dim obj As AcadEntity
For Each obj In ThisDrawing.ModelSpace
obj.Delete
Next
End Sub

feifei1238 · 发表于 2006-5-8 13:04:00

就是在绘图区画好了图形,然后用vba代码清除绘图区里的所有图形,在绘图区下的命令行可以输入(COMMAND "ERASE" "ALL" "")清空,但不知用vba怎么做？

feifei1238 · 发表于 2006-5-8 13:21:00

4楼的朋友说对了,谢谢了.

mqhr828 · 发表于 2006-5-10 12:57:00

用ＶＢ驱动ＣＡＤ自动绘制凸轮！有没有源程序可以让我借鉴一下！如果需要什么数据我随时提供！谢谢了！

yuangw1234 · 发表于 2006-5-13 15:00:00

你把一个图形传上来，然后写明你想要怎么样的功能，让大家看看吗

peicong · 发表于 2006-5-27 16:40:00

用thisdrawing.sendcommand("_erase all ")就可以了！！！