[求助]奇怪？！明明是封闭的二维多义线，却不能做成面域？

该怎么办呢难哦 · 发表于 2003-10-8 21:11:00

修改了一个程序，本想做成面域，却出现错误！请efan斑竹帮我看看。谢谢!

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

efan2000 · 发表于 2003-10-8 21:31:00

AddRegion后面的参数是对象数组，所以前面要多义线要声明为对象数组。
Dim plineobj(0) As AcadLWPolyline
Set plineobj(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptt)
plineobj(0).Closed = True
Dim regionObj As Variant
regionObj = ThisDrawing.ModelSpace.AddRegion(plineobj)
AddRegion返回的也是一个对象数组，所以这儿使用了Variant类型，虽然它实际只生成一个面域，要设置它的颜色，应该使用
regionObj(0).color = acRed