Polyline then offset.

[marmo]

Hello to all,

 

i need to draw many polyline and then once the offset of all.

 

Something like this draft:

 

(defun c:PolyOFF (var...)

(command "pline"); draw the polyline point by point, using the basic command of autocad.

(command "offset" "last"); offset polyline just drawn, using the basic command of autocad.

(command "erase" "previous"); erase the polyline drawn in the beginning.

)

 

Thanks for any help.

Regards.

[pBe]

For a single run

 

(defun c:test  nil
     (command "pline")
     (while (eq 1 (logand 1 (getvar 'cmdactive)))
           (command pause))
     (command "offset" "_erase" "Y" pause (entlast) pause)
     )

[marmo]

It works fine!

Thanks a lot!

[pBe]

It works fine!

Thanks a lot!

 

Good for you marmo.

Glad I could help

 

Cheers