[求助]菜鸟求助_阴影问题
Dim outerLoop(0 To 0) As AcadEntitySet outerLoop(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Bb)
'填充封口处()
Dim hatchObj As AcadHatch
Dim patternName As String '填充图案名
Dim PatternScale As Double '填充图案比例
Dim PatternType As Long
Dim Associativity As Boolean
Associativity = True
patternName = "AR-CONC"
Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, Associativity)
hatchObj.AppendOuterLoop (outerLoop)
hatchObj.Evaluate
ThisDrawing.Regen True
如果patternname="ansi31"就可以通过，为什么patternName = "AR-CONC"就出现输出不确定的错误呢？
你的代码只有部分，我重写了下测试没有问题，你看看是不是你的其他部分有问题
Sub tttt()
Dim outerLoop(0 To 0) As AcadEntity
Dim sss As AcadLWPolyline
Dim bb(0 To 7) As Double
bb(0) = 0: bb(1) = 0
bb(2) = 100: bb(3) = 0
bb(4) = 100: bb(5) = 100
bb(6) = 0: bb(7) = 100
Set sss = ThisDrawing.ModelSpace.AddLightWeightPolyline(bb)
sss.closed = True
Set outerLoop(0) = sss
'填充封口处()
Dim hatchObj As AcadHatch
Dim patternName As String '填充图案名
Dim PatternScale As Double '填充图案比例
Dim PatternType As Long
Dim Associativity As Boolean
Associativity = True
PatternType = 0
patternName = "AR-CONC"
PatternScale = 0.02
Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, Associativity)
hatchObj.AppendOuterLoop (outerLoop)
hatchObj.Evaluate
ThisDrawing.Regen True
End Sub
另外看看是不是你的范围太大，把填充比例放大试试
X(0) = 0: X(1) = TxtL.Text: X(2) = X(1) + TxtFw.Text: X(3) = X(2) + TxtLw.Text
Y(0) = 0: Y(1) = Y(0) + TxtW.Text
Bb(0) = X(1): Bb(1) = Y(0)
Bb(2) = X(2): Bb(3) = Y(0)
Bb(4) = X(2): Bb(5) = Y(1)
Bb(6) = X(1): Bb(7) = Y(1)
Bb(8) = X(1): Bb(9) = Y(0)
Set sss = ThisDrawing.ModelSpace.AddLightWeightPolyline(bb)
Set outerLoop(0) = sss
大师，有些地方我还是不是很懂，
原代码没改什么地方，只是改了这里就可以了，请指教一下好吗>？
原来的代码
Set outerLoop(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(bb)
修改后
Set sss = ThisDrawing.ModelSpace.AddLightWeightPolyline(bb)
Set outerLoop(0) = sss
为什么加了个二次赋值就可以呢？
页:
[1]