各位老师，我想批量生成折线的外框，运行时部分图纸外框范围有误，求指点

yamjqq

各位老师，我想批量生成折线的外框，运行时部分图纸外框范围有误，求指点

Andyhon

(defun C:test ()
  (vl-load-com)
  (command "undo" "be")
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (command "ucs" "w")
  (princ "\n请选择折线:")
  (while (null
           (setq EN
             (ssget
               '((70 . 0)
                 (90 . 3)
                 (0 . "LWPOLYLINE")
                )
             )
           )
         )
  )
  (setq i 0)
  (while (setq ee (ssname en i))
    (apply
     'vl-cmdf (cons ".Rectangle" (acet-ent-geomextents ee))
    )
    ;; (vl-cmdf)
    (setq i (1+ i))
  )
  (vl-cmdf "undo" "e")
  (princ)
  (setvar "osmode" 16383)
)

yamjqq

可以啦，谢谢Andyhon老师的指导