希望有人能完善这个生成计算书的源码

hdlyt11

这是结构cad里面的东东，运行需要加载库文件，如果不加载就会提示错误: no function definition: INIT_BONUS_ERROR
不知道有没有高人能把这个库函数直接补充到lisp文件里no function definition: INIT_BONUS_ERROR，以省去每次都要加载两个文件。

hdlyt11

这是源码。