caoyin大哥，帮个忙，块或子块 插入点坐标值

caoyin

问题不是太明白：

假如块A中有子块B和若干图元，

子块B中有子块C和若干图元，

你是想求哪个块插入点，假如 nentsel点中的不是 块B，那如何求啊

caoyin

笨方法:原理很简单，但写出来就会有点烦

(defun c:tt (/ a lst p an pt)
  (if (setq a (nentsel))
    (progn
      (setq lst (mapcar '(lambda (x / y)
                           (setq y (entget x))
                           (list (cdr (assoc 10 y))
                                 (cdr (assoc 50 y))
                           )
                         )
                        (last a);;套嵌块图元名列表
                )
      )
      (setq lst (reverse lst)
            p   (caar lst)
            an  (cadar lst)
            pt  '(0 0 0)
            lst (cdr lst)
      )
      (foreach x lst
         (setq a  (+ an (angle '(0 0 0) (car x)))
               pt (polar pt a (distance '(0 0 0) (car x)))
               an (+ an (cadr x))
         )
      )
      (mapcar '+ pt p)
    )
  )
)

flowerson

本人在弄批量打印图框，但有一两个图框出错。找到原因是插入点用CAD 中 CTRL＋1 看的和用(setq e1 (entget (car (entsel)))) 看的 插入点(10 194.941 397.694 0.0) 有出入！各位高手帮忙！先谢谢了。同样的外部参照在其它的图有正确的。 用5楼程序得到的也是错的。

狂刀无痕

nentselp 取实体，返回表中最后一个是个嵌套表。。。。。。

jxphklibin

狂刀无痕发表于2009-1-23 0:55:00nentselp 取实体，返回表中最后一个是个嵌套表。。。。。。

楼上，你所的返回表中的最后一个是个嵌套表，非也，你说错了，这不是一个嵌套表，是个单层表，标的结构是这样的：

嵌套最内层的图块图元名排在第一个，以此类推，最外一层的图块图元名排在最后一个：

(<嵌套最内层的图块图元名>。。。。。。。。。。。。<最外一层的图块图元名>)

狂刀无痕

呵呵，是我没有表达清楚，我本意是想说表达实体嵌套关系的表，太省略了引起歧义。