Multiple Poly line Point Offset

[shil143]

Hi All,

 I need Lisp For offset Polyline including points in orOut Position, Right Now I am Using Below Attach Two Lisp ( OffsetMultiplePolylinestoNewLayer, SnapToObj ) .

for me Both works to be done Under The One Lisp, 

[Sea-Haven]

Offset pline as normal then put a point on the vertice of newly created pline. You can use (entlast) for offset pline.

(setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car (entsel "pick pline"))))))

(repeat (setq x (length co-ord))
(command "point" (nth (setq x (- x 1)) co-ord))
)