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

6分钟 · 发表于 2002-1-17 16:30:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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 · 发表于 2002-1-21 12:49:54

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子