Lisp/ tricks for draw A close polyline

[Ish]

 Dear team,

I need a lisp program or tips tricks to draw a close polyline within PRoW for land acquisition plan and area for Road project.

I want all at one click command.

Currently I am using boundary command but is one by one clicking.

 

 

Hatch for reference, need a close polyline.

 

See attached image 

And cad file.

LAP-CLOSE PL.dwg

[confutatis]

It doesn't seem to me that the bpoly command wastes that much time....

Edited July 17, 2021 by confutatis

[BIGAL]

A starting point

 

(defun c:hatchang ( / ang pt)
(setq ang 0.0)
(while (setq pt (getpoint "\nPick point Enter to exit"))
(command "-hatch" "P" "ansi31" 1 ang pt "")
(setq ang (+ ang 30))
)
(princ)
)

 

[Ish]

9 hours ago, confutatis said:

It doesn't seem to me that the bpoly command wastes that much time....

Sir, Project length 80km 

Too much land acquisition required.

I just upload small part of project.

[Ish]

3 hours ago, BIGAL said:

A starting point

 

(defun c:hatchang ( / ang pt)
(setq ang 0.0)
(while (setq pt (getpoint "\nPick point Enter to exit"))
(command "-hatch" "P" "ansi31" 1 ang pt "")
(setq ang (+ ang 30))
)
(princ)
)

 

@BIGAL hatch is not required, sir

Hatching is Just for reference.

I need only a close polyline (like by boundary command)

Too much land acquisition required.

I just upload small part of project.

Thanks

[Ish]

6 hours ago, BIGAL said:

A starting point

 

(defun c:hatchang ( / ang pt)
(setq ang 0.0)
(while (setq pt (getpoint "\nPick point Enter to exit"))
(command "-hatch" "P" "ansi31" 1 ang pt "")
(setq ang (+ ang 30))
)
(princ)
)

Thanks

Edited July 18, 2021 by Ish
Answer got

[Ish]

Any trick or shortcut at least done 80%

Remaining 20 I will do by boundary command.

 

[Jonathan Handojo]

Hurts when nobody's willing to help you out.

 

I recommend this, but it's not free: SuperBoundary

The program itself is amazing, I wish I could do that.

[BIGAL]

Jonathon look at the number under Community Members yours is 160 Ish is -ve19 look into the meaning of that, then "Hurts when nobody's willing to help you out" you may change your mind.