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

선그릴때 각도를 수평이나 수직이 되게 하려고 합니다.

(defun c:jamb ()
 (setq aa (getpoint “A:” ))
 (setq bb (getdist “B:” ))
(command (“line” aa bb))
(princ)
)
리습 초보라 하나씩 만들어보고있는데
선그릴때 클릭지점 aa부터 거리 bb까지를 수평이나 수직으로 그리려고 합니다.
이렇게 저렇게 찾아보고 간단하게 만들어봤는데 
기초가 없는 상태라 뭐가 문제인지 잘 모르겠네요;;
도움 부탁드려봅니다;
공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.21
      리습이란게 원래 현장학문이라 배우면서 사용하는거죠 ㅎㅎ;;
      (defun c:jamb ()
       (setvar “OSMODE” 0) ; 커맨드 명령으로 라인을 그릴때 OSMODE를 “0”으로 셋팅 안하면 엉뚱한데 그려집니다 
       (setq aa (getpoint “A:” ))
       (setq bb (getdist aa “B:” ))
       (setq p1 (polar aa 0.0 bb)); aa에서 오른쪽(0도)으로 bb만큼
       (setq p2 (polar aa 1.5708 bb)); aa에서 윗쪽(90도)으로 bb만큼
       (setq p3 (polar aa 3.14159 bb)); aa에서 왼쪽(180도)으로 bb만큼
       (setq p4 (polar aa 4.71239 bb)); aa에서 밑쪽(270도)으로 bb만큼 
      (command “line” aa p1 “”)
      (command “line” aa p2 “”)
      (command “line” aa p3 “”)
      (command “line” aa p4 “”)
      (princ)
      )
      • 0
    3. Lv.0
      와우 ~~ 이제 조금 알것 같네요
      이걸가지고 연구해서 응용해봐야겠어요 감사합니다 !! ^^
      • 0
    4. 이렇게도 해보삼
      (defun c:jamb ()
      (setq aa (getpoint “nA:” ))
      (setq pm (getvar ‘ORTHOMODE))
      (setvar ‘ORTHOMODE 1)
      (setq bb (getpoint aa “nB:” ))
      (setvar ‘ORTHOMODE pm)
      (command “line” “_non” aa “_non” bb “”)
      (princ)
      )
      • 0
    5. Lv.0

      아하 보니까 직교를 이용한 방법이네요 이렇게도 사용할수 있군여 감사합니다 !!

      • 0