> 커뮤니티 > 프로그램질문
프로그램질문

인테리어 관련 프로그램(캐드, 맥스, 포토샵, 래빗)에 관한 질문을 올리고 답변이나 도움을 받을 수 있는 게시판입니다. 

글자크기 수정 도와주세요

1 45라면45 1 46 0 0

(defun $delta_a (%_c %_a)
 (sqrt (- (expt %_c 2) (expt %_a 2)))
)
;;---
(defun #ssadd (#ent1 / #ssent)
  (setq  #ssent (ssadd))
  (ssadd #ent1 #ssent)
  (while #ent1
         (ssadd #ent1 #ssent)
         (setq #ent1 (entnext #ent1))
  )
  #ssent
)
;;---
(defun c:ti ()
  (setvar "cmdecho" 0)
  (setq $old_textstyle (getvar "TEXTSTYLE"))
  (if (= nil (tblsearch "style" "굴림체"))
      (COMMAND "STYLE" "굴림체" "굴림체" "0" "0.85" "0" "n" "n")
  )
  (if (= nil (tblsearch "style" "돋움"))
      (COMMAND "STYLE" "돋움" "돋움" "0" "0.85" "0" "n" "n")
  )
  (if (= nil (tblsearch "block" "time"))
      (progn
        (command "donut" 26.8 27.2 "0,0" "")
        (setq $time_en1 (entlast))
        (command "donut" 38.8 39.2 "0,0" "")
        (command "line" '(0 13.5) "@6<90" "")
        (command "array" (entlast) "" "p" '(0 0) "24" "360" "y")
        (command "line" '(0 13.5) "@2<90" "")
        (command "rotate" (entlast) "" '(0 0) "3.75")
        (setq $ent_1 (entlast))
        (command "array" (entlast) "" "p" '(0 0) "3" "7.5" "y")
        (command "array" (entlast) (entnext $ent_1) $ent_1 "" "p" '(0 0) "24" "360" "y")
        (setq ii 1
              ai (- 7.5)
        )
        (repeat 24
          (command "text" "j" "m" '(0 17.5) "2.5" "0" (rtos ii 2 0))
          (command "rotate" (entlast) "" '(0 0) ai)
          (setq ii (1+ ii)
                ai (- ai 15)
          )
        )
        (command "block" "time" '(0 0) (#ssadd $time_en1) "")
      )
  )


  (if (= nil (tblsearch "block" "date"))
      (progn
        (command "line" (list (- ($delta_a 13.5 4)) 4) (list ($delta_a 13.5 4) 4) "")
        (setq $date_en1 (entlast))
        (command "line" (list (- ($delta_a 13.5 4)) (- 4)) (list ($delta_a 13.5 4) (- 4)) "")
        (command "pline" '(0 6) "w" "2.2" "2.2" "@2.75<90" "w" "4.65" "0" "@2.75<90" "")
        (setvar "TEXTSTYLE" "돋움")
;        (command "text" "j" "m" '(0 8) "3.1" "0" "출      도")
        (command "text" "j" "Fit" '(-7 6.2) '(7 6.2) "3.1" "출    도")
        (command "text" "j" "M" '(0 -7.5) "2.5" "0" "(주) E & EC") ;;==>"(주) E & EC"는 업체명이므로 변경 가능
;        (command "text" "j" "Fit" '(-10 -7.7) '(10 -7.7) "2.5" "원신기계공업(주)")
        (command "block" "date" "0,0" (#ssadd $date_en1) "")
      )
  )
  (C:L0)
  (setq #insp (getpoint "\nInsert Point : "))
  (setq #cd (rtos (getvar "cdate") 2 8)
        #cdate (strcat (substr #cd 1 4) "." (substr #cd 5 2) "."
                       (substr #cd 7 2))
        #tih (atoi (substr #cd 10 2))
        #tim (atoi (substr #cd 12 2))
        #_ang (+ (* 15 (1- #tih)) (* 3.75 (/ #tim 15.0)))
  )
  (setvar "TEXTSTYLE" "돋움")
  (command "text" "J" "M" #insp 4 "0" #cdate)
  (command "insert" "time.dwg" #insp 1 1 #_ang)
  (command "insert" "date.dwg" #insp 1 1 0)
  (setvar "TEXTSTYLE" $old_textstyle)
  (princ)
)
(defun c:L0 ()
  (command "layer" "m" "0" "")
)

날짜 글자 크기 수정하는 구간이 궁금합니다.

1 Comments
1 아빠는55 09.29 22:23  
emoticon

날짜 크기는

(command "text" "J" "M" #insp 4 "0" #cdate)   <--- 여기서 4 라는 숫자가
날짜의 글자 크기 입니다.

이런 것은
그냥 속성블록 만들어 사용하는 것이
더 빠르지 않을까요???


제목