[编程交流] 它如何检查是否存在

;; Finds all Intersections between obj1 & obj2
;; Args: obj1,obj2
;; VLA-Objects with Intersectwith method available
;; Returns: List of Intersections (or nil)
(defun GetIntersections (obj1 obj2 / GroupByNum)
 ;; Lee Mac  ~  16.04.10
 
 (defun GroupByNum (lst num / rtn) (setq rtn nil)
 
   (if lst
     (cons (reverse
             (repeat num
               (progn
                 (setq rtn (cons (car lst) rtn)
                       lst (cdr lst))
                 rtn)))
           (GroupByNum lst num))))
 (GroupByNum (vlax-invoke obj1 'IntersectWith obj2 acExtendNone) 3))

(defun c:test (/ e1 e2)
 (vl-load-com)
 (if (apply (function and)
            (mapcar
              (function
                (lambda (str sym)
                  (set sym (car (entsel str)))))
              '("\nSelect First Object: " "\nSelect Second Object: ") '(e1 e2)))
   (print (apply (function GetIntersections)
                 (mapcar (function vlax-ename->vla-object) (list e1 e2)))))
 (princ))

(defun Get_Inters (ss / GroupByNum i j obj1 obj2 iLst)
 ;; Lee Mac  ~  19.01.10
 (defun GroupByNum (lst num / rtn) (setq rtn nil)
 
   (if lst
     (cons (reverse
             (repeat num
               (progn
                 (setq rtn (cons (car lst) rtn)
                       lst (cdr lst))
                 rtn)))
           (GroupByNum lst num))))
 (setq i (sslength ss))
 (while (not (minusp (setq j (1- i) i (1- i))))
   (setq obj1 (vlax-ename->vla-object (ssname ss i)))
   (while (not (minusp (setq j (1- j))))
     (setq obj2 (vlax-ename->vla-object (ssname ss j)))
     (setq iLst (append iLst
                  (GroupByNUm
                    (vlax-invoke obj1 'IntersectWith obj2 acExtendNone) 3)))))
 iLst)

(defun c:test (/ ss x)
 (vl-load-com)
 (if (setq ss (ssget))
   (foreach x (Get_Inters ss)
     (command "_.point" "_non" x)))
 (princ))