함수설명
여러 줄의 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 을 재실행하면.... 아래와 같이 문장 앞에 빈 칸도 똑같이 남아 있도록 변경된 문장이 들어 있는 메모장이 나타납니다.
내용을 복사해서 에디터로 가져가면 됩니다.
(이 창은 재생산 되므로, 끄면 됩니다.)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
객체 테두리 좌표 xi:Boundingbox (0) | 2023.02.26 |
---|---|
숫자 앞에 0 갯수 일치 xi:AutoFixNum (0) | 2023.02.26 |
함수의 시작과 끝, (xi:StartS) (xi:EndS) ☆☆☆☆☆ (0) | 2023.02.26 |
여러 줄 내용에 nth 자동 생성 xi:nthR (0) | 2023.02.26 |
객체 정보 보기, info/infon/dump/dumpn/dumps/dumpl/dumpf (0) | 2023.02.26 |