新手请教一个CAD2002中画剖面线的问题

agone_sun · 发表于 2004-4-23 13:21:00

请问各位高手，我用VB6.0开发CAD2002，不知道怎么对一个轴的剖面进行ANSI31图形填充呢？就是机械设计中画剖面线！先谢了！

雪山飞狐_lzh · 发表于 2004-4-23 13:25:00

可以直接用SendCommand调用填充命令

agone_sun · 发表于 2004-4-23 13:52:00

具体的不会用啊！我想用选择集的，可是调试不出来！~~~~~~~~

雪山飞狐_lzh · 发表于 2004-4-23 14:14:00

RetVal = object.AddHatch(PatternType, PatternName, Associativity [, HatchObjectType])
After the Hatch object has been created using the  method, add the outer loop using . The outer loop must be closed and must be created before any inner loops can be added.
After the Hatch object has been created using the  method, add the outer loop. The outer loop must be closed and must be created before any inner loops can be added. After a valid outer loop has been created, add any inner loops, one at a time, using the  method.
Once you have finished defining the boundaries for the hatch, use the  method to calculate the hatch lines or fill for the boundaries, then use the  method to update the display of the hatch.