(defun C:r1()(command “-insert” “P-1” “s” “1” “R” “0” )(prin1))
r1이라는 단순 리습인데
명령창에 r1을 입력하면
P-1이라는 블록을 삽입하고 s 스케일을 1로 지정하고 r 회전을 0으로 지정이 되어서
제가 할일은 기준점을 클릭하는 것만 하면 되는 리습입니다.
근데 여기서 궁금한 게
-insert 하고 p-1은 자동 입력하게 하고 그 다음 명령창이
“삽입점 지정 또는 [기준점(B)/축척(S)/X/Y/Z/회전(R)]:” 이 나오는데
위의 경우 s 후 1 지정인데
그렇게 하지 않고
바로 제가 직접 원하는 삽입점을 클릭하게 하고 삽입점을 클릭하면 그다음
1. “X축척 비율 입력, 반대구석 지정, 또는 [구석(C)/XYZ(XYZ)] <1>:”
2. “Y 축척 비율 입력 <X 축척 비율 사용>:”
3. “회전 각도 지정 <0.00>:”
이 뜨는데요. 위의 1,2,3번은 1,엔터,0을 자동으로 지정하게 하는 리습을 만드려면 어떤 식으로 만들어야 하나요?
제가 궁금한 건
——-——–——–——–——–——–——-——–——–——–——-
(defun C:r1()(command “-insert” “P-1” “s” “1” “R” “0” )(prin1))
——-——–——–——–——–——–——-——–——–——–——-
이 방법이나
——-——–——–——–——–——–——-——–——–——–——-
바로 제가 직접 원하는 삽입점을 클릭하게 하고 삽입점을 클릭하면 그다음
1. “X축척 비율 입력, 반대구석 지정, 또는 [구석(C)/XYZ(XYZ)] <1>:”
2. “Y 축척 비율 입력 <X 축척 비율 사용>:”
3. “회전 각도 지정 <0.00>:”
1~3번이 1,엔터,0로 지정
——-——–——–——–——–——–——-——–——–—-
이 방법이나 어차피 결과는 같은데
아래 방법처럼 리습 중간에 수동적으로 제가 지정해주고 뒤에 다시 자동적으로 리습이 동작되게
하는 리습을 만들고 싶은 거에요.
최종 원하는 리습은 r2 명령어를 치면 라인이나 pline을 그리게 하고 라인 혹은 pline 종료시
그 끝에 제가 원하는 블록 혹은 원을 입력하게 하는 리습입니다.
위의 방법처럼 수동적으로 line, pline을 그리고 그 명령어 종료 즉시 다시 리습이 그 뒤를 이어받아 자동 명령을 하게 하는 방법, 그것이 곧 line, pline을 수동적으로 그리고 끝에 원 혹은 블록을 붙여넣어 주는 과정과 같지 않을까 싶어서요.
근데 또 여기서 그러려면 원 혹은 블록이 마지막 클릭 지점 좌표를 기준점으로 하는 것을 리습으로 잡아줘야 하는 과정이 있어야 하고요.
이와 같은 리습을 만들 수 있으신 분 계신지요?
명령중간에 사용자입력을 할려면 pause 를 입력하시면 됩니다.
그럼 혹시 마지막 좌표 따는 법 아시나요?
(setq p (getvar ‘LASTPOINT))
일 때문에 시간이 나지 않아 이제서야 테스트 해봤습니다.