[已解决]如何用lisp批量把块的扩展属性写出到图上

sunqv

要求1：运行命令，先单击块（扯线起点），然后再在图上另一个位置单击（得到扯线的终点），然后再单击一下任意位置（取得插入图框的方向，也就是文字的书写方向）

要求2：插入图框的方向，

2.1

如果从块向左上方扯线，则取方框的右下角为起点插入；

2.2 如果从块向右上方扯线，则取方框的左下角为起点插入；

2.3 如果从块向左下方扯线，则取方框的右上角为起点插入；

24 如果从块向右下方扯线，

则取方框的左上角为起点插入；

yuren008

做个对论坛有益的人。