Title Block LISP

[Anonymous]

Its been a long time since i messed with LISP and need some help with what i hope is a very basic routine. I need to create a LISP that will insert a title block, to keep it simple ive decided that it will insert it at the current dimscale. I've also reset the UCS to world, changed the current layer to "O" and i'd like to reset the LIMITS but thats not very important at this point.

ive tested it in pieces by cutting and pasting into the command line.

(defun BW-TBLK()
(setq s ( getvar "DIMSCALE")) ; works
(command "UCS" "") ; works
(command "-layer" "s" "0" "") ; works
(command "-limits" "" (* !s -.25 * !s -.25)(* !s 16.5 !s 10.5)) ; not working at all
(command "-insert" S:\03-Standards\03 - CAD Standards\Title Blocks\bw-tblk.dwg) ; works in pieces

Thanks

jon

[paullimapa]

Try my free DDSetup (Dwg Setup) app from Autodesk Exchange.  It's open code so you can modify it any way you like.

Area Object Link | Attribute Modifier | Dwg Setup | Feet-Inch Calculator | Layer Apps | List on Steroids | VP Zoom Scales
Exchange App Store