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

agone_sun

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

雪山飞狐_lzh

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

agone_sun

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

雪山飞狐_lzh

RetVal = object.AddHatch(PatternType, PatternName, Associativity [, HatchObjectType])

After the Hatch object has been created using the MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_addhatch.htm" target="_blank" >AddHatch method, add the outer loop using MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_appendouterloop.htm" target="_blank" >AppendOuterLoop. 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 MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_addhatch.htm" target="_blank" >AddHatch 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 MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_appendinnerloop.htm" target="_blank" >AppendInnerLoop method.

Once you have finished defining the boundaries for the hatch, use the MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_evaluate.htm" target="_blank" >Evaluate method to calculate the hatch lines or fill for the boundaries, then use the MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_regen.htm" target="_blank" >Regen method to update the display of the hatch.

agone_sun

我的是一个圆弧，用“         |_|         ”连接起来，就是轴有键槽处的剖面，我用的是appendouterloop，没有用内边界！实体是一个圆弧，三条直线，不知道怎么回事，调试的不到结果！我觉得关键是后面addhatch命令处错误，烦你赐教！

雪山飞狐_lzh

把代码传上来

agone_sun

不好意思啊！我在网吧上的，没软区，传不了，火死了！~~~


能不能帮我传一个的啊！我抄下来回去调试一下！我是学生，在做毕业设计！谢了！

雪山飞狐_lzh

appendouterloop必须保证是封闭的

agone_sun

哦！好的，好象是的封闭的


我回去在看看吧，下次我把代码传上来。谢谢你

agone_sun

我回去看了，我画的图是圆弧和直线是相交的，就是说直线的端点不是圆弧的端点，我不知道这叫不叫封闭啊！？？