[求助]：请高手们帮忙用LISP自动创建标注样式等等

bingtwo

1.创建标注样式
   我是用模型空间出图的,做好了一个A4比例的矩形,在出完一整套图纸下来在模型空间中,由于零件大小不一,要有好多个不同比例的A4矩形,所以在一个图纸中要建有好多不同的标注样式,由于本人LISP水平太差了,只能看懂一点点,请高手们帮小弟做个LISP程序.
本人的思路是:每一个新建的标注样式都以自已以经做好的一个标准的标注样式为基础,对标注的全局比例进行修改,要建新标注式的矩形的对角线/标准矩形的对角线==新建标注样式的标注全局比例/标准的标注样式的标注全局比例(标准矩形的对角张长度是328,全局比例是1.1)
在程序中有三个数据是我们自己手动输入:新矩形的对角线的两个点手动点取(好像有一个已知两点,并可以求出两点的距离),还有一个就是新标注样式的名称(不能直接在标准样式中修改全局比例,这样下一个矩形就没法子做了)