;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 2-18-2004 ;;; Edited: 2-18-2004 (DEFUN C:RBRKL ( / rbrklpt1 rbrklpt PLLST) (IF gvpno NIL (LOAD "gvpno" "\nFile GVPNO.LSP not loaded! ")) (gvpno) (IF viewno (PROGN (SETQ curvno (GETVAR "cvport")) (SETQ cvpss (SSGET "X" (LIST (CONS 410 (GETVAR "CTAB"))(CONS 69 curvno)))) (SETQ cvpent (ENTGET (SSNAME cvpss 0))) (SETQ dimsc (/ (GETVAR "viewsize") (CDR (ASSOC 41 cvpent)))) ) (PROGN (IF dimscl NIL (LOAD "dimscl" "\nFile DIMSCL.LSP not loaded! ")) (dimscl) ) ) (SETQ claycolr (CDR(ASSOC 62(TBLSEARCH "LAYER" (GETVAR "CLAYER"))))) (IF upoint NIL (LOAD "upoint")) (SETQ rbrklpt1 (upoint 1 "" "Rough breakline start point" nil nil)) (SETQ PLLST (APPEND PLLST (LIST rbrklpt1))) (WHILE (AND (SETQ rbrklpt (GRREAD T 1 0))(EQ (CAR rbrklpt) 5)) (IF (AND rbrklpt rbrklpt1 (> (DISTANCE (CADR rbrklpt) rbrklpt1) (/ dimsc 8.0)) ;;; (IF (>(LENGTH PLLST)1) ;;; (>(ABS(-(SIN(ANGLE(NTH 1(REVERSE PLLST))(LAST PLLST)))(SIN(*(ANGLE(CADR rbrklpt)rbrklpt1)0.95))))0.25) ;;; T ;;; ) ) (PROGN (GRDRAW rbrklpt1 (CADR rbrklpt) claycolr) (SETQ rbrklpt1 (CADR rbrklpt) PLLST (APPEND PLLST (LIST rbrklpt1)) ) ) ) ) (IF (EQ(LAST PLLST)(CADR rbrklpt)) NIL (SETQ rbrklpt1 (CADR rbrklpt) PLLST (APPEND PLLST (LIST rbrklpt1)) ) ) (IF (AND PLLST (>(LENGTH PLLST)3)) (PROGN (COMMAND ".PLINE") (FOREACH n PLLST (COMMAND n)) (COMMAND "") (REDRAW) ) ) (PRINC) )