圆转化成两端连接的弧的LISP.(在外形上还是圆)

6分钟

(defun c:ctp ( / en el et cp r enl )
   (while(not (eq(setq en(car(entsel)  )
                       el(entget en)
                       et(cdr (assoc 0 el)))
                 "CIRCLE")))
   (setq cp (cdr (assoc 10 el))
         r  (cdr (assoc 40 el))
         enl(cdr (assoc 8  el)))
   (entdel en)               
   (command "layer" "s" enl "")
   (command "_.donut"
            (* 2.0 (- r 0))
            (* 2.0 (+ r 0))
            cp
            ""))

YueFeng

直接修改线宽（Pedit)后再炸开就成这个样啦。你可以试试看。