菜鸟请教！

laoguiqi

我想判断一个图元是普通的块还是多重插入块，
(cdr (assoc 100 (entget (car (entsel)))))，返回的是“AcDbEntity”，我想得到“AcDbBlockReference”，改怎么办？

选择对象: ((-1 . <图元名: 7d99d090>) (0 . "INSERT") (330 . <图元名: 7d97dcf8>)
(5 . "C2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbBlockReference") (2 . "A$C63731F84") (10 72.6454 42.8398 0.0) (41 . 1.0)
(42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210
0.0 0.0 1.0))

Andyhon

Try
(cdr (assoc 100 (reverse (entget (car (entsel))))))

laoguiqi

Andyhon 发表于 2012-4-9 12:49
Try
(cdr (assoc 100 (reverse (entget (car (entsel))))))

谢谢聪明的大哥，你的办法可行！

Gu_xl

判断70组码值是否大于0，大于0为多重引用块！
(and (setq el  (car (entsel "\n选择图元:")))
        (= "INSERT" (cdr (assoc 0 (setq el (entget el)))))
       (> (cdr (assoc 70 el)) 0)
)