[求助]：关于线性标注与对齐标注的DXF问题！求教，请大侠来指点一二！

Dallas_whu

对于线性标注与对齐标注，使用ENTGET得到的数据，如何区分选择对象是线性标注还是对齐标注？
  另外得到的数据中，DXF为100 的对应内容有多个，怎样才能分别得到他们，如"AcDbRotatedDimension"、"AcDbAlignedDimension"等等。我使用下面的程序，每次只能得到"AcDbEntity"。
以上问题请大侠们指点！


[PHP]
(defun c:ddat ()
  (princ "select:")
  (setq dim (ssget '((0 . "dimension"))))
  (setq diment (entget (ssname dim 0)))
  (setq dimtest1 (assoc 100 diment))
  )
[/PHP]

xyp1964

2. [FONT=courier new](defun c:ddat ()
   
3.   (princ "\n选择标注实体 : ")
   
4.   (setq        dim    (ssget '((0 . "dimension")))
   
5.         diment (entget (ssname dim 0))
   
6.   )
   
7.   (while (setq dimtest (assoc 100 diment))
   
8.     (princ "\n")
   
9.     (princ (cdr dimtest))
   
10.     (setq diment (vl-remove dimtest diment))
    
11.   )
    
12.   (princ)
    
13. )[/FONT]

[FONT=courier new](defun c:ddat ()<br />   (princ "\n选择标注实体 : ")<br />   (setq        dim    (ssget '((0 . "dimension")))<br />         diment (entget (ssname dim 0))<br />   )<br />   (while (setq dimtest (assoc 100 diment))<br />     (princ "\n")<br />     (princ (cdr dimtest))<br />     (setq diment (vl-remove dimtest diment))<br />   )<br />   (princ)<br /> )[/FONT]