Offset a line without input from user(prompting)

[avinashg]

Hi All,
I am new to this forum and lisp.
Trying to create cross sections of drain using lisp.The details of are fed from excel for each cross section.I am stuck as I was not able to figure out the way to offset line/polyline by selecting the lines and offset distance from the program itself.
Any help would be appreciated.

Thanks in advance.

Cross SectionOf EWE H-100ch 0 to 575m.dwg
read_excel_data_to_array.lsp
drain.xls

I have grabbed the code given by Fixo to read data from excel (http://www.cadtutor.net/forum/showthread.php?41910-Read-Excel-Data-Cells-and-Draw-in-AutoCAD-thru-LISP/page2). Thanks Fixo.

[Dadgad]

In order to start a lisp you need to enter the shortcall for the lisp, which will likely be at least two letters, that is assuming that it is already loaded.
In order to start the OFFSET command you enter the letter O.
How many key strokes are you hoping to save?

[Organic]

Was the original post deleted?

[avinashg]

In order to start a lisp you need to enter the shortcall for the lisp, which will likely be at least two letters, that is assuming that it is already loaded.
In order to start the OFFSET command you enter the letter O.
How many key strokes are you hoping to save?

Dadgad,
What do u mean by strokes.(Sorry I am a newbee in lisp)
I have already created polyline using lisps i need to offset the same polyline using same program.

[ReMark]

Maybe a look at a lisp program Lee Mac wrote, called Double Offset, holds some clues about how to do what you want.

http://lee-mac.com/doubleoffset.html

[Tharwat]

I have already created polyline using lisps i need to offset the same polyline using same program.

Check this out , and you can change the minus to plus to play with the two sides

(defun c:Test (/ d side s i)
  (vl-load-com)
  (setq d 1.0)
  (if (setq s (ssget "_:L" '((0 . "LINE"))))
    (repeat (setq i (sslength s))
      (vla-offset (vlax-ename->vla-object (ssname s (setq i (1- i)))) (- d))
      )
    )
  (princ)
  )

[avinashg]

Was the original post deleted?

Am not sure something might have happened anyhow m re posting it.

Hi all,
I am trying to create cross sections of drain using lisp data fed from excel.(Used the code posted by fixo in some thread) and drawing polylines and lines.
I am struck as I am not able to figure out how to offset a line/polyline without prompting for selecting line and offset distance.
Here are the files


If anyone (with little free time) can help me by creating the program will be very gratefull.

[Dadgad]

Welcome to the forum.
Your first post was not a post, just the thread title, with no additional information.
Now I understand that you are looking to add an OFFSET command into an existing lisp.
Sorry I am lisp-challenged myself, but it doesn't sound too difficult, Iam sure
somebody will straighten you out.

By key strokes, I mean each time you enter a character on your keyboard.

[avinashg]

Maybe a look at a lisp program Lee Mac wrote, called Double Offset, holds some clues about how to do what you want.

http://lee-mac.com/doubleoffset.html

Will check it out.Thanks

Check this out , and you can change the minus to plus to play with the two sides

Thanks Tharwat will try this one.

[avinashg]

Check this out , and you can change the minus to plus to play with the two sides

(defun c:Test (/ d side s i)
  (vl-load-com)
  (setq d 1.0)
  (if (setq s (ssget "_:L" '((0 . "LINE"))))
    (repeat (setq i (sslength s))
      (vla-offset (vlax-ename->vla-object (ssname s (setq i (1- i)))) (- d))
      )
    )
  (princ)
  )

Tharwat,
This program even though creates offset will prompt to select line.

(ssget "_:L" '((0 . "LINE")))