Author Topic: Curly Bracket  (Read 18514 times)

0 Members and 1 Guest are viewing this topic.

M-dub

  • Guest
Curly Bracket
« on: September 18, 2008, 02:34:17 PM »
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

  • Seagull
  • Posts: 12955
  • I like my water diluted.
Re: Curly Bracket
« Reply #1 on: September 18, 2008, 02:38:53 PM »
Here you go!

LEFT   {

RIGHT  }


What in the hell is a curly bracket?!?   :?
Autodesk Expert Elite
Revit Subject Matter Expert (SME)
Owner/FAA sUAS Pilot @ http://skyviz.io

deegeecees

  • Guest
Re: Curly Bracket
« Reply #2 on: September 18, 2008, 02:39:48 PM »
I've got a Lisp that'll draw curly brackets if that helps. Should I post it up?

M-dub

  • Guest
Re: Curly Bracket
« Reply #3 on: September 18, 2008, 02:40:56 PM »
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

  • Guest
Re: Curly Bracket
« Reply #4 on: September 18, 2008, 02:41:09 PM »
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

  • Guest
Re: Curly Bracket
« Reply #5 on: September 18, 2008, 02:42:41 PM »
What in the hell is a curly bracket?!?   :?

deegeecees

  • Guest
Re: Curly Bracket
« Reply #6 on: September 18, 2008, 02:53:54 PM »
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

  • Guest
Re: Curly Bracket
« Reply #7 on: September 18, 2008, 02:59:58 PM »
Thanks Deeg!

deegeecees

  • Guest
Re: Curly Bracket
« Reply #8 on: September 18, 2008, 03:04:42 PM »
Using it for One-Line's? That's what I created it for.

M-dub

  • Guest
Re: Curly Bracket
« Reply #9 on: September 18, 2008, 03:13:23 PM »
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

  • Guest
Re: Curly Bracket
« Reply #10 on: September 18, 2008, 03:19:18 PM »
Cool. Glad to be of service.

jnieman

  • Guest
Re: Curly Bracket
« Reply #11 on: September 18, 2008, 03:27:00 PM »
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

  • Guest
Re: Curly Bracket
« Reply #12 on: September 18, 2008, 03:37:13 PM »
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

  • Guest
Re: Curly Bracket
« Reply #13 on: September 18, 2008, 03:49:31 PM »
{ HTH  - A2007 }

M-dub

  • Guest
Re: Curly Bracket
« Reply #14 on: September 18, 2008, 03:54:17 PM »
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.