(command "-insert" "P:/CSDG Standards/AutoCAD STD/CSDG Blocks/Stamps/Jim Stamp.dwg" '
(34.4163 17.5196) "" "" "")
; not sure if i need this
(dcl_Project_Load "P:/CSDG AutoCAD Civil/Lisp Routines/Justin/OpenDCL/border_text" T)
(dcl_Form_Show border_text/Form1)
(defun c:border_text
/Form1
/btn_submit#OnClicked
(/)
(setq jobNum
(dcl
-Control
-GetText border_text
/Form1
/tb_jobNum
)) (setq projectName
(dcl
-Control
-GetText border_text
/Form1
/tb_projectName
)) (setq planType
(dcl
-Control
-GetText border_text
/Form1
/tb_planType
)) (setq address
(dcl
-Control
-GetText border_text
/Form1
/tb_address
)) (setq cityCountyState
(dcl
-Control
-GetText border_text
/Form1
/tb_cityCountyState
)) (setq mapNum
(dcl
-Control
-GetText border_text
/Form1
/tb_mapNum
)) (setq parcel
(dcl
-Control
-GetText border_text
/Form1
/tb_parcel
))
(dcl
-Form
-Close border_text
/Form1
)
)