(setq p2 (polar p1 (- ang (dtr 70.0)) lg)) 70° down-right (length = lg) (setq p1 (polar pm ang (/ gap -2.0) )) half the gap to the left from the midpoint (setq lg (* gap (/ 0.25 (sin (dtr 20))) )) length of the small diagonal piece of line (defun bl (gap ang ps pe ext / pm p1 p2 p3 p4) ext: distance to extend the aligned lines, from ps or pe gap: the gap between the aligned lines, interrupted by the diagonal lines (I attached a dwg containing only the blue polylines, for testing) Command MBL (for Make Break Lines, see bottom function) Set as current layer the layer of the breaklines Icon with transparent background attached. Should get you started, scaled to current Annotation Scale at picked point. (command '_break' ss p1 p5 'pline' p1 p2 p3 p4 p5 '') P4 (polar p3 (+ (/ pi 3) (- ang pi)) InsScale) 0.) (vlax-curve-getFirstDeriv obj (vlax-curve-getParamAtPoint obj p3))) Obj (vlax-ename->vla-object (ssname ss 0))Īng (angle '(0. ((= 1 (getvar 'TILEMODE'))(setq InsScale (/ 0.1 (getvar 'cannoscalevalue)))) (if (not (wcmatch (strcase msg) '*BREAK,*CANCEL*,*EXIT*')) (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars) (setq vars (mapcar '(lambda (x) (cons x (getvar x))) '('osmode' 'nomutt'))) (defun c:BrkLnSym (/ *error* p1 p2 p3 p4 p5) ^C^C^P(or C:BrkLnSym (load 'BrkLnSym.lsp')) BrkLnSym Replacement for BREAKLINE (Express Tool) that works in any direction and scales to Annotation Scale.īreaks lines and inserts break-line symbol |=ĭraw Line with Breakline Symbol to Dimscale Updated 6/2018

Break line in bricscad