[VBA程序]：如何填充一个多边形？

YAMA · 发表于 2003-3-27 17:38:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问高手，如何填充一个多边形？
Dim bo As Object
Dim polygonobject As AcadPolyline
Set hatchObj = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "solid", True)
Set polygonobject = bo
hatchObj.AppendOuterLoop (polygonobject)
hatchObj.Evaluate
hatchObj.Update

为啥不行？

efan2000 · 发表于 2003-3-27 20:46:07

AppendOuterLoop方法后跟的是一个对象数组，所以声明时应该用Dim polygonobject(0 to 0) As AcadEntity，用AcadEntity类型来代替具体的对象，这样赋值时就可以使用不同类型的对象。Set polygonobject(0) = bo，hatchObj.AppendOuterLoop (polygonobject)。注意hatchObj.Evaluate这个方法的要求比较严格，比如填充的面积太大，填充的距离太大等都可能引用出错。

YAMA · 发表于 2003-3-27 21:45:13

谢谢斑竹,这么快就给我一个答复.

entrophy · 发表于 2003-6-16 12:42:56

斑竹,能不能给个C++的例子?

AppendOuterLoop(VARIANT objectArray)中的VARIANT objectArray怎么传值呀?

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：如何填充一个多边形？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子