Topic: Multiple lines

[TJAM51]

I am seeking the following:

1. Ability to draw multiple parallel plines.
2. Lines can be 2 or 3 or 4 or 5 or as many as needed
3. I need the ability to type in whatever spacing I need at the time

I am seeking a routine that uses one routine and the least amount of steps possible. I am trying to avoid offset and array as separate commands after drawing a single pline.......if anyone has any ideas it would be greatly appreciated...


Thanks

[Slim©]

If you have ACAD 2000 or newer, Have you tried the "MLINE" command?

[TJAM51]

I perfer not to use the mline command


Thanks

[Slim©]

Any reason why?

[CAB]

TJ
You can start with something like this.
You will need to add some bells & whistles though as this has little
error checking and only draws a LINE object.

Code: [Select]

(defun c:lns (/ usercmd p1 p2 p3 dist cnt)
  (setq usercmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (if (and (setq p1 (getpoint "\nStart of line."))
           (setq p2 (getpoint p1 "\nPick end of line."))
           (null (command "._line" p1 p2 ""))
           (setq dist (getdist "\nEnter offset distance."))
           (setq cnt (getint "\nEnter number of lines."))
           (setq p3 (getpoint "\nPick side to offset."))
      )
    (progn
      (while (> (setq cnt (1- cnt)) 0)
        (command "._offset" dist (entlast) (polar p3 (angle p1 p3) (* dist 100))"")
      ) ; while
    ) ; progn
  ) ; endif
  (setvar "CMDECHO" usercmd)
  (princ)
) ; defun
(prompt "\nParallel Lines Routine loaded, Enter LNS to run.")
(princ)

[daron]

Mlines are nice. When you're done with them, just explode them. Viola, multiple lines.

[CAB]

Hay, that's a good tip, Daron