xgngg 发表于 2004-5-19 16:32:00

求助

Dim plineobj As AcadLWPolyline<BR>Dim points(0 To 3) As Double<BR>points(0) =0+textbox1: points5(1) = 0<BR>points(2) =        100: points5(3) =        0<BR>Set plineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)


Dim pline1obj As AcadLWPolyline<BR>Dim points1(0 To 3) As Double<BR>points1(0) =200: points1(1) = 200<BR>points1(2) =        500: points1(3) =        500<BR>Set pline1obj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points1)


。。。。。。


以上程序运行时，如何在textbox1=" "时，程序跳过plineobj,继续执行下面的程序

efan2000 发表于 2004-5-19 19:07:00

if textbox1.text&lt;&gt;"" then


points(0) =0+textbox1: points5(1) = 0<BR>points(2) =        100: points5(3) =        0<BR>Set plineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)


end if

小美菜 发表于 2004-5-19 19:16:00

Dim plineobj As AcadLWPolyline<BR>Dim points(0 To 3) As Double<BR>points(0) =0+textbox1: points5(1) = 0--&gt;points(0) =iif(isnumeric),-------&gt;textbox1.text),textbox1.text,0)<BR>points(2) =        100: points5(3) =        0<BR>Set plineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
页: [1]
查看完整版本: 求助