如何通过块内一点得到该块所有组成图元名？

自贡黄明儒

学习学习!!!!

shiyan001

学习学习!!!!,看看G版的里面有没有我需要的。

扶风

这个楼中楼还需回复才能看，也就是需要才回复了

liuhaixin88

进来看看

masterlong

今晚上失眠了

(defun v13_getalltkbox( / tkbss x box i )
        (setq tkbss (ssget "x" '((0 . "insert")(2 . "QGY_V13_TK-*")(-4 . "!=")(62 . 250))))                ;;图块名称根据需要修改
        (setq tkbss (ss2list tkbss))
        (setq *alltkbox* '())
        (foreach x tkbss
                (setq box (entbox x))
                (setq *alltkbox* (cons (list box x) *alltkbox*))
        )
        *alltkbox*        ;;全局参数
)

(defun v13_po_seltk_1_new( thepo / temp po pa pb bbox btkb loop )
        (if (setq btkb Nil
                                 po (if thepo
                                                 thepo
                                                 (getpoint "\n 请在目标图框内部点击...")
                                          )
                 )
                (progn
                        (setq loop T i (length *alltkbox*))
                        (while loop
                                (setq bbox (car (nth (setq i (1- i)) *alltkbox*)))
                                (setq pa (car bbox) pb (cadr bbox))
                                (if (and (<= (car  pa) (car  po) (car  pb))
                                                        (<= (cadr pa) (cadr po) (cadr pb))
                                         )
                                         (setq loop (vla-ZoomScaled (vlax-get-acad-object) 1.1 acZoomScaledRelative)
                                                          loop (vla-ZoomPrevious (vlax-get-acad-object))
                                                          loop Nil
                                                          btkb (cadr (nth i *alltkbox*))
                                         )
                                         (if (= i 0) (setq loop Nil))
                                )
                        )
                        btkb
                )
        )
        btkb
)

;;选择集转为图元列表
(defun ss2list( ss )
        (if (= 'PICKSET (type ss))
                (reverse (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss))))
        )
)

;;单个图元包围盒
(defun entbox( ent / ll ur )
        (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
        (mapcar 'vlax-safearray->list (list ll ur))
)



;;使用方法
;|
(v13_getalltkbox)
(setq seltkb (v13_po_seltk_1_new nil))
|;

chenjian2159

看看，谢谢

zmx6189

学习一下如何

hnfsf

看G版大作，认真学习。。。

chenshulu

单击一个图框块里面一点，得到此图框的边界。