|
发表于 2004-9-21 15:58:00
|
显示全部楼层
如果直接在画圆代码后,添加userform1.show
这样在弹出窗口userform1后,图形窗口还没能显示画出的圆,按程序执行顺序来讲,应该是先在屏幕画个圆,然后再弹出窗口userform1?
比如下面代码,运行时 就是先显示userform1窗体,而且只有当关闭userform1窗体时,才在屏幕上出现了画的直线。
Sub addtoolbar()
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = ThisDrawing.Application.MenuGroups.Item(0)
'创建一个名称为mytoolbar的工具条
Dim newtoolbar As AcadToolbar
Set newtoolbar = currmenugroup.Toolbars.Add("mytoolbar2")
'给新工具条添加按钮
Dim newbutton As AcadToolbarItem
Dim openmacro As String
'给宏赋值
openmacro = Chr(3) & Chr(3) & "-vbarun" + Chr(32) + "thisdrawing.drawline" + Chr(32)
Set newbutton = newtoolbar.AddToolbarButton("", "newbutton", "draw a line.", openmacro)
End Sub
Sub drawline()
Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double
pt1(0) = 100
pt1(1) = 100
pt1(2) = 0
pt2(0) = 500
pt2(1) = 500
pt2(2) = 0
ThisDrawing.ModelSpace.AddLine pt1, pt2
UserForm1.Show
End Sub
我现在不知道 如何先显示画出的直线,然后在显示userform1窗体。
请 斑竹 和乐筑天下高手 指点。小弟先谢了~
|
|