circle 명령을 변형 하고 싶은데요..
(defun c:c1()
(SETQ scale (GETVAR “DIMSCALE”))
(SETQ sc (* SCALE 1.2))
(setq k (getstring “n관경을 입력 하세요? “))
(SETQ P1 (GETPOINT “n FIRST POINT … “))
(command “circle” SC P1 )
)
이렇게 입력해서 실행하면
1. 관경묻는 문구 나오구?
2. 관경 입력해서 포인트 찍으면 Nearest 로인한 circle 이 생성이 되구요
3. 또한 circle 의 지름은 관경을 입력한 값에 Dimscale 를 곱한 값이
출력 되어야 하는데.. 이상하게 나오네요.. 어디를 수정 봐야 하나요?
또하나 질문드리고 싶은건 Line 명령인데요
(Defun c:ln()
(SETQ P1 (GETPOINT “n FIRST POINT … “))
(SETQ P2 (GETPOINT “n Second POINT … “))
(Command “line” p1 p2 “”)
)
이렇게 하면 Line 이 생성 되는데요. 이걸 약간 변형해서 Line대신
지시방향선 화살표를 지어할려면 어떤 코드를 입력 해야 하나요?
또한 그것을 While 문을 써서 반복적으로 진행 시킬라 하거든요
조언 부탁 드립니다