大侠，救命~！

liaobadadi

我知道一个块的联合属性列表，用ssget 获得的，但是我在表里面找不到这个块当前的坐标值，如何解决噢，谢谢了，（用entsel  可以获得，但是对象不允许我一个个的选）。

luowy

nentsel？

liu_kunlun

entsel只能选到insert实体，其块名在第2组。

用(tblsearch "block" (cdr (assoc 2 (entget (car (entsel))))))

可得到块的组表：例如

((0 . "BLOCK") (2 . "*U1") (70 . 1) (10 489.159 365.93 0.0) (-2 .
<图元名: 7ef54ea0>))

其块表后面的实体名，即为块内的第一个实体

liaobadadi

依侠客之言 还是不行啊 ，组表如下：

((0 . "BLOCK") (2 . "c0") (70 . 0) (4 . "") (10 0.0 0.0 0.0) (-2 . <图元名:
7efb2e58>))

对-2 项用ENTGETG获得如下：

((-1 . <图元名: 7efb2e58>) (0 . "CIRCLE") (330 . <图元名: 7efb2e50>) (5 . "1F8B")
(100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 21) (100 . "AcDbCircle") (10 0.0
0.0 0.0) (40 . 1.0) (210 0.0 0.0 1.0))

还是没找到当前块的坐标 啊》  为啥呢？

liaobadadi

自己先 顶顶！

liu_kunlun

第一个组码的10组即为块定义的参照点坐标。而块的插入点坐标在inert实体中，即(car (entsel))得到的实体，10组。

第二个组码的10组即为该块中园的圆心坐标，但图形中圆心并不一定在此，需要将块内坐标转换到块外。

多参考帮助中dxf组码的内容

不太清楚你所说“当前块的坐标”到底指什么？

liaobadadi

我说的当前块的坐标指，块的插入坐标，依大侠之言，意思是，属性列表中找不到块的坐标，只找得到块中实体的坐标，需要把这个坐标再自己转换出来，转成块现在的插入坐标值？？还是不懂 菜鸟上传了一个圈的块，大侠不吝赐教，写个能读取这个块坐标的程序，谢了~

ZZXXQQ

;读块的插入点坐标 明经 ZZXXQQ 2009.9.10
(defun c:tt ()
 (if (and (setq s1 (entsel "\n选择图块 :"))
          (setq ent (entget(car s1)))
          (= (cdr(assoc 0 ent)) "INSERT")) (progn
  (princ "\n")
  (princ (cdr (assoc 10 ent)))
 ))
)

liaobadadi

我不能用ENTSEL ，我只知道图元名，SSNAME 获得的~

liaobadadi

继续顶上去，为了一个答案~