[编程交流] 函数ACET-。。。

defun getfencesel (en flt / fe ss)    
     (vl-cmdf "_ZOOM" "_E")
  (setq ss (ssadd en))
     (setq fe (acet-list-remove-adjacent-dups (acet-geom-object-point-list en 0.05)) 
           ss (ssget "_F" fe flt)
     )
     (vl-cmdf "_ZOOM" "_P")
     ss
  )

; (sssetfirst nil (GetFenceSel (car (entsel)) '((0 . "*TEXT")) 3))
; (sssetfirst nil (GetFenceSel (car (entsel)) nil 3))
(defun GetFenceSel ( e flt prec / DivideCurveAtInc Trap pL ll ur SS )
 
 (defun DivideCurveAtInc ( i c / TotLen d PtLst )
   (if
     (and
       (numberp i) (not (or (zerop i) (minusp i)))
       (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getEndParam (list c)))) 
       (<= i (setq TotLen (vlax-curve-getDistAtParam c (vlax-curve-getEndParam c))))
     )
     (progn
       (setq d 0.0)
       (while (<= d TotLen)
         (setq PtLst (cons (vlax-curve-getPointAtDist c d) PtLst))
         (setq d (+ d i))
       ); while
       (setq PtLst (reverse PtLst))
     ); progn
   ); if
   PtLst
 ); defun DivideCurveAtInc
 
 (defun Trap ( f L / r err ) (if (setq err (not (vl-catch-all-error-p (setq r (vl-catch-all-apply f L))))) (if r r err)) )
 (cond
   ( (not (setq e (Trap 'vlax-ename->vla-object (list e))))
     (princ "\nNo object provided.")
   )
   ( (not (Trap 'vla-GetBoundingBox (list e 'll 'ur)))
     (princ "\nInvalid object.")
   )
   (
     (or
       (and
         (Trap 'vlax-curve-getEndParam (list e))
         (setq pL (mapcar '(lambda (x) (reverse (cdr (reverse x)))) (DivideCurveAtInc prec e)))
       )
       (setq pL
         (
           (lambda ( x / p1 p2 ) (setq p1 (car x)) (setq p2 (cadr x)) (list p1 (list (car p1) (cadr p2)) p2 (list (car p2) (cadr p1))) )
           (mapcar '(lambda (x) (reverse (cdr (reverse (safearray-value x))))) (list ll ur))
         )
       )
     ); or
     (vla-ZoomWindow (vlax-get-acad-object) ll ur)
     (and
       (setq SS (ssget "_F" pL flt))
       (ssadd (vlax-vla-object->ename e) SS)
     )
     (vla-ZoomPrevious (vlax-get-acad-object))
   )
 ); cond
 SS
); defun GetFenceSel
(vl-load-com) (princ)

(defun getfencesel (en flt / fe ss)    
     (acet-ss-zoom-extents (setq ss (ssadd en)))
     (setq fe (acet-list-remove-adjacent-dups (acet-geom-object-point-list en 0.05)) 
           ss (ssget "_F" fe flt)
     )
     (vl-cmdf "_ZOOM" "_P")
     ss
  )

Your Code Here[/NOPARSE]