【转帖】vc中如何填充区域？？？？
 

vc中如何填充区域？？？？
vc中如何填充区域？？？？
sub example_addhatch() ' this example creates an associative gradient hatch in model space. dim hatchobj as acadhatch dim patternname as string dim patterntype as long dim bassociativity as boolean ' define the hatch patternname = "cylinder" patterntype = acpredefinedgradient '0 bassociativity = true ' create the associative hatch object in model space set hatchobj = thisdrawing.modelspace.addhatch(patterntype, patternname, bassociativity, acgradientobject) dim col1 as acadaccmcolor, col2 as acadaccmcolor set col1 = acadapplication.getinterfaceobject("autocad.accmcolor.16") set col2 = acadapplication.getinterfaceobject("autocad.accmcolor.16") call col1.setrgb(255, 0, 0) call col2.setrgb(0, 255, 0) hatchobj.gradientcolor1 = col1 hatchobj.gradientcolor2 = col2 ' create the outer boundary for the hatch (a circle) dim outerloop(0 to 0) as acadentity dim center(0 to 2) as double dim radius as double center(0) = 3: center(1) = 3: center(2) = 0 radius = 1 set outerloop(0) = thisdrawing.modelspace.addcircle(center, radius) ' append the outerboundary to the hatch object, and display the hatch hatchobj.appendouterloop (outerloop) hatchobj.evaluate thisdrawing.regen trueend sub
上面的这段代码如何用vc实现？？？