社区 › VB › 新手请教一个CAD2002中画剖面线的问题

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

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

请问各位高手，我用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 themethod, 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 themethod, 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 themethod.
Once you have finished defining the boundaries for the hatch, use themethod to calculate the hatch lines or fill for the boundaries, then use themethod to update the display of the hatch.

agone_sun 发表于 2004-4-23 14:31:00

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

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

把代码传上来

agone_sun 发表于 2004-4-23 14:45:00

不好意思啊！我在网吧上的，没软区，传不了，火死了！~~~
能不能帮我传一个的啊！我抄下来回去调试一下！我是学生，在做毕业设计！谢了！

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

appendouterloop必须保证是封闭的

agone_sun 发表于 2004-4-23 15:08:00

哦！好的，好象是的封闭的
我回去在看看吧，下次我把代码传上来。谢谢你

agone_sun 发表于 2004-4-27 18:26:00

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

查看完整版本: 新手请教一个CAD2002中画剖面线的问题