如何得到图元的最大外形?

;;;包裹描边
; getArea subRoutine
(defun getArea ( entName / )
   (command "_.AREA" "O" entName)
   (setq objArea (getvar "AREA"))
) ;defun
(defun c:wq(/ oldEcho objsToWrap extMin extMax minX minY maxX maxY
                   diagDist boxOffset boxLL boxLR boxUR boxUL
                   boundPoint boxObj newObjs lastEntName entName
                   newObjsLen maxArea counter thisArea wrapOption
               )
   (setq oldEcho (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (prompt "\nWrap Objects (w/Polyline(s)):")
   ;|
       Swap commenting with (setq) line below...
       If you want ELLIPSE and SPLINE objects to be selectable
   |;
   ;(setq objsToWrap (ssget))
   (setq objsToWrap
       (ssget '(
           (-4 . "")
           (-4 . "NOT>"))
       ) ;ssget
   ) ;setq
   
   (if (/= objsToWrap nil)
       (progn
           (command "_.UNDO" "BEGIN")
           (setq wrapOption "Single") ;default to single
           (initget "Single Multiple")
           (prompt "\nWrap Options:")
           (prompt "\n   Single: Only the largest outer profile will be created.")
           (prompt "\n   Multiple: Nested, or detatched profiles will also be created.")
           (setq wrapOption (getkword "\nWrap option [Single/Multiple] : "))
           (if (= wrapOption "Multiple")
               (setq wrapOption "Multiple")
               (setq wrapOption "Single")
           ) ;if
           
           ; Create bounding box, larger than existing drawing...
           (setq extMin (getvar "EXTMIN"))
           (setq extMax (getvar "EXTMAX"))
           (setq minX (car extMin))
           (setq minY (cadr extMin))
           (setq maxX (car extMax))
           (setq maxY (cadr extMax))
           
           (setq diagDist (distance extMin extMax))
           (setq boxOffset (* diagDist 0.1))
           
           (setq boxLL (list (- minX boxOffset) (- minY boxOffset) 0))
           (setq boxLR (list (+ maxX boxOffset) (- minY boxOffset) 0))
           (setq boxUR (list (+ maxX boxOffset) (+ maxY boxOffset) 0))
           (setq boxUL (list (- minX boxOffset) (+ maxY boxOffset) 0))
           (setq boundPoint (list (- minX (/ boxOffset 2)) (- minY (/ boxOffset 2)) 0))
           (command "_.PLINE" boxLL boxLR boxUR boxUL "C")
           (setq boxObj (entlast))
           (command "_.-BOUNDARY" "A" "O" "P" "I" "Y" "B" "N" boxObj objsToWrap "" "" boundPoint "")
           
           ; Get a list of the entities created by the boundary command...
           (setq lastEntName boxObj)
           (while (setq entName (entnext lastEntName))
               (setq newObjs (append newObjs (list entName)))
               (setq lastEntName entName)
           ) ;while
           ;Get the greatest object area, of the new objects (the duplicate polyline, of our temp box)
           (setq newObjsLen (length newObjs))
           (setq maxArea 0)
           
           (setq counter 0)
           (while (= thisArea maxArea)
                   (setq maxArea thisArea)
               ) ;if
               (setq counter (1+ counter))
           ) ;while
           
           ; Delete the Object, that matches the maxArea (the duplicate polyline)
           (setq counter 0)
           (while (= thisArea maxArea)
                           (setq maxArea thisArea)
                       ) ;if
                       (setq counter (1+ counter))
                   ) ;while
                   ; Delete the Object, UNLESS it matches the maxArea (the one we want to keep!)...
                   (setq counter 0)
                   (while (< counter newObjsLen)
                       (setq thisArea (getArea (nth counter newObjs)))
                       (if (/= thisArea maxArea)
                           (progn
                               (entdel (nth counter newObjs))
                           ) ;progn
                       ) ;if
                       (setq counter (1+ counter))
                   ) ;while
               ) ;progn
           ) ;if
           
           ;Erase the original box...
           (command "_.ERASE" boxObj "")
           (command "_.UNDO" "END")
       ) ;progn
   ) ;if
   (setvar "CMDECHO" oldEcho)
   (princ)
) ;defun
;(prompt "\nWrapObjects.lsp...Loaded!")
(prompt "\nPCB模具设计:a 外形-0.075单边 内槽+0.075单 1.6T IF 1.0T 0.05单边 线路+绿油+正字符+阻焊+反字符+碳油 先想清楚再下手做,磨刀不误砍柴工! ")
(princ)