lisp program

[bigplc]

i have found a lisp program that breaks a line at a intersection but when that happens it puts a space between where it use to be. i guess what im looking for is how to use this same lisp but i don't want it to break i want it to stay connected but in two segments like a boundary break. here is the lisp thxs

;To cut one line at intersection
;created by Claude Breden sept. 99
;tous droits reserves

(defun rtd (a)
(/ (* a 180.0) pi)
)

(defun dtr (a)
(* pi (/ a 180.0))
)

(defun c:Coupint()

(setvar "osmode" 512)
(setq p1 (getpoint "\nPick line to cut"))

(setvar "osmode" 32)
(setq p2 (getpoint "\nPick intersection")
an (angle p1 p2)
txh (getvar "textsize")
p3 (polar p2 (+ an (dtr 180)) (/ txh 1.5))
p4 (polar p2 an (/ txh 1.5)))
(setvar "osmode" 0)

(command "break" p1 "f" p3 p2 "break" p4 "f" p4 p2)


)

 

[IFRs]

Here is a short one that does what you want (set your OSNAP to INT first):
(DEFUN C:BR2 () (COMMAND "BREAK" PAUSE "F" PAUSE "@0,0" ) (PRINC)) ; Break at a single point

 

[saruman26]

In AutoCAD, under the "Modify" toolbar (pull-down or button bar, whichever you prefer) is a command called 'break at point" that does the same thing. It breaks any line or polyline at a point you select.

 

[Exxit]

Hi,

here's a macro command version:
^C^C_break;\_f;\@;

Lothar

ADT 2004
ACAD 2002

 

[lpseifert]

I put this on a button-
^C^CBREAK \F INT,ENDP \@;

____________________
Acad2005, Terramodel