×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

lisp program

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)


)


RE: lisp program

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

RE: lisp program

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.

RE: lisp program

Hi,

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

Lothar

ADT 2004
ACAD 2002

RE: lisp program

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

____________________
Acad2005, Terramodel

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources