Topic: break at point question

[ELOQUINTET]

just out of curiousity, when i use the break at point command it works fine but if i hit enter to do it again it screws up the line like this:

             |
 line 1    |   gap  line 2
   ______|   _________
             |
             |
forgive the crude drawing

[ELOQUINTET]

ah not what my screen showed basically it doesn't break it clean it puts a gap on one side

[Dommy2Hotty]

Not that this is what you're looking for, but here's the Menu Macro I made...I could change it to a LISP for ya if you wanted, so that you could hit "ENTER" to re-initiate it.

Code: [Select]


[Break @ Selected Point]^C^C^C^P(setq ent(entsel "Select Object to Break...")) \(setq pt(getpoint "Select Break Point...")) \break;!ent;f;!pt;!pt;^P

[Kate M]

I think that's just how macros work -- you can't re-initiate "break at point" without hitting the button again.

Dommy, a lisp would be cool, though.

[CADaver]

just out of curiousity, when i use the break at point command it works fine but if i hit enter to do it again it screws up the line like this:

             |
 line 1    |   gap  line 2
   ______|   _________
             |
             |
forgive the crude drawing

The macro issues the BREAK command and fills in the second point for you.  When you hit the enter key it just repeats the BREAK command.  You'll need a lisp function for it to repeat ant the enter key.

[whdjr]

Here's a lisp I wrote to do just that:

Code: [Select]

(defun c:bk (/ ent)
  (command "break"
  (setq ent (entsel "\nPick point to break Object:  "))
  (cadr ent)
  )
  (princ)
)
Try it you might like it.

[Dommy2Hotty]

Dommy, a lisp would be cool, though.

Download BAP.LSP

Code: [Select]

;;***********************************************
;;                  BAP.lsp                     *
;;           Break At selected Point            *
;;          Created by Dominic Cesare           *
;;             Dommy2Hotty@aol.com              *
;;                 09.29.2004                   *
;;***********************************************

(prompt "\nType BAP to run.....")

;;**********************
;;Start of Routine     *
;;**********************

(defun c:BAP (/ oldecho ent pt)

  ;error trapping
  (setq temperr *error*)
  (setq *error* trap1)

  ;current variables
  (setq oldecho (getvar "cmdecho"))

  ;turning off echo
  (setvar "cmdecho" 0)

  ;setting undo beginning
  (command "undo" "begin")

  ;user supplied information
  (setq ent (entsel "Select Object to Break....."))
  (setq pt (getpoint "Select Break Point....."))

  ;break command using user information
  (command "break" ent "f" pt pt)

  ;error trapping
  (setq *error* temperr)

  ;setting undo end
  (command "undo" "end")
 
  ;resetting echo
  (setvar "cmdecho" oldecho)
  (princ)
  )

;defining error trapping
(defun trap1 (errmsg)
  (command "u")
  (setvar "cmdecho" oldecho)
  (setq *error* temperr)
  (prompt "Resetting System Variables...")
  (princ)
  )

;;**********************
;;End of Routine       *
;;**********************

[ELOQUINTET]

ah i had forgotten i's posted this question so busy yesterday. works great dommy just what the doctor ordered thanks a bunch that's goin in my nostromo 52  

[Dommy2Hotty]

ah i had forgotten i's posted this question so busy yesterday. works great dommy just what the doctor ordered thanks a bunch that's goin in my nostromo 52  

No problem...nothing fancy at all, really...

[ELOQUINTET]

K.I.S.S.

keep it simple stoopid  

[Dommy2Hotty]

K.I.S.S.

keep it simple stoopid  

  Changed the order in the LISP...set the echo back too soon...so all you'll see now (if you re-download it) would be the prompts for the line and the point...

[CAB]

Here is another simple one.

Code: [Select]

(defun C:BRAT(/ user)
  ;(setvar "CMDECHO" 0)
  (setq user (getvar "OSMODE"))
  (command "OSNAP" "int")
  (command "_.BREAK" pause "F" pause "@")
  (setvar "OSMODE" user)
  ;( setvar "CMDECHO" 1)
)

[whdjr]

Here is another simple one.

Wasn't mine simple enough?

Here's a lisp I wrote to do just that:
Code:
(defun c:bk (/ ent)
  (command "break"
      (setq ent (entsel "\nPick point to break Object:  "))
      (cadr ent)
  )
  (princ)
)

Try it you might like it.

[PDJ]

OK CAB, that's SCARY!!  Here's the code I use:

Code: [Select]

(defun C:BRAT()
  (setq user (getvar "OSMODE"))
  (command "OSNAP" "int")
  (command "BREAK" pause "F" pause "@")
  (setvar "OSMODE" user)
)


Great minds think alike I reckon..

[CAB]

OK CAB, that's SCARY!!  Here's the code I use:

Code: [Select]

(defun C:BRAT()
  (setq user (getvar "OSMODE"))
  (command "OSNAP" "int")
  (command "BREAK" pause "F" pause "@")
  (setvar "OSMODE" user)
)


Great minds think alike I reckon..

Paul,
Did we steal it from the same place?  Or maybe I stole yours.