[编程交流] 循环创建的对象列表

;;-----------------=={ Group by Number }==--------------------;;
;;                                                            ;;
;;  Groups a list into a list of lists, each of length 'n'    ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  l - List to process                                       ;;
;;  n - Number of elements by which to group the list         ;;
;;------------------------------------------------------------;;
;;  Returns:  List of lists, each of length 'n'               ;;
;;------------------------------------------------------------;;
 (defun LM:GroupByNum (l n / r)
   (if        l
     (cons
(reverse (repeat n
           (setq r (cons (car l) r)
                 l (cdr l)
           )
           r
         )
)
(LM:GroupByNum l n)
     )
   )
 )
;;-----------------=={ Get Intersections }==------------------;;
;;                                                            ;;
;;  Returns a list of all points of intersection between      ;;
;;  two objects                                               ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  obj1, obj2 - VLA-Objects                                  ;;
;;------------------------------------------------------------;;
;;  Returns:  List of intersection points, or nil             ;;
;;------------------------------------------------------------;;
 (defun LM:GetIntersections (obj1 obj2)
   (LM:GroupByNum
     (vlax-invoke obj1 'IntersectWith obj2 acExtendnone)
     3
   )
 )
(setq Kpr (car (entsel "\nSelect Polyline:")))
 (setq cntr 1
ctr 0
cnr 2)
 (setq Panl (list (entlast)));saves last drawn rectangle
 (repeat (1+ (fix (/ (vla-get-length (vlax-ename->vla-object Kpr)) 700)))
   [color="blue"](setq InterCheck (LM:GetIntersections (vlax-ename->vla-object Kpr) (vlax-ename->vla-object (nth ctr Panl))));check intersection between rec and Pline[/color]
   (setq FirstVert (nth 0 InterCheck))
 (if (not (nth cntr Coorlist));coorlist is the list of LWpolyline vertices list
   (setq SecondVert (nth (- cnr cntr) Coorlist))
   (setq SecondVert (nth cntr Coorlist)))
   (setq FSAng (rtd (angle FirstVert SecondVert)); rtd is radian to degree
  FScounterAng (angle SecondVert FirstVert)
  StartP (polar FirstVert FScounterAng 100))
   (MakePanel FirstVert StartP Plength Pwidth FSAng); MakePanel is a fundtion to create Rectangles
 [color="blue"](setq Panl (cons (entlast) Panl))[/color]
 (setq cntr (1+ cntr)
ctr (1+ ctr)
cnr (1+ cnr)))