求助：autocad主窗口不可见，如何处理呢？

sharksun

请看下面这个程序：（AutoCAD下的vba编的） Private Sub CommandButton1_Click()

Dim HatchObject As AcadHatch
Dim OuterCircle(0) As AcadCircle
Dim Center As Variant
Dim Radius As Double With ThisDrawing.Utility
Center = .GetPoint("Click the position or Enter the Center ordinate:")
Radius = .GetDistance(Center, "Enter the radius.")
End With

Set OuterCircle(0) = ThisDrawing.ModelSpace.AddCircle(Center, Radius)
OuterCircle(0).color = acYellow

OuterCircle(0).Update



'AddHatch方法: PatternType有三个参数: acHatchPatternTypePreDefined , acHatchPatternTypeUserDefined
' acHatchPatternTypeCustomDefined
' PatternName
' Associativity: true(图案与包含其的边界有关,随着边界的改变图像也会改变,填充区域改变边界不会变)



Set HatchObject = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "ansi31", False)
HatchObject.AppendOuterLoop (OuterCircle) '设置填充的外环边界
HatchObject.Evaluate '寻找和剖面线相交的部分（和set hatchobject不合分割
HatchObject.Update
End Sub 运行后，出现错误提示；autocad主窗口不可见。 光标定位在getpoint一行
加入application.visual=true（我认为没必要）也不行。 大家帮帮忙吧。

该怎么办呢难哦

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18103

sharksun

谢谢这位朋友。 我改为正确的写法后，还是出现相同的错误提示.


不知道是怎么回事.

yuangw1234

在程式前加一句userform.hide程式（看你用哪个userform,如是userform3,则userform3.hide）

songzhi

赞同4楼的

yaoger

赞同4楼的!!

userform.hide

With ThisDrawing.Utility
      Center = .GetPoint("Click the position or Enter the Center ordinate:")
      Radius = .GetDistance(Center, "Enter the radius.")
   End With

userform.show