캐드 분류
원 또는 사각형안에 입력할 문자가 동시에 출력되는 리습을 찾고있습니다.
컨텐츠 정보
- 428 조회
- 6 댓글
- 0 추천
- 0 비추천
- 목록
본문
읽어주셔서 감사합니다.
기존 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으로 출력이 되고있습니다. 모자란 실력이라 조언 부탁드리겠습니다!!
관련자료
댓글 6
/ 1 페이지
수야12님의 댓글
https://blog.naver.com/khs12kim/223449055556
매그니 게시글 쓰기 애로사항 때문에 링크 남깁니다 제 방치형 블로그에 게시 해놨어요
캐드플러스님의 댓글
위 말에는 정확히 뭘 원하는지를 모르겠습니다. 이런문자 인줄 ⓦ 지금 올리는 프로그램은 원 숫자로 숫자만 입력가능합니다.
(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
