For Each obj1 In selectCurveBlock.SelectedObjects()

Dim curve1 As NX.Curve = CType(obj1, NX.Curve)

ProjCurve(i) = Create.ProjectCurve(Dplane, curve1)

i = i + 1

Next

Dim lines As NX.ICurve() = ProjCurve

Create.Extrude(lines, Z, 100)
这个语句在最后一句报错，帮忙分析一下。

版主呢，帮帮忙，谢谢！

回复：1楼
e1 = Extrude({ln(1), ln(2), ln(3), ln(4), ln(5), ln(6), ln(7), ln(8)}, ivec(1), {(1 - extlenv) * z / 2, (1 + extlenv) * z / 2})

我的这个代码是成功了的，前面的线用大括号括起来，然后矢量，拉伸的上下限也是用大括号括起来的，我拿这个拉伸方管使用的