[求助]：关于求交点的这个函数，我想得到自定义的返回值

lzy9788

我想运行下面这个函数后得到自定义的返回值，不知道怎样改程序,即这样:(setq ints (lzy_ints ss1));ss1为已求得的选择集。
现在用(setq ints (lzy_ints ss1))得不到返回值，而还是返回在pts变量中。
(defun LZY_ints (SS / SSL  ;length of SS
;    PTS   ;returning list
     AOBJ1  ;Object 1
     AOBJ2  ;Object 2
     N1     ;Loop counter
     N2     ;Loop counter
     IPTS   ;intersects
     A N NN HOLDOSMODE
    )
(vl-load-com)
(setq pts nil)
  (setq N1  0    ;index for outer loop
        SSL (sslength SS)
  )     ; Outer loop, first through second to last
  (while (< N1 (1- SSL))  ; Get object 1, convert to VLA object type
    (setq AOBJ1 (ssname SS N1)
          AOBJ1 (vlax-ename->vla-object AOBJ1)
          N2 (1+ N1)
    )     ;index for inner loop
;;; Inner loop, go through remaining objects
    (while (< N2 SSL)   ; Get object 2, convert to VLA object
      (setq AOBJ2 (ssname SS N2)
            AOBJ2 (vlax-ename->vla-object AOBJ2)
;;;Find intersections of Objects
            IPTS  (vla-intersectwith
                    AOBJ1
                    AOBJ2
                    0
                   )   ; variant result
            IPTS  (vlax-variant-value IPTS)
      )
;;;Variant array has values?
      (if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn    ;array holds values, convert it
   (setq IPTS   ;to a list.
   (vlax-safearray->list IPTS)
   )
;;;Loop through list constructing points
   (while (> (length IPTS) 0)
     (setq PTS  (cons (list (car IPTS)
       (cadr IPTS)
       (caddr IPTS)
        )
        PTS
         )
    IPTS (cdddr IPTS)
     )
   )
)
      )
      (setq N2 (1+ N2))
    )     ;inner loop end
    (setq N1 (1+ N1))
  )     ;outer loop end

);end defun

梦断江南

没仔细看程序，按你的说法，既然在pts变量中。那么
（defun
......
);outer loop end
pts
);end defun
不就可以了？

lzy9788

哈哈~，多多斑竹，搞定了，我不怎么会自定义函数，多谢斑竹指教。