;;;Place breakline symbol as a polyline. ;;; ;;; ;;; AUTHOR: HENRY C. FRANCIS ;;; 425 N. ASHE ST. ;;; SOUTHERN PINES, NC 28387 ;;; ;;; All rights reserved without prejudice. ;;; Copyright: 6-16-94 ;;; Edited: 6-28-2010 ;;; (DEFUN C:BRKL (/ bkp1b bkp1m bkp1r bkp1l bkp1a bkp2b bkp2m bkp2r bkp2l bkp2a bkp3b bkp3m bkp3r bkp3l bkp3a ) (IF dimscl NIL (LOAD "dimscl" "\nFile DIMSCL.LSP not loaded! ") ) ;_ end of IF (IF upoint NIL (LOAD "upoint" "\nFile UPOINT.LSP not loaded! ") ) ;_ end of IF (IF gvpno NIL (LOAD "gvpno" "\nFile GVPNO.LSP not loaded! ") ) ;_ end of IF (IF c:mklayr NIL (LOAD "mklayr" "\nFile MKLAYR.LSP not loaded! ") ) ;_ end of IF (c:svlayr) (gvpno) (dimscl) (WHILE (AND dimscl upoint (SETQ brkl_ptb (upoint 0 "" "Begin breakline point" nil nil)) (SETQ brkl_pte (upoint 0 "" "End breakline point" nil brkl_ptb)) ) ;_ end of AND (SETQ brkl_len (DISTANCE (LIST (CAR brkl_ptb) (CADR brkl_ptb) 0.0) (LIST (CAR brkl_pte) (CADR brkl_pte) 0.0) ) ;_ end of DISTANCE brkl_ang1 (ANGLE (LIST (CAR brkl_ptb) (CADR brkl_ptb) 0.0) (LIST (CAR brkl_pte) (CADR brkl_pte) 0.0) ) ;_ end of ANGLE ;;; brkl_seg (/ dimsc 12.0) ;;; brkl_fzl (/ brkl_seg 6.0) ;;; brkl_fza (/ PI 90.0) ;;; brkl_pt_lst (LIST brkl_ptb) this_path (GETVAR "DWGPREFIX") ) ;_ end of SETQ (IF set_mjrg NIL (LOAD "SET_MJRG" "\nFile SET_MJRG.LSP not loaded! ")) (set_mjrg) (SETQ thisprod (IF prod prod (SETQ prod "VI00")) thiscolor "1" thismodf "BRKL" thisname (STRCASE (STRCAT this_mjrg "-" thisprod thiscolor thismodf) ) ;_ end of STRCASE thisltname "continuous" ) ;_ end of SETQ (SETQ brkl_ang1 (ANGLE brkl_ptb brkl_pte) brkl_ang2 (ANGLE brkl_pte brkl_ptb) lan1 (+ brkl_ang1 (/ PI 2.0) 0.15) lan2 (- brkl_ang1 (- (/ PI 2.0) 0.15)) brkl_len (DISTANCE brkl_ptb brkl_pte) ofin (* dimsc 0.045) offs (* dimsc 0.135) bnum (FIX (/ brkl_len (* 50 ofin))) ) ;_ end of SETQ (IF (> bnum 3) (SETQ bnum 3) ) ;_ end of IF (SETQ count (1+ bnum)) (IF (= count 1) (SETQ len1 (/ brkl_len 2.0)) (SETQ len1 (/ brkl_len count)) ) ;_ end of IF (SETQ bkp1m (POLAR brkl_ptb brkl_ang1 len1) bkp1b (POLAR bkp1m brkl_ang2 ofin) bkp1r (POLAR bkp1m lan1 offs) bkp1l (POLAR bkp1m lan2 offs) bkp1a (POLAR bkp1m brkl_ang1 ofin) bkp2m (POLAR bkp1m brkl_ang1 len1) bkp2b (POLAR bkp2m brkl_ang2 ofin) bkp2r (POLAR bkp2m lan1 offs) bkp2l (POLAR bkp2m lan2 offs) bkp2a (POLAR bkp2m brkl_ang1 ofin) bkp3m (POLAR bkp2m brkl_ang1 len1) bkp3b (POLAR bkp3m brkl_ang2 ofin) bkp3r (POLAR bkp3m lan1 offs) bkp3l (POLAR bkp3m lan2 offs) bkp3a (POLAR bkp3m brkl_ang1 ofin) brkl_ptb (POLAR brkl_ptb brkl_ang2 (* offs 0.75)) brkl_pte (POLAR brkl_pte brkl_ang1 (* offs 0.75)) ) ;_ end of SETQ (IF (> brkl_len (DISTANCE bkp1b bkp1a)) (IF (OR (= bnum 1) (= bnum 0)) (SETQ brkl_pt_lst (LIST brkl_ptb bkp1b bkp1r bkp1l bkp1a brkl_pte) ) ;_ end of SETQ (IF (= bnum 2) (SETQ brkl_pt_lst (LIST brkl_ptb bkp1b bkp1r bkp1l bkp1a bkp2b bkp2r bkp2l bkp2a brkl_pte ) ;_ end of LIST ) ;_ end of SETQ (SETQ brkl_pt_lst (LIST brkl_ptb bkp1b bkp1r bkp1l bkp1a bkp2b bkp2r bkp2l bkp2a bkp3b bkp3r bkp3l bkp3a brkl_pte ) ;_ end of LIST ) ;_ end of SETQ ) ;_ end of IF ) ;_ end of IF (PROGN (SETQ brkl_pt_lst NIL) (ALERT "Distance too short for breakline! ") ) ;_ end of PROGN ) ;_ end of IF (layentmake thisname thiscolor thisltname) (ENTMAKE (LIST (CONS 0 "POLYLINE") (CONS 6 "BYLAYER") (CONS 40 0) (CONS 41 0) (CONS 62 256) (CONS 66 1) (CONS 70 128) (CONS 8 thisname) (CONS 10 (LIST (CAAR brkl_pt_lst) (CADAR brkl_pt_lst))) ) ;_ end of LIST ) ;_ end of ENTMAKE (FOREACH n brkl_pt_lst (ENTMAKE (LIST (CONS 0 "VERTEX") (CONS 6 "BYLAYER") (CONS 40 0) (CONS 41 0) (CONS 62 256) (CONS 8 thisname) (CONS 10 (LIST (CAR n) (CADR n))) ) ;_ end of LIST ) ;_ end of ENTMAKE ) ;_ end of WHILE (ENTMAKE (LIST (CONS 0 "SEQEND"))) ) ;_ end of WHILE (c:rslayr) (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|;