여러 줄 Setq 입력 자동 변환 SetqR

함수설명

여러 줄의 setq 정의 문자열을 하나로 묶어 주는 함수 

 

명령어

SetqR

 

 

아래와 같이 입력된 내용을

 

    (setq sel (entsel "\n  객체 선택: "))

    (setq ent (car (sel))

    (setq enx (entget ent))

    (setq lay (cdr (assoc 8 enx)))

 

아래와 같이 변경을 해주는 함수입니다.

 

    (setq sel (entsel "\n  객체 선택: ")

             ent (car (sel)

             enx (entget ent)

             lay (cdr (assoc 8 enx))

    )

 

-----------

캐드 명령창에서 setqr 을 실행하면, 윈도우 메모장이 하나 나타납니다.

 

바꾸고자 하는 원본 문장을 이 메모장에 복사해서 넣고 저장을 합니다.

(연속으로 반복해서 바꿀 필요가 있을 때, 이 메모장이 원본 문장을 입력하는 곳이므로, 끄지 않고 살려 두면 편합니다.)

 

 

캐드 명령창에서 다시 setqr 을 재실행하면.... 아래와 같이 문장 앞에 빈 칸도 똑같이 남아 있도록 변경된 문장이 들어 있는 메모장이 나타납니다.

내용을 복사해서 에디터로 가져가면 됩니다.

(이 창은 재생산 되므로, 끄면 됩니다.)