Curly Bracket

M-dub · 发表于 2008-9-18 14:34:17

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 · 发表于 2008-9-18 14:38:53

Here you go!
LEFT {
RIGHT }
What in the hell is a curly bracket?!?

deegeecees · 发表于 2008-9-18 14:39:48

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

M-dub · 发表于 2008-9-18 14:40:56

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 · 发表于 2008-9-18 14:41:09

I don't see why not.

deegeecees · 发表于 2008-9-18 14:53:54

I removed some functionality with scaling based on a titleblock, and some layer settings. Other than that here ya go.
[code];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);