(setq fixit
nil vptlist
nil) (setq fixpline
(nth ifixcnt plines
)) ((member 0.0 templist
)(vertlisterldr templist
)) ((not (member 0.0 templist
))(vertlister templist
)) ) ;formats the coord list how i want it for other code areas
) ;fix for vlax issue of elevation in coords, elevation should all be 0 or reset to 0
;center is the center of the donut obtained earlier
((> e2dist e1dist
)(setq goodend endp1
)) ((> e1dist e2dist
)(setq goodend endp2
)) )
((> gap
700)(setq fixit T
)) ((<= gap
700)(setq fixit
nil)) )
(vl-cmdf "pedit" fixpline
"J" lasty
"" "W" "1200" "") )
((= goodend endp1
)(setq chgvert
(subst center
(car vertlist
) vertlist
))) ((= goodend endp2
)(setq chgvert
(subst center
(last vertlist
) vertlist
))) )
((= elevflag
nil)(setq vptlist
(append vptlist cordx cordy
))) ((= elevflag T
)(setq vptlist
(append vptlist cordx cordy '
(0.0)))) )
)
)
(Princ "Line is already correct \n") )
)
);inner while