How do I offset 3d Polyline

[seth007]

Ok, I gave it a try.

I'm having a problem:

On running this code it gives me the error it cand find the library:

'set to uppercase
FilterStr = StrConv(ObjType, vbUpperCase)
ObjectStr = StrConv(objEnt.ObjectName, vbUpperCase)
ObjectStr2 = ObjectStr
ObjectStr = Mid(ObjectStr, InStr(1, ObjectStr, "DB", 1) + 2)

I'm not used to vba, (I like vbnet or C#)

Do I need a reference here, an import or using, that points to that library?

[scj]

Some times ago I made my version of Offset3d.lsp
Regards
Jochen

[seth007]

Some times ago I made my version of Offset3d.lsp
Regards
Jochen

this works like a charm, thanks

[CarlosBZ]

Very useful. Thank you very much for sharing.

[Tyke]

For people with AutoCAD Civil 3D there is a native 3D offset command _AeccOffsetFeature which is the 3D offset command.