关于sendcommand的一个小问题？

wholin

 Dim Objtwo As AcadLWPolyline
       
    For Each Objtwo In ThisDrawing.ModelSpace
       If TypeOf Objtwo Is AcadLWPolyline Then
           Dim intPoints As Variant
           intPoints = objPoly.IntersectWith(Objtwo, acExtendNone)
           'Objtwo.Closed = True
           'Objtwo.Color = acGreen
          
       End If
    Next Objtwo

就是找出所有的objtwo，然后填充它们，我用的是

   ThisDrawing.sendcommand "_hatch" & vbCr & s & objtwo & vbCr

   这样的直接指定填充的对象时出错，不指定的话那用户非得一个个的去手动选，现在要实现自动找，然后全部填充该如何实现??

wyj7485

最好不要用sendcommand,要用的话,用handent(handle)

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=50788