;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: 2010 ;;; EDITED: 2010 ;;; (DEFUN C:DINT ( / xentp xentss xent_0 xent_1 line_0 line_1 xentp) (SETQ dint_osmode (GETVAR "osmode")) (SETVAR "OSMODE" 32) (IF upoint nil (load "upoint" "\nFile UPOINT.LSP not loaded! ")) (IF dimscl nil (load "dimscl" "\nFile DIMSCL.LSP not loaded! ")) (dimscl) (SETQ interspt (upoint 1 "" "Select break intersection point" nil nil)) (SETQ xentp (NENTSELP interspt)) (IF xentp (SETQ xentss (SSGET "C" (CADR xentp)(CADR xentp))) ) (IF xentss (PROGN (SETQ cnt 0) (WHILE (< cnt (SSLENGTH xentss)) (REDRAW (SSNAME xentss cnt) 3) (SETQ cnt (1+ cnt)) ) (SETVAR "OSMODE" 512) (SETQ entpt (upoint 1 "" "Select segment to break" nil nil)) (SETQ brkent (NENTSELP entpt)) (SETQ cnt 0) (WHILE (< cnt (SSLENGTH xentss)) (REDRAW (SSNAME xentss cnt) 4) (SETQ cnt (1+ cnt)) ) (SETVAR "OSMODE" 0) (COMMAND ".break" entpt "f" (POLAR interspt (ANGLE interspt entpt) (* 0.1 dimsc))(POLAR interspt (+ PI(ANGLE interspt entpt)) (* 0.1 dimsc))) ) ;_ end of progn (ALERT "Nothing was selected!") ) ;_ end of if (SETVAR "OSMODE" dint_osmode) (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (100 2 15 2 T "end of " 100 15 2 0 2 nil nil nil T) ;*** DO NOT add text below the comment! ***|;