Topic: Curly Bracket

[M-dub]

Does anyone have a dynamic block of a curly bracket that you can scale or stretch?

Just curious as to what's out there already.  (Just getting into dynamic blocks now)

[Matt__W]

Here you go!

LEFT   {

RIGHT  }


What in the hell is a curly bracket?!?   

[deegeecees]

I've got a Lisp that'll draw curly brackets if that helps. Should I post it up?

[M-dub]

Here you go!

LEFT   {

RIGHT  }


What in the hell is a curly bracket?!?   

That's it.  I don't know the proper name for them.


Never mind.  I don't think the result I'm after would be easy to accomplish.

[M-dub]

I've got a Lisp that'll draw curly brackets if that helps. Should I post it up?

I don't see why not. 

[M-dub]

What in the hell is a curly bracket?!?   

[deegeecees]

I removed some functionality with scaling based on a titleblock, and some layer settings. Other than that here ya go.

Code: [Select]

;bracket.lsp
;Created for G.E.I.S. by P.R. Donnelly
;Date: Sept of 2002
;Description: Creates brackets for text and such...
;Edit: 09-17-08 - Removed titleblock scaling for M-dub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;      ___ ;;;;;;;;;;;;;;;;;;
;     (___)_ ;;;;;;;;;;;;;;;;;;
;     |  "\ ;;;;;;;;;;;;;;;;;;
;    (,   .)   Pat da Rat ;;;;;;;;;;;;;;;;;;
;     |  __| ;;;;;;;;;;;;;;;;;;
;     |\___| ;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun dtr (A)
   (* pi (/ A 180.0)))

(defun c:bracket2 ()
(setq oldplinew (getvar "plinewid"))
(setvar "plinewid" 0)
(setq oldlay (getvar "clayer"))

(setq wutscale 0.125);<------------------------------------------Change to your liking

(setq pnt1 (getpoint "\nSelect point for bottom of bracket:"))
(setq pnt1x (car pnt1))
(setq pnt1y (cdr pnt1))
(setq pnt1y (car pnt1y))
(setq pnt1x2str (rtos pnt1x))
(setq pnt1y2str (rtos pnt1y))
(setq pnt1xy (strcat pnt1x2str " " pnt1y2str))
;(alert pnt1xy);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;debugger

(setq pnt2 (getpoint pnt1 "\nSelect point for top of bracket:"))
(setq ang1 (angle pnt1 pnt2))
(setq pnt2x (car pnt2))
(setq pnt2y (cdr pnt2))
(setq pnt2y (car pnt2y))
(setq pnt2x2str (rtos pnt2x))
(setq pnt2y2str (rtos pnt2y))
(setq pnt2xy (strcat pnt2x2str " " pnt2y2str))
;(alert pnt2xy);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;debugger

(setq pnt3 (polar pnt1 (angle pnt1 pnt2) (/ (distance pnt1 pnt2) 2)))
(setq pnt4 (polar pnt3 (+ (dtr 180) ang1) wutscale))
(setq pnt5 (polar pnt3 ang1 wutscale))
(setq pnt6 (polar pnt3 (+ (dtr 270) ang1) wutscale))
(setq pnt7 (polar pnt1 (+ (dtr 135) ang1) wutscale))
(setq pnt8 (polar pnt2 (+ (dtr 45) ang1) wutscale))
(command "pline" pnt7 pnt1 pnt4 pnt6 pnt5 pnt2 pnt8 "")
(setvar "clayer" oldlay)
(setvar "plinewid" oldplinew)
(princ)



)

[M-dub]

Thanks Deeg!

[deegeecees]

Using it for One-Line's? That's what I created it for.

[M-dub]

Using it for One-Line's? That's what I created it for.

Not right now, but yes, we use them for that as well.

[deegeecees]

Cool. Glad to be of service.

[jnieman]

I never have to scale them much... I use them to call our ANSI/UL 263 FIRE RATED ASSEMBLIES in typical wall sections, building sections and crap.

[M-dub]

Well, I'm still going to make an attempt at creating a dynamic block for this.  I'll post the restults if there are any. 

[Spike Wilbury]

{ HTH  - A2007 }

[M-dub]

Let me explain what I'm trying to do.

I want to stretch both 'wings' of the bracket equally.  I think I'm getting close with the block editor, but as I mentioned above, I'm just NOW getting into dynamic blocks and the block editor.  Getting there, I think... er hope.