pavement jointing lisp

[russell84]

i know this would be cheating but it would save a lot of time

anyone know of a pavement jointing lisp that would create a jointing layout for a given closed polyline - with specified minimum and max lengths and area ratios.
And would never create acute angles.

???

Reckon this could be done??

[BIGAL]

You would need to pick horizontal and vertical control lines then corresponding limits.

You can then easily put rules in place divide max joint length into total length or fixed width with reminder.

If object outside is polyline you over extend you joint lines then use trim with a fence. Secret is fence is another poly line offset from original poly line.

[PS_Port]

Here is a start.. for you to play with...
It divdies a control line and copies a line (joint) in one direction..
I guess you could add the polyline trim..as per BIGAL's suggestion.

BTW I think this was CarlB's routine , I just added the approx centres bit..

 
(defun c:place ()
  (setvar "cmdecho" 0)
  (setq PtList nil SegTot 0 Oflag T)
  (princ "\nSelect object(s) to distribute:")
  (setq ss (ssget))
  (initget 1)
  (setq ptbase (getpoint "\nSelect base point of objects: "))
  (setq Pt1 (getpoint "\nSelect starting point <use object>: "))
  (if (not Pt1) (setq Pt1 PtBase Oflag nil))
  (initget 1)
  (setq Pt2 (getpoint Pt1 "\nPick point for last object: "))
  (initget 1)
 
  (setq TDist (distance Pt1 Pt2))
  (setq TAng (angle Pt1 Pt2))
  (setq Numdiv1 (getreal "\nEnter approx divide centres :"));---USER ENTERS APPOX CENTRES, SET TO `NumDiv1'
  (setq dn1 (/ TDist Numdiv1))  ;-----------------------DIVIDES DISTANCE BY CENTRES, SET TO `DN1'  
  (setq NumDiv (fix (+ dn1 0.5))) ;--------------------FIXS `DN1' TO NEAREST REAL NUMBER
  (setq Seg (/ TDist NumDiv))
  (if Oflag (setq PtList (cons Pt1 PtList)))
  (repeat NumDiv
    (setq SegTot (+ SegTot Seg))
    (setq Pt (polar Pt1 Tang SegTot))
    (setq PtList (cons Pt PtList))
  )
  (setq PtList (reverse PtList))
  (foreach x PtList
      (command "._copy" ss "" Ptbase x)
  )
  (setvar "cmdecho" 1)
  (princ)
)

[russell84]

thanks guys

I like the place lisp by the way

I 'll have a look further into it and repost what i come up with.

Thanks

[SstennizZ]

I have been trying to do this too. I found a lisp that distributes blocks along a polyline, but cant get it to rotate the blocks along with the line. They stay oriented the same way.

I am trying to create a path, two tiles wide, along a polyline..

[russell84]

post lisp so we can have a look

[PS_Port]

No need to use lisp, the MEASURe command does exactly what you are trying to do.

[russell84]

i know - i just wanted to see what he was using instead

[PS_Port]

Sorry russell, my comments were directed to steniz, not you.

[russell84]

Nah its cool - so on a different note - mate where did the origin pic go. haha