홈/ 질문/Q 108245
다음
진행 중
겡구
Lv.0
등록일: 2017-04-06T19:24:28+09:00 카테고리:

선택한 원은 지우고 센터점에 작은 라인을 긋는 리습..

하루종일 끙끙대며 만들어보고있는데 넘나 어렵네요;;
선택한 원은 지우고 센터점에 작은 라인 (센터점 기준 좌우 합쳐 0.02 길이)
을 긋는 리습..을 만들고 있는데요,
(defun c:cpm ()
 (setvar “OSMODE” 0)
 (setq ss (ssget ‘((0 . “circle,arc”))))
 (setq p1 (POLAR ss 0.0 0.01))
 (setq p2 (POLAR ss 1.5708 0.01))
(command “line” p1 p2 “”)
(command “erase” ss)
(princ)
)
민망하지만 제가 만들어본건데 더이상 어케해야될지 모르겠어요
도움 부탁드립니다… ㅜ.ㅜ
공유

    관련 있는 질문들

    6 답변

    1. aalan
    2. Lv.0
      우선 선택 객체만큼 돌려야하고

      선택 객체의 중심점을 찾아야 합니다 ( dxf 10)

      그리고 라인이 좌우라고 했으니 p2의 방향은 3.141592 즉 파이가 되어야합니다.

      • 0
    3. Lv.0

      그렇군요… 음… 어케해야되는지 대충은 알거같기도 한데

      명령어라든지 이런걸 어떻게 적용해야 할지 감이 안잡히네요;
      감사합니다 !!
      • 0
    4. Lv.21

      일단 간단하게 나마 리습 커뮤니티에서 강의를 보실것을 권합니다 

      (defun c:cpm (/ ss n e en a10 p1 p2 len );지역변수 선언
       (setvar “OSMODE” 0)
       (setq ss (ssget ‘((0 . “circle,arc”)))) ;다중선택
       (setq n 0)
       (setq len 0.01) ;숫자를 바로 사용하지마시고 이렇게 변수로 
       (repeat (sslength ss) ;여러객체를 선택했을때 그객체수만큼 반복 
        (setq e (ssname ss n))
        (setq en(entget e))
        (setq a10(cdr(assoc 10 en))) ;호나 원의 중심점 
        (setq p1 (POLAR a10  0.0 len)) ;변수사용의 잇점은 만약에 길이를조절하고싶다 
        (setq p2 (POLAR a10 pi len));그럴때 숫자를 바로 사용하면 숫자를 하나하나 바꿔야하지만 
                                        ;변수면 변수의 값만 변경하면 됩니다
        (command “line” p1 p2 “”)
        (entdel e)
        (setq n(1+ n))
       ) 
      (princ)
      )
      • 0
    5. Lv.0

      오오,,, 감사합니다 !!

      수야님 정말 밥이라도 사드리고 싶을 정도… ㅜㅜ
      일단 리습 강의 파일 받아서 이것저것 보고있긴한데
      이걸 적용하는게 정말 어렵네요
      그래도 기초 잘 다지면 나아지겠죠 
      매번 정말 감사드려요,,,!!!!
      • 0
    6. Lv.0

      보면 볼수록 기초가 중요한것 같네요 …

      적어주신 리습 가지고 많이 연구해볼께요!!
      • 0
    7. Lv.21

       일단 다른 사람이 만든 공개리습을 다운 받으셔서 강의 파일을 보시면서 주석다는 연습을 해보세요

      한마디로 구문 분석을 하시다보면 실력이 많이 느실겁니다  화이팅~!!^^;; 
      • 0