캐드 분류
변수에 할당된 값을 문자열로 변환, 문자열 합치는법
컨텐츠 정보
- 200 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
변수에 할당되어있는 값을 문자열로 변환하고, 그 문자열을 합치고 싶습니다.
정확히 만들고자하는 리습은 배치탭을 복사하는 리습인데 이름을 자동으로 달아주고싶습니다.
일반적으로 배치탭을 복사를 하게되면 기존 이름에 (1), (2) 이런식으로 붙는데
이걸 -1, -2, -3 이렇게 넣고싶습니다.
(defun c:TC ( / CTAB NUM LAYOUTNAME)
(setvar "cmdecho" 0)
(setq ctab (getvar "ctab"))
(setq layoutname (getstring (strcat "nLayout to duplicate <" ctab ">: ")))
(if (= layoutname "") (setq layoutname ctab))
(initget 6)
(setq NUM (getint "nHow many copies ?<1>: "))
(if (null NUM) (setq NUM 1))
(while (> NUM 0)
(command ".layout" "c" layoutname "")
(setq NUM (- NUM 1))
)
(princ)
)
해외 사이트에서 리습 하나 주워와서 조금 수정한 상태입니다.
layoutname에서 탭이름이 저장되고 NUM만큼 반복되게 해놨습니다.
따라서 layoutname + "-" + NUM 이런식으로 하게되면 배치탭이름-1, 배치탭이름-2
이렇게 만들어질 것 같은데 문자열로 변환하는 것과, 문자열을 합치는게 어렵네요…
수정해주실 수 있는 능력자분을 찾습니다. ㅠㅠ
관련자료
댓글 4
/ 1 페이지
