[LISP]点取多义线,将起属性输入属性块

raobinhsh

1 做一个属性块，属性为绿地地块的编号（1，2，3，4，。。。。。。）和绿地面积，其中编号属性为可见，绿地面积属性为不可见

2 运行程序

3 点取封闭的PL线，提取其面积作为绿地属性写入此带属性图块

4 若此命令是多次运行，将前次运行中属性块的编号加1作为此次编号，并由设计人员确认，若不确认，则由设计人员输入编号

5 其他要求：

A 用LISP语言

B 属性块特征为编号外加上一个圆圈，最好在单独的图层里面