Offset a line without input from user(prompting)

[avinashg]

First routine again prompts to select the lines.Can the same thing be done in background I mean without prompting.

 

(defun c:drawLine (p1 p2 p3 p4)
(Command "._line" p1  p2 "")    ;; <=== p1,p2,p3 and p4 are points created using polar
(Command "._line" p3  p4 "")
)

 

Can I select only first line and do offset .

[avinashg]

First routine again prompts to select the lines.Can the same thing be done in background I mean without prompting.

 

(defun c:drawLine (p1 p2 p3 p4)
(Command "._line" p1  p2 "")    ;; <=== p1,p2,p3 and p4 are points created using polar
(Command "._line" p3  p4 "")
)

 

Can I select only first line and do offset .

 

 

Is any solution available for this.

[neophoible]

How about just using entlast right after drawing the LINE? E.g.,

 

 
(Command "._line" p1  p2 "") 
(setq Line2Offset (entlast))

[avinashg]

Thanks

Neophoible

and

Tharwat

 

Here how i solved it.

 

 
   (command "._pline")
   (foreach item lst (command item))
   (command "_c")
   (setq Line2Offset (entlast))
  (vla-offset (vlax-ename->vla-object Line2Offset) -0.1)

[neophoible]

You are very welcome. Glad to help.