home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
JUN93.ZIP
/
TIP874.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1993-05-19
|
368b
|
15 lines
; TIP 874: CRK.LSP (C)1993, WILLIAM J. BAER
;; Breaks line, polyline, arc into two seperate objects
;; at the point of selection.P
(defun C:CRK ( / P1 P2)
(setq P1 (entsel "\nSelect object to crack: "))
(setvar "osmode" 32)
(setq P2 (getpoint "\nSelect point of crack: "))
(command "break" P1 "f" P2 P2 )
(setvar "osmode" 0)
(princ))