Maybe this one, although I don't know if I would consider this vertical
(entmake (list (cons 0 "3DFACE")(cons 8 "0")(cons 10 (list 0 0 0))(cons 11 (list 12 0 6))(cons 12 (list 0 0 12))(cons 13 (list 0 12 6))))
There are no DXF specifications as to which 2 vertices comprise the "crease" in a folded 3dface (10 12) or (11 13)
-David