홈/ 질문/Q 109236
다음
진행 중
Lv.0
등록일: 2017-12-19T12:43:52+09:00 카테고리:

두점으로 정사각형을 만들고 문자입력하는 리습좀알려주세요.

두점으로 만들어진 선으로 정사각형을 만들고 그 정사각형안에
두점의 길이를 높이로한 문자를 입력하는 법을 알려주실수있나요..
정사각형이 만들어지는 각도에 따라 문자도 같이 돌아갔으면 합니다.
고수님들 도와주세요

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.21

      좌하점 찍고 우상점으로 45도 각도로 점을 찍었다고 치죠.. 그럼 마름모꼴의 사각형이 생길수 있겠죠 

      그런데 그 마름모꼴 사각형이 두 점을 기준으로 생긴 라인의 위쪽일수도 아래쪽일수도 있습니다  이런것은 사용자가 직접 정해줘야합니다 올바른 질문방법은 최소한 스샷 또는 리습 내용이 반영된 파일첨부가 좋습니다  물론 제컴에서는 이상하게 고캐드 파일첨부가 텍스트 파일 이외에는 거부하네요 emoticon
      • 0

    3. 죄송합니다..제가 한거 올리긴했는데.. 리습시작한지 얼마안되서 정말 조잡해보이네요 ㅠ

      • 0
    4. Lv.21

      와우~!! 이정도면  정말 훌륭하신데요 

      (defun c:gp2(/ _rtd ks_pt_sort p1 p2 ang dist p3 p4 mp size)
       (defun _rtd (a)(/ (* a 180.0) pi)) ;호도법을 육십분법값으로 
       
       (defun ks_pt_sort(L)
        (vl-sort(vl-sort L ‘(lambda (a b)(< (cadr a)(cadr b)))) ‘(lambda (a b)(< (car a)(car b))))
       )
       
      (setq p1 (getpoint “n1st point:”)) ; 이 두포인트를 그냥 사용하면 문제점이 
      (setq p2 (getpoint “n2nd point:”)) ; 포인트진행 방향에 따라 사각형 생성방향이 달라집니다 
       
       (setq ptLst(ks_pt_sort (list p1 p2))) ;그 문제점을 포인트 입력에 상관없이 일정하게 맞추는 구문입니다 
       (setq p1(car ptLst) p2 (cadr ptLst)) ;
       
      (setq ang (angle p1 p2)) ;,이 각도 값은 radian(호도법)값입니다 커맨드문에 사용하시려면 degree(육십분법값)으로 
                                ; 바꾸셔야 합니다 
      (setq dist (distance p1 p2))
      (setq p3 (polar p2 (+ (/ pi 2)ang) dist));폴라함수는 라디안값을 사용합니다 
      (setq p4 (polar p1 (+ (/ pi 2)ang) dist))
      (setq mp (inters p1 p3 p2 p4 nil));사각형 중심
      (setq size (distance p1 p2)) ;위에dist랑 중복이네요 그냥 dist바로 사용하셔도 됩니다
      (command “line” p1 p2 p3 p4 “c”)
      (Command “text” “J” “MC” mp size(_rtd ang) “A” );커맨드문의 순수명령은 따옴표를 사용하셔야 합니다 
        ; 이렇게 커맨드문을 사용하실때는 osmode의 영향으로 문자가 원하시는 위치가 아닌곳에 쓰여질때도 있습니다 
        ; 그것에 대한 대비도 하셔야 합니다 리습짜시다 보면 그런현상 겪으실때 당황하지마시라고 알려드립니다 
      (princ)
      )
      • 0

    5. 정말 감사합니다 ㅠㅠ 자세히 설명해주셔서 이해가 더잘된것같아요.
      덕분에 많은거 배우고갑니다. 정말 감사합니다.

      • 0