홈/ 질문/Q 181144
다음
답변됨
다스베다
Lv.0
등록일: 2023-02-10T11:00:41+09:00 카테고리:

리습 수정요청 드립니다.

리습 수정요청 드립니다.

리습 수정요청을 드립니다.

현 리습사용시 작성하면

SS

T

EA

이렇게 나오는데 한줄에 다 나오게 할려면 어디를 고쳐야 하나요?

(defun c:TT(/ *error* spt spt1 spt2 spt3 os)
(defun *error* (msg)(princ “nerror: “)(princ msg)
(setvar ‘OSMODE os)
(princ)
)

(setq os (getvar “OSMODE”))
(setvar “OSMODE” 0)

(setq spt 0)
(setq spt1 0)

(setq spt (getpoint “n문자의 시작점을 클릭하세요 : “))
(setq spt1 (getreal “n문자크기를 입력하세요 : “))

(setq spt2 (car spt))
(setq spt3 (nth 1 spt))

(setq n 0)

(while (<= n 2)
(setq pt1 (list spt2 spt3 0))

(if (= n 0)
(progn
(setq Textval0 (getstring “n재질:”))
(setq Textval1 “”)
)
)
(if (= n 1)
(progn
(setq Textval0 (getstring “n두께:”))
(setq Textval1 “T”)
)
)
(if (= n 2)
(progn
(setq Textval0 (getstring “n수량:”))
(setq Textval1 “EA”)
)
)

(setq Textval7 (strcat Textval0 Textval1))

(if (not (= Textval0 “”))
(progn
(command “text” pt1 spt1 0 Textval7)
(setq spt3(- spt3 (+ 2 spt1)))
(setq n(+ n 1))
)
(progn
(setq n(+ n 1))
)
)
)
(setvar ‘OSMODE os)
(princ)

 

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    16 답변

    1. aalan
    2. Lv.17

      어젯 밤에 만들었습니다.
      대화상자를 만들어 문자를 입력받을까도 생각했는데 급조로 만들다 보니 간단하게 했습니다.
      파일을 여기는 올릴수 없어 자료실에 올립니다.
      파일은 2개 입니다.
      Mat_Text.VLX – 메인 프로그램 입니다. 수정불가 이며, 굳이 변경은 필요 없을듯 합니다.
      material.LSP – 재질 입력 받는 파일인데 수정 해도 됩니다.(이 파일이 없어도 메인 프로그램으로만으로도 동작은 합니다.)
      사용자가 재질 설정을 변경하고 싶을때 입력 데이터만 입력하면 됩니다.
      주의할 점은 리스트 입력에 “”안에 입력할때 재질 첫글자가 4번째 칸에서 시작하면 됩니다.
      예) ” 1 SKD ” -> S글자가 쌍 따움표 안에서 4번째 칸에서 시작한다.
      재질 앞에 숫자는 순서 번호 입니다.
      입력할수 있는 재질 종류는 1부터 9까지 입니다. 현재는 5
      재질 입력에서 한 글자입력후 엔터 함.
      여러 글자를 입력하면 다른 재질 입력으로 인식함.
      그리고 연속 입력 할 수 있게 되어 있습니다.

      • 0
    3. Lv.17

      한글이 깨지는것은 윈도우 설정 때문이 아닙니다.(수야12님이 올린 블로그 하고는 상관없습니다.)
      리습에서 한글 폰트 지정이 없습니다.
      style에서 한글 폰트 설정을 해줘야 합니다.

      재질: (입력값)
      t: (입력값)
      수량 : (입력값)

      흠 3번 연속 입력이라…

      질문 1. 이 프로그램을 빈번하게 많이 사용하십니까?
      (사실 많이 사용하는데 연속 3번 키보드 입력을 하면 작업 피로도 가 엄청 올라갑니다.)

      질문 2. 도면에 한글 폰트는 어떤 것으로 합니까?

      질문 3. 도면에 글자 크기는 고정입니까?

      • 1
    4. Lv.21


      (defun c:TT(/ *error* spt os matt)(vl-load-com)
      (defun *error* (msg)(princ "nerror:")(princ msg)
      (setvar 'OSMODE os)
      (princ)
      )
      (defun ks_Text (pt hgt str)
      (entmakex (list (cons 0 "TEXT")
      (cons 10 pt)
      (cons 40 hgt)
      (cons 1 str)
      )
      )
      )
      (setq os (getvar "OSMODE"))
      (setvar 'OSMODE 0)

      (setq spt (getpoint "n문자의 시작점을 클릭하세요 : "))

      (or ##txh (setq ##txh 0))
      (setq ##txh
      (cond
      ((getreal (strcat "n문자크기를 입력하세요:")))
      (##txh)
      )
      )

      (or ##matt(setq ##matt ""))
      (setq matt (strcase(getstring T (strcat "n재질 :"))))
      (if (= matt "")(setq matt ##matt)(setq ##matt matt))

      (or ##thick (setq ##thick 0))
      (setq ##thick
      (cond
      ((getreal (strcat "n두께 :")))
      (##thick)
      )
      )

      (or ##qty (setq ##qty 0))
      (setq ##qty
      (cond
      ((getint (strcat "n수량 :")))
      (##qty)
      )
      )

      (ks_Text spt ##txh (strcat "재질:" matt " 두께:" (vl-princ-to-string ##thick)"T" " 수량:" (vl-princ-to-string ##qty)"EA"))

      (setvar 'OSMODE os)
      (princ)
      )

      • 1