홈/ 질문/Q 100866
다음
진행 중
녹슬은해방군
Lv.0
등록일: 2014-04-08T03:08:12+09:00 카테고리:

원을 선으로 바꾸는 리습

드림에서 원을 선으로 바꿔주던데
2014 64 bit에서는 드림이 안 되네요
혹시 원을 선으로 바꿔주는 리습 가지신 분 계시면 부탁 드립니다

공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.0

      저는 BOUNDARY(BO) 해서 원 클릭해서 새로 폴리라인 만들어서 써요.
       

      • 0

    3. ;;;ⓒ Kor_Storm 2014
      ;;;Circle to LWPolyLine
      (defun c:test( / ss ent cen rad)
       (if (setq ss (ssget ‘((0 . “CIRCLE”))))
        (foreach en (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
         (setq
          ent (entget en)
          cen (cdr (assoc 10 ent))
          rad (cdr (assoc 40 ent))
         )
         (entmakex
          (append
           ‘((0 . “LWPOLYLINE”) (100 . “AcDbEntity”) (100 . “AcDbPolyline”) (90 . 2) (70 . 1))
           (list (cons 10 (polar cen pi rad)) (cons 42 1) (cons 10 (polar cen 0. rad)) (cons 42 1))
           (vl-remove-if ‘(lambda ( x ) (member (car x) ‘(-1 0 5 10 40 100 330))) ent)
          )
         )
         (entdel en)
        )
       )
       (princ)
      )

      • 0
    4. Lv.0

      너무 감사합니다 ^^

      • 0