lisp program
lisp program
(OP)
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)
)
;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)
)





RE: lisp program
(DEFUN C:BR2 () (COMMAND "BREAK" PAUSE "F" PAUSE "@0,0" ) (PRINC)) ; Break at a single point
RE: lisp program
RE: lisp program
here's a macro command version:
^C^C_break;\_f;\@;
Lothar
ADT 2004
ACAD 2002
RE: lisp program
^C^CBREAK \F INT,ENDP \@;
____________________
Acad2005, Terramodel