[求助]怎么才能分别滤出水平和垂直标注

you_know_who

 我在工作中经常需要处理标注， 尤其是需要区别对待rotate dimension中的水平和垂直标注！

如果有一个命令，输入后便能分别滤出图中rotate dimension中的水平和垂直标注就好了！

那我就能对水平和垂直标注分别进行处理了！

我知道用快速选择(qselect)，可以滤出rotate 类型的标注，但是它不能分别滤出水平和垂直标注．

过滤命令（filter)也做不到

各位大侠能不能写一个程序帮帮我呢？

xshrimp

(setq entlst (entget  (car (entsel))))

(setq dxf13 (cdr (assoc 13 entlst))  dxf14 (cdr (assoc 14 entlst)))

(cond ((= (car  dxf13)  (car  dxf14)) (alert "垂直"))

      ((= (cadr dxf13)  (cadr dxf14)) (alert "水平"))

)

you_know_who

xshrimp 真是好人,我赶快试一下!

如果能用的话，真解决我工作中的大问题了！