Topic: Separate hatches

[mohan]

Please help to fix my route to separate hatches as below image
Don't worry about the hatch patterns what i want is specify internal point should repeat as per my click (6 times it should repeat)
I hope you got my point

Code - Auto/Visual Lisp: [Select]

1. (defun c:pavementlayout ( / hpn p el )
2. (setvar 'hpname "ANSI31")
3. (initget 1)
4. (if (setq hatch (ssget ":S:L" '((0 . "HATCH"))))
5. (progn
6. (command "HATCHGENERATEBOUNDARY" hatch "") (command "Erase" hatch "")))
7. (setq p (getpoint "\nPick or specify internal point : "))
8. (vl-cmdf "_.-BHATCH" "_P" "" 0.05 0.0 "_A" "_B" "_E" "_S" "_N" "_A" "_N" "_H" "_N" "" "_non" p)
9.     (while (< 0 (getvar 'cmdactive)) (vl-cmdf ""))
10. (princ))

[mohan]

Code - Auto/Visual Lisp: [Select]

1. (defun c:pavementlayout ( / hpn p el )
2. (setvar 'hpname "ANSI31")
3. (initget 1)
4. (if (setq hatch (ssget ":S:L" '((0 . "HATCH"))))
5. (progn
6. (command "HATCHGENERATEBOUNDARY" hatch "") (command "Erase" hatch "")))
7. (while (setq p (getpoint "\nPick or specify internal point : "))
8.   (vl-cmdf "_.-BHATCH" "_P" "" 0.05 0.0 "_A" "_B" "_E" "_S" "_N" "_A" "_N" "_H" "_N" "" "_non" p)
9.   (vl-cmdf "")
10. )
11. (princ))

I have fixed myself.