home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / cad / jun93.zip / TIP874.LSP < prev    next >
Lisp/Scheme  |  1993-05-19  |  368b  |  15 lines
  1. ; TIP 874: CRK.LSP (C)1993, WILLIAM J. BAER
  2.  
  3. ;; Breaks line, polyline, arc into two seperate objects 
  4. ;; at the point of selection.P
  5.  
  6. (defun C:CRK ( / P1 P2)
  7.    (setq P1 (entsel "\nSelect object to crack: "))
  8.    (setvar "osmode" 32)
  9.    (setq P2 (getpoint "\nSelect point of crack: "))
  10.    (command "break" P1 "f" P2 P2 )
  11.    (setvar "osmode" 0)
  12. (princ))
  13.  
  14.  
  15.