Joining polylines with PEDIT, fuzz distance issues

[c.dodds344133]

Hi,

I am trying to join some polylines together and am having issues where I set the fuzz distance, but the line segments added are far greater than what I have specified. I am using Civil 3D 2013 but have verified the same behaviour on Autocad 2013.

I have attached a small file and a lisp routine which will show the strange behaviour. On running the lisp, you can see that a line segment of length >2 is added even though fuzz distance is set to 0.2.

Any clues as to what is happening?

Cheers,
Chris

(defun c:fuzzWhat (/ oldSnap ss)

    ;Turn off snaps
    (setq oldSnap(getvar "osmode"))
    (setvar "osmode" 0)

    ;Select all lines & Join with pedit fuzz 0.2
    (if (setq ss (ssget "_X" (list (cons 0 "LINE"))))
        (command "pedit" "m" ss "" "y" "j" "j" "a" 0.2 "")
    )

    ;Turn snaps back on
    (setvar "osmode" oldSnap)
)