本帖最后由 阿然 于 2012-11-21 00:41 编辑
(图片比较大，演示比较长，等不及的可以下载了图片来看）一直以来对lisp的兴趣都很大，但是一直没有好好学习lisp，总是很羡慕gu版龙版这样的大虾，这两个月专心学习了lisp，编写了个钢筋标注并生成数量表的程序，向大伙汇报学习情况，请大家多多指点。（另本人桥梁专业，标注以及表格型式按照日常工作习惯来弄） 一、主要功能：
CAD使用2004版本，字体设置使用FSDB_E.SHX和hztxt.shx，字体比例0.75，使用这个字体，^可以显示R235的符号，&可以显示HRB335的符号，*号也可以正确显示为×号。 1.标注钢筋，输入钢筋编号，钢筋直径、根数、长度、会生成默认型式的标注，标注的大小按照dimscale的系统参数确定。
1)对于标注钢筋不同的时候有不同的标注样式，大致模式固定，有特殊需要，可以对标注的几何模样进行正常的cad命令修改。
2）对于钢筋的编号，删除和拷贝会自动排序钢筋，在标注时输入的编号小于给出的默认值时，自动将编号插入输入的编号，其余的编号均后移。
3）对于钢筋的直径，默认>=10的都为HRB335钢筋，若有需要，可以直接修改钢筋标注的文字，数量表统计会自动调整，若钢筋直径非标称尺寸或输入格式不对，会自动显示#ERR。
4）对于钢筋长度，如果输入文本不是数字，也会自动显示为#ERR。
2.生成钢筋数量统计表。
1)对于图上已经标注的钢筋，修改钢筋的直径，根数和长度的时候会自动修改钢筋表格。
2)如果修改的钢筋的编号，在不增加钢筋编号的情况下，表格会自动修改，如果要增加新的钢筋或者删除了原有的钢筋，目前还是只能先删除了钢筋表，再进行添加和删除工作后，重新生成一个。
3)实在不行，可以删除钢筋表，重新生成钢筋表。
二、很重要的不足：
1. 目前还不太理解反应器里面undo的情况，所以暂时没有支持undo，而且也不知道undo之后会出现什么情况。 2. 目前不敢使用永久反应器，所以现在的都是临时反应器，等程序能够完善了再改成永久的吧。 三、参考文献：
四、接下来打算：
支持undo，完善钢筋表处理，优化代码，请大家抓抓虫（尤其是各种情况修改标注），有什么bug或者好的建议请联系我 Email:346853401@qq.com。 五、结束语：
本人学习lisp时间不长，而且一直以来按照gpath的思路进行学习，对很多函数理解和使用的基本功都不太扎实，也希望各位高手能够指导，谢谢大家。
等程序修改完善后放出源码，希望下个月可以搞定。
| 
[复制链接]
发表于 2012-11-21 00:22:50
置顶卡
变色卡
显身卡
楼主
