ity=ThisDrawing.Utility.GetString(0,vbCr&"输入材料密度(x10^3kg/m^3)<"&Mdensity&">:")IfErr.Number<>0ThenErr.ClearGoToErrorHandlerEndIfIfVal(Mdensity)<=0ThenMdensity=7.85ElseMdensity=Val(Mdensity)EndIfGoToRetryCase"S"ScaleNum=ThisDrawing.Utility.GetString(0,vbCr&"输入图形缩放比例<"&ScaleNum&">:")IfErr.Number<>0ThenErr.ClearGoToErrorHandlerEndIfIfVal(ScaleNum)<=0ThenScaleNum=1ElseScaleNum=Val(ScaleNum)EndIfGoToRetryCase"I"ifIsland=ThisDrawing.Utility.GetString(0,vbCr&"是否除去内部孤岛[Yes(1)/No(0)]<"&ifIsland&">:")IfErr.Number<>0ThenErr.ClearGoToErrorHandlerEndIfIfUCase(ifIsland)="NO"OrUCase(ifIsland)="N"ThenifIsland=0ElseifIsland=1EndIfGoToRetryCase"U"GoToErrorHandlerCaseElseGoToRetryEndSelectElseErr.ClearGoToErrorHandlerEndIfEndIf'##########以上为修改部分###########ReDimPreservePnt(0To2)AsDoublestrPnt=Pnt(0)&","&Pnt(1)