홈/ 질문/Q 105853
다음
진행 중
Lv.0
등록일: 2016-01-12T18:41:01+09:00 카테고리:

리습구걸 고수님들 혹시 이런 리습 있나요?

레이어나 색깔 ,선두깨 모든것에 상관없이
드레그를 해서 저 많은 중심선을 한번에 지워버리고 싶습니다.
부디 고수님들 이런 리습이 있거나 혹 없다면 리습 하나 정중히 부탁 드려도 될까요?
이런 도면이 한두개가 아니라 일하면서 너무 스트레스네요
노가다에서 벗어나고 싶어요 꾸뻑..

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.21

      올리신도면 기준 (다른도면에서는 예기치 못한 상황 발생가능성 50%)

      (defun _fa(pt rad / pLst ang ang1)
       (setq ang 0.174533 ang1 ang)
       (repeat 36
        (setq pLst(append pLst(list(polar pt ang1 rad))))
        (setq ang1(+ ang1 ang))
       )
       pLst
      ) 
      (defun c:ff(/ ss n e rad a10 ptLst ss2)(vl-load-com)
       (setq ss(ssget (list(cons 0 “CIRCLE”))) n 0)
       (repeat (sslength ss)
        (setq e(entget(ssname ss n)))
        (setq rad(cdr(assoc 40 e)))
        (setq a10(cdr(assoc 10 e)))
        (setq ptLst(_fa a10 rad))
          (setq ss2 (ssget “_cP” ptLst (list (cons 0 “LINE” )))) 
          (if ss2 (vl-cmdf “_Erase” ss2 “”))
        (setq n (1+ n))
       )
       (princ) 
      )   
      컴퓨터는 생각보다 멍청합니다… (저 또한 ㅎㅎ;;;)
      • 0

    3. 수야님 정말 감사합니다.
      거지같은 회사생활에 빛이 되어주시는군요
      정말정말 감사하게 잘 사용 하겠습니다
      새해 좋은 일들만 가득 하시길…
      잘 사용하겠습니다..,,,

      • 0