取出嵌套块中文字的图元及包围盒

dyjwyqz5221

(get_ename_pts e str)
函数功能：取出块中包含文字的图元及包围盒。
可用于嵌套块
其中：
        e---insert块
        str---文字包含的内容。
(defun get_ename_pts(e str / e1 mat pts)
        (defun get_e1 (e)
                (car
                        (xdrx-block-getentities
                                t
                                (cadr (xdrx-getpropertyvalue e "blocktablerecord"));;;取出块的对象名
                                (list
                                        '(0 . "*text")
                                        (cons 1  (strcat "*" str "*"))
                                );;;list
                        );;;xdrx
                );;;car
        );;;defun
        (defun get_mat (e / lst-blk)
                (if (not (vl-position e1 (xdrx-getpropertyvalue e "entities")))
                        (progn
                                (if (setq lst-blk (xdrx-block-getentities (cadr (xdrx-getpropertyvalue e "blocktablerecord")) '((0 . "insert"))))
                                        (vl-some
                                                '(lambda(x)
                                                        (if (get_e1 x)
                                                                (progn
                                                                        (setq mat (cons (xdrx-getpropertyvalue x "BlockTransform") mat))
                                                                        (get_mat x)
                                                                );;;progn
                                                        );;;if
                                                );;;lambda
                                                lst-blk
                                        );;;vl
                                );;;if
                        );;;progn
                );;;if
                mat
        );;;;defun
        (setq e1 (get_e1 e))
        (if e1
                (setq mat (list (xdrx-getpropertyvalue e "BlockTransform"))
                         mat (apply 'xdrx-matrix-product (reverse (get_mat e)))
                        pts (xdrx-points-transform (xdrx-entity-box e1) mat)
                );;;;setq
        );;;if
        (list e1 pts)
);;;defun

LXH刚开始

感谢分享，最近网论坛时不时无法打开。

qxlonmsn

十分感谢分享  论坛就需要你们这样无私奉献的人  才会有人气