읽어주셔서 감사합니다.
기존 tci명령어를 생각하고 알아보고 있는데, 빠르게 입력해야하는 상황이 생겨 매번 번거롭기도하여 찾고있습니다.
생각한 조건은 아래와 같습니다. 혹시 관련하여 조언주실분 계시다면 대단히 감사하겠습니다!!
- 입력할 문자를 미리 받는다. (한/영/숫자)
- 마우스로 출력할 포인트를 지정하면 문자+원 또는 사각형 문자가 동시출력
됨. EX) ⓦ
20240516 수정)
제가 정신없게 질문글만 올리고 제가 작성중이던 리습내용을 안올렸네요;;;
(defun c:rs (/ txh txt)
(vl-load-com)
(setq txh (getvar ‘TEXTSIZE))
(setq txt (or txt 1))
(setq txt (cond ((getstring (strcat “문자입력<” (vl-princ-to-string txt) “>:”))) (txt)))
(while (setq txp (getpoint (strcat “위치배치<” (vl-princ-to-string txt) “>:”)))
(command “_text” “_j” “_mc” txp txh “0” txt)
(command “_circle” txp (* txh 1.2))
(setq txt (1+ txt))
)
(princ)
)
;; defun
해당내용으로 리습 ANSI /UTF-8 두가지방식으로 인코딩 저장 후 적용했을 경우
새로 생성된 dwg 파일에서는 적용이 되나, 기존에 다른분이 작성하던 dwg에 적용시
한글/영문/숫자 입력시 모두 원문자 안에 0으로 출력이 되고있습니다. 모자란 실력이라 조언 부탁드리겠습니다!!
대충 뭔지 짐작은 가는데 백번 듣는것보다 한번 보는게 낫다는 말이 있듯이
컴 잘알분들은 여기다 게시글 올리던데 게시글 올리실줄 모르시면 님 개인 블로그 같은곳에 올리시고 그곳에 링크를 거시죠 그게 답변 듣기 쉬우실거예요
아 제가 리습을 찾고만 있다하고 내역을 안올렸네요;;; 수정해서 업로드하겠습니다. 조언감사합니다!!
https://blog.naver.com/khs12kim/223449055556
고캐드 게시글 쓰기 애로사항 때문에 링크 남깁니다 제 방치형 블로그에 게시 해놨어요
기회되심, ArchiOffice의 문자사전(T_TLB) 기능 함 사용해보세여…!!!
위 말에는 정확히 뭘 원하는지를 모르겠습니다. 이런문자 인줄 ⓦ
지금 올리는 프로그램은 원 숫자로 숫자만 입력가능합니다.
(defun c:rs (/ txh def_txt)
(vl-load-com)
(setq txh (getvar ‘TEXTSIZE))
(if (= txt nil) (setq txt “1”)) ;(setq txt (or txt 1))
(setq def_txt txt)
(if (= “” (setq txt (getstring (strcat “Text Input <: " txt)))) (setq txt def_txt)) ; (setq txt (cond ((getstring (strcat "문자입력:”))) (txt)))
(while (setq txp (getpoint (strcat “Input Point:”)))
(command “_text” “_j” “_mc” txp txh “0” txt)
(command “_circle” txp (* txh 1.2))
(setq txt (itoa(1+ (atoi txt)))) ;(setq txt (1+ txt))
)
(princ)
)
;; defun
사각형 삼각형 원 세가지 옵션 짜집기 해서 만들어놓았어요….
https://cafe.daum.net/zhouwang/9xWh/1