公共函数NumericOnly（s As String）As String Dim s2 As String Dim replace\u hyphen As String replace\u hyphen=“”Static re As RegExp如果re为空，则设置re=New RegExp re。IgnoreCase=True re。全局=真实re。模式=“[^0-9^x ^ ~]”包括空格，如果要排除空格“[^0-9]”s2=re。替换（s，Replace_hyphen）re。模式=“^s+”s2=re。替换（s2，vbNullString）re。模式=“\s+”数字仅=re。Replace（s2，Replace_hyphen）End FunctionSub bqtable（）Dim varPt1 As VariantDim actible As AcadTableDim ss As AcadSelectionSetDim rawtxt As AcadTextDim testext As StringDim i，j As IntegerDim x，y As IntegerConst PI As Double=3.14159 Dim tempdia As IntegerDim checkerdia As BooleanDim weightdia As DoubleDim totalweight As DoubleDim weight As Double'Load Form'mainGUI。showdefaultrowh=mainGUI。TextBox2.Text'create tablevarPt1=ThisDrawing。公用事业GetPoint（，“Select Point”）Set acTable=ThisDrawing。ActiveLayout。块AddTable（varPt1，3，5，defaultrowh，30）可执行。SetText 0，0，“DONATI METRAJI”可执行。SetText 1，0，“Adet”可执行。SetText 1，1，“Çap”可执行。SetText 1，2，“男孩”可表演。SetText 1，3，“Benzer”可执行。SetText 1，4，“Agirlik”'tabloyu doldurSet ss=此图纸。选择集。添加（“SS047”）ss。对于tempdia=8到34，选择Screeni=2j=0weightthin=0weightthick=0totalweight=0第2步，对于ss TestText=rawtxt中的每个rawtxt，检查dia=Falseweightdia=0。Text字符串“Büyük HarfeÇevir veÇap OperatörünüDüzenle testxt=Trim（UCase（Replace（testxt，mainGUI.TextBox1.Text，“ƒ”））”/Varsa Temizle如果InStr（testxt，“/”）0那么pos0=InStr（testxt，“/”）pos1=InStr（试探文字，“L=”）x=pos1-pos0试探文字=Trim（UCase（Left（试探文字，pos0-1）&“L=”&Right（试探文字，Len（试探文字）-pos0-pos1+pos0-1））&“Else试探文字=UCase（试探文字）&“End If'Sayılarıal ve yazdır A=NumericOnly（testext）Arr=Split（A，“”）如果Arr（1）=tempdia，则checkerdia=True t=0 Do，而t
置顶卡
