[编程交流] 画一条闭合的外线b

(defun c:test ( / box sel )
   (if (and (setq sel (ssget))
            (setq box (LM:ssboundingbox sel))
       )
       (vla-put-closed
           (vlax-invoke                 
               (vlax-get-property (vla-get-activedocument (vlax-get-acad-object))
                   (if (= 1 (getvar 'cvport))
                       'paperspace
                       'modelspace
                   )
               )
               'addlightweightpolyline
               (apply 'append
                   (mapcar '(lambda ( x ) (mapcar '(lambda ( y ) ((eval y) box)) x))
                      '(
                           (caar   cadar)
                           (caadr  cadar)
                           (caadr cadadr)
                           (caar  cadadr)
                       )
                   )
               )
           )
           :vlax-true
       )
   )
   (princ)
)
(vl-load-com) (princ)