怎样取得"DIMENSION"的子图元?

Andyhon

试试这个法子:

选取物件: ((0 . "DIMENSION") (5 . "8A") (100 . "AcDbEntity") (67 . 0) (8 . "DIM") (100 . "AcDbDimension") (2 . "*D1") (10 19.0 23.0 0.0) (11 9.5 25.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "STANDARD") (100 . "AcDbAlignedDimension") (13 0.0 0.0 0.0) (14 19.0 0.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))

指令: (setq diment (car (entsel)))

选取物件: <图元名称: 3130710>

指令: (setq elst (entget diment '("ACAD")))
((-1 . <图元名称: 3130710>) (0 . "DIMENSION") (5 . "8A") (100 . "AcDbEntity") (67 . 0) (8 . "DIM") (100 . "AcDbDimension") (2 . "*D1") (10 19.0 23.0 0.0) (11 9.5 25.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "STANDARD") (100 . "AcDbAlignedDimension") (13 0.0 0.0 0.0) (14 19.0 0.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 140) (1040 . 0.1) (1070 . 145) (1040 . 1.0) (1070 . 74) (1070 . 0) (1070 . 172) (1070 . 1) (1070 . 174) (1070 . 1) (1070 . 73) (1070 . 0) (1070 . 272) (1070 . 3) (1070 . 40) (1040 . 20.0) (1070 . 147) (1040 . 0.08) (1070 . 287) (1070 . 5) (1070 . 42) (1040 . 0.08) (1070 . 44) (1040 . 0.035) (1070 . 43) (1040 . 0.0) (1070 . 46) (1040 . 0.25) (1070 . 271) (1070 . 3) (1070 . 178) (1070 . 256) (1070 . 177) (1070 . 256) (1070 . 176) (1070 . 256) (1070 . 141) (1040 . 0.03) (1070 . 41) (1040 . 0.07) (1002 . "}"))))

Ref:  http://www.autodesk.com/techpubs/autocad/acad2000/dxf/dimension_style_overrides_dxf_06.htm

lazybug

谢谢诸位高手对本帖子的关注，本问题已经解决。

其实很简单，应该找的不是"DIMENSION"的子图元，而是其组码2中的块的子图元。使用块的遍历的程序就可以了，只是我一直没发现。

;关于块的遍历
(defun c:try ()
    (setq ent (car (entsel "\n选择一个块")))
    (setq blk (cdr (assoc 2 (entget ent))))
    (setq e1 (tblsearch "BLOCK" blk))
    (princ "\n")
    (princ e1)
    (setq e1 (cdr (assoc -2 e1)))
    (setq en_data (entget e1))   
    (princ "\n")
    (princ en_data)
    (while (setq e1 (entnext e1))
 (setq en_data (entget e1))
 (princ "\n")
 (princ en_data)
    )
    (princ)
)

 

wandong

R14中用(nentsel)及(entnext)函数可以找到