[求助]：如何获得多重嵌套块最内层块的插入点？

LADESIGNER

如何获得多重嵌套块最内层块的插入点？限AUTOLISP。

aeo

(command "explode")
炸到有那个块为止.

如果从块表开始查，恐怕要写一大堆代码了.

舟自横

(VLA-INVOKE OBJ 'EXPLODE)
中的元素

LADESIGNER

最初由 aeo 发布
[B](command "explode")
炸到有那个块为止.

如果从块表开始查，恐怕要写一大堆代码了. [/B]

我说的是编程.以前写了一个,最近才发现不行.可能是从OCS到UCS的坐标转换的问题.

狂刀

最好是就程序来讨论

LADESIGNER

以下是我获取嵌套块的插入点的有问题的子程序：


;;;获得块插入点，考虑了嵌套块情况;
;;;---------------------------------------------------------------
(DEFUN GETIPT (ENNAME / BLKNAME IPT N SUB SUBLIST)
  (SETQ BLKNAME (GETDXF ENNAME 2))
  (SETQ IPT (GETDXF ENNAME 10))
  (SETQ N 0)
  (IF (NULL (GETDXF ENNAME 66))
    (PROGN
      (WHILE BLKNAME
        (PROGN
          (SETQ N (1+ N))
          (SETQ SUB (TBLSEARCH "block" BLKNAME))
          (SETQ SUBLIST (ENTGET (CDR (ASSOC -2 SUB))))
          (IF (AND (EQUAL (CDR (ASSOC 0 SUBLIST)) "INSERT")
                   (/= (SUBSTR (CDR (ASSOC 2 SUBLIST)) 1 1) "*")
              )
            (PROGN
              (SETQ BLKNAME (CDR (ASSOC 2 SUBLIST)))
              (SETQ IPT
                     (LIST (+ (CAR (CDR (ASSOC 10 SUBLIST))) (CAR IPT))
                           (+ (CADR (CDR (ASSOC 10 SUBLIST))) (CADR IPT))
                     )
              )
            )
            (SETQ BLKNAME NIL)
          )
        )
      )
    )
  )
  IPT
)

狂刀

先说说有什么问题

eachy

先学学OCS、ECS、WCS吧

LADESIGNER

问题是得到的不是最内层块的插入点。

狂刀

看看8楼的话

aeo

最初由 LADESIGNER 发布
[B]以下是我获取嵌套块的插入点的有问题的子程序：


;;;获得块插入点，考虑了嵌套块情况;
;;;---------------------------------------------------------------
(DEFUN GETIPT (ENNAME / BLKNAME IPT N SUB SUBL... [/B]

;;blocktable
先从块表定义里找块的定义点p1
块表定义里的你的子块的点p2
那么相对来说: 为 p2 - p1 = p0

;;insert
插入到图中后,插入点p3
如果是x y z都为1,方向为0 --> 这时为 p3 + p0

如果x y z不是0(先假定方向为0)
那么应该为：(list (* x(car p0))(* y(cadr p0)(* z(caddr p0)) + p3

再把这一点饶p3转过你的块的角度就是最后的点.

aeo

忘记了一点：如果块定义里的子块还套在块里，
那么先把它相对于它的上层块，转化出来，方法同上。
一直到最外面的块定义为止.

LADESIGNER

慢慢消化吧，有点看不懂。