[求助]选择一个标注，如何判断其是线性标注还是直径标注？谢谢

clh521

选择一个标注，如何判断其是线性标注还是直径标注？谢谢

ZZXXQQ

……
(setq ss (ssget '((0 . "DIMENSION"))))
(setq i 0)
(repeat (sslength ss)
 (setq ent (entget(ssname ss i)))
 (if (= (cdr(assoc 100 (reverse ent))) "AcDbDiametricDimension")
  (princ "\n直径标注。")
  (princ "\n非直径标注。")
 )
 (setq i (1+ i))
)
……