:")IfErr.Number<>0ThenErr.ClearGoToErrorHandlerEndIfIfVal(Mdensity)<=0ThenMdensity=7.85ElseMdensity=Val(Mdensity)EndIfGoToRet" /> :")IfErr.Number<>0ThenErr.ClearGoToErrorHandlerEndIfIfVal(Mdensity)<=0ThenMdensity=7.85ElseMdensity=Val(Mdensity)EndIfGoToRet" />

全文预览

CADVBA]计算板材重量

上传者:似水流年 |  格式:doc  |  页数:13 |  大小:74KB

文档介绍
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)

收藏

分享

举报
下载此文档