CAD 通过选矩形而选择矩形框中的文字内容

小小的人

如图所示 矩形是复制出来的  都一样   怎么做到选择矩形就能选中矩形内的文字   求大神写个程序  万分感谢

王鹏_pBZlo

(defun seltxt(rect / par dxf10 lst)
        (setq par (entget rect) lst nil)
        (while (setq dxf10 (assoc 10 par))
                (setq par (cdr (member dxf10 par)))
                (setq lst (append lst (list (cdr dxf10))))
        ) (ssget "wp" lst (list (cons 0 "*TEXT")))
)

(seltxt ent) 返回矩形ent内的文字对象

dyjwyqz5221

给你一个api的
(defun c:seltxt (/ ss ss1)
        (if (setq ss (ssget '((0 . "lwpolyline"))))
                (progn
                        (setq ss1 (ssadd))
                        (xdrx_pickset_union ss1 ss)
                        (mapcar
                                '(lambda(x)
                                        (xdrx_pickset_union
                                                ss1
                                                (ssget "wp" (xdrx_entity_box x) '((0 . "text")))
                                        )
                                )
                                (xdrx_pickset->ents ss)
                        )
                        (xdrx_pickset_redraw ss1)
                )
        )
)