圆转换成多段线

zjy2999 · 发表于 2017-4-28 16:44:20

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

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

×

;圆转换成多段线
(defun c:c2p(/ en cen r d d1 pts 2pi)
(setq en (entget(car(entsel "\n选择个圆:"))))
(setq e (cdr (assoc 0 en)))
(setq el (cdr (assoc 8 en)))
(if (= e "CIRCLE")
   (progn
   (setq cen (cdr(assoc 10 en)) r (cdr(assoc 40 en)))

   (setq pt1 (polar cen 0 r) )
   (setq pt2 (polar cen pi r) )

   (entmake

      (list '(0 . "LWPOLYLINE")
         '(100 . "AcDbEntity")
         '(100 . "AcDbPolyline")
         (cons 90 3)
      '(62 . 1)
      (cons 8 el)
      '(70 . 128)
      (cons 43 0) (cons 10 pt1)
      '(40 . 0.0) '(41 . 0.0)
      (cons 42 1) (cons 10 pt2)
      '(40 . 0.0) '(41 . 0.0)

         (cons 42 1) (cons 10 pt1)
      '(40 . 0.0) '(41 . 0.0)

      (cons 42 605807.0)
         '(210 0.0 0.0 1.0)

      )

   )

)
)
)

Lisphk · 发表于 2017-4-28 19:13:48

感谢分享源码

Lisphk · 发表于 2017-4-28 19:15:01

楼主，能改改，圆弧也能转不？

yzhyxh · 发表于 2017-4-29 08:18:07

回的人少，我顶一下

winerfjy · 发表于 2017-4-29 11:32:18

本帖最后由 winerfjy 于 2017-4-29 11:34 编辑

直接搞个包围盒再来个BO就得了最好能可以来个可逆的多线转园把你的程序改了个批量
;圆转换成多段线
(defun c:c2p(/ en cen r d d1 pts 2pi)
(princ "\n选择圆:")
  (setq ss (ssget))
(setq lst(LM:SS->ENT ss))
(setq n 0)
  (repeat (length lst)
(setq en (entget(nth n lst)))
(setq e (cdr (assoc 0 en)))
(setq el (cdr (assoc 8 en)))
(if (= e "CIRCLE")
   (progn
   (setq cen (cdr(assoc 10 en)) r (cdr(assoc 40 en)))
   (setq pt1 (polar cen 0 r) )
   (setq pt2 (polar cen pi r) )
   (entmake
      (list '(0 . "LWPOLYLINE")
         '(100 . "AcDbEntity")
         '(100 . "AcDbPolyline")
         (cons 90 3)
         '(62 . 1)
         (cons 8 el)
         '(70 . 128)
         (cons 43 0) (cons 10 pt1)
         '(40 . 0.0) '(41 . 0.0)
         (cons 42 1) (cons 10 pt2)
         '(40 . 0.0) '(41 . 0.0)
         (cons 42 1) (cons 10 pt1)
         '(40 . 0.0) '(41 . 0.0)
         (cons 42 605807.0)
         '(210 0.0 0.0 1.0) ))))
(setq n(+ 1 n)))
  (princ))

(defun LM:ss->ent ( ss / i l )
(if ss
      (repeat (setq i (sslength ss))
         (setq l (cons (ssname ss (setq i (1- i))) l))
      )
)
)

aaaaaa657 · 发表于 2017-4-29 11:34:29

收藏了，有机会用用

李春雨 · 发表于 2017-5-4 10:05:33

感谢分享源码

caixing417 · 发表于 2019-3-1 10:09:52

原来还可以这样，我是直接把圆打断成弧线，然后转换为多段线，再用多段线的闭合功能形成圆

fengyun7000 · 发表于 2019-3-2 10:03:55

有点意思，我还以为用等分点呢

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

[每日一码] 圆转换成多段线

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