It's strange.
I've tried the code in your solution, and tried one more time after your reply
(ssget "_A" '
((100 .
"AcDbAlignedDimension") (-4 .
"<NOT") (100 .
"AcDbRotatedDimension") (-4 .
"NOT>")))
will select nothing
It's really strange.I give up type judge during select, I plan to use member to judge if (100 . "AcDbRotatedDimension") in the group code.
I guess it maybe caused by not only 1 (100 . "**")
((-1 . <图元名: 7ffffbb1030>)
(0 . "DIMENSION")
(330 . <图元名: 7ffffb0b820>)
(5 . "12620B")
(100 . "AcDbEntity")(67 . 0)
(410 . "Model")
(8 . "S_DETL_REIN")
(100 . "AcDbDimension")(280 . 0) (2 . "*D442")
(10 45536.0 62515.1 0.0)
(11 45258.5 62647.4 0.0)
(12 0.0 0.0 0.0)
(70 . 33)
(1 . "")
(71 . 5)
(72 . 1)
(41 . 1.0)
(42 . 572.279)
(73 . 0)
(74 . 0)
(75 . 0)
(52 . 0.0)
(53 . 0.0)
(54 . 0.0)
(51 . 0.0)
(210 0.0 0.0 1.0)
(3 . "TSSD_50_50")
(100 . "AcDbAlignedDimension")(13 44969.9 62622.6 0.0)
(14 45540.7 62582.4 0.0)
(15 0.0 0.0 0.0)
(16 0.0 0.0 0.0)
(40 . 0.0)
(50 . 0.0))
Thank you for your reply
I've just update from 2006 to 2012,and found lots new thing in alisp, I need some time ,I think.