Lisp to trim/ break a polyline or line

[peter.velasco701031]

Hi guys, just new to the autolisp world and would like to ask your assistance in making a lisp so it can be a basis for my future lisp programs.


Here is the flow of the lisp.

Overview: the lisp trims or break a polyline or a line a the point (midpoint) indicated by the user by a value specified by a user.
The distance value indicated should be followed even if the polyline or line is angled.

First: the user is asked of how much the value of the trim/ break to be done on the polyline or line.
2^nd : the user is asked to chose the point where the trim / break will be done.
3^rd: click the next point on the line or polyline or press esc to exit.

Sample, I inputted 1000mm for the value and click at the midpoint of the polyline, the trim should be 500mm on both side of the polyline.
As long as I don’t cancel, I will just continue to choose the next point to trim/ break.


Thank you in advance and more power

[peter]

Without using ActiveX and just using the command functions.

P=

(defun C:BAMP ()
 (C:BreakAtMidPoint)
)

(defun C:BreakAtMidPoint (/ entItem lstPoint sngDistance)
 (if (setq sngDistance (getdist "\nEnter Break Length: "))
  (while (and
          (vl-cmdf "circle" "Mid" pause)
          (vl-cmdf (/ sngDistance 2.0))
          (setq entItem (entlast))
          (setq lstPoint (getvar "lastpoint"))
         )
   (vl-cmdf "trim" entItem "" "Nea" lstPoint "")
   (vl-cmdf "erase" entItem "")
   (setq entItem nil)
  )
 ) 
)
(vl-load-com)

[peter.velasco701031]

Hi Peter,

Wow same name. Thanks for the code. Nice strategy of using a circle works great. Thank you very much.

[Coloradomrg]

Pretty powerful break routine here: http://www.theswamp.org/index.php?topic=10370.0