[编程交流] 如何获得矩形中心——Re

(inters corner1st corner3rd corner2nd corner4th)

Removed due to ignorance from the OP

;;;rectang-> circle
(defun c:test (/ p e r c )
;hanhphuc
 (if (and (setq e (car (entsel)))
   (=(cdr (assoc 0 (entget e)))"LWPOLYLINE")
   (vl-cmdf "_.PEDIT" e "fit" "")
   (setq c (entsel "\nPick circle to modify radius.. "))
   (setq p (osnap (cadr c) "_cen"))
   (vl-cmdf "_.PEDIT" e "decurve" "")
   (setq r ([color="blue"]getdist[/color] p "\nRadius.. "))
   ) ;_ end of and
   (command "_.CIRCLE" p r)
   ) ;_ end of if
 (princ)
) ;_ end of defun

(defun c:p2c ( / a b e i l s )
   (if (setq s (ssget "_:L" '((0 . "LWPOLYLINE"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 l (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) e))
                 a (apply 'mapcar (cons 'min l))
                 b (apply 'mapcar (cons 'max l))
           )
           (if (entmake
                   (append '((0 . "CIRCLE")) (LM:defaultprops e)
                       (list
                           (cons  010 (mapcar '/ (mapcar '+ a b) '(2 2)))
                           (cons  040 (/ (distance a b) 2))
                           (assoc 210 e)
                       )
                   )
               )
               (entdel (cdr (assoc -1 e)))
           )
       )
   )
   (princ)
)
;; Default Properties  -  Lee Mac
;; Returns a list of DXF properties for the supplied DXF data,
;; substituting default values for absent DXF groups
(defun LM:defaultprops ( enx )
   (mapcar '(lambda ( x ) (cond ((assoc (car x) enx)) ( x )))
      '(
           (006 . "BYLAYER")
           (008 . "0")
           (039 . 0.0)
           (048 . 1.0)
           (062 . 256)
           (370 . -1)
       )
   )
)
(princ)