钢筋快速录入

这是我根据记忆中以前看到过的一个类似的东西自己编写的一个小lisp程序，只是根据自己工作习惯而做，所以一定有很多的不足。
使用方法：命令为gjks,询问梁宽仅为了计算箍筋的支数，>300时4支箍，<300时2支箍，=0，则不考虑支数（用来输入楼板的钢筋），
输入钢筋字符的例子： (假定梁宽为350）
例子1: 4.25 (等同于4%%13125）
例子2: 8.100/200 (等同于 %%1308@100/200（4） 注：当钢筋直径为12时会询问钢筋的级别）
例子3: 2.18* (等同于2%%13118+(2%%13112), *代表 +（%%13112）
例子4: 2.25+3.22 (等同于3%%13125+3%%13122）
例子5: 4.25-8.100/200-2.18*-2.25+3.22 (大家自己实验一下看吧）