;; Style Change —————> st
(DEFUN C:stc()
;(defun stylech ()
(setvar “cmdecho” 0)
(command “style” “standard” “휴먼모음T” “” “” “” “” “”)
(prompt “n This Program is change STYLE –> 휴먼모음T으로 전환 n “)
(setq sss(ssget “X” ‘((0 . “TEXT”))))
(setq num (sslength sss))
(setq i 0)
(repeat num
(setq ent (entget (ssname sss i)))
(setq i (1+ i))
(setq ass (assoc 0 ent))
(if
(= “TEXT” (cdr ass))
(progn
(setq ass1 (assoc 7 ent))
(setq co (cons 7 “standard”))
(setq entl (subst co ass1 ent))
(entmod entl)
)
)
)
(prompt “n”)
(princ num) (prompt ” TEXT changed “)
(setvar “cmdecho” 0) (princ)
)
(defun c:aa()
(setq n 0)
(setq ss (ssget))
(setq id (load_dialog “aaa.dcl”))
(new_dialog “aaa” id)
(mode_tile “edit” 2)
(action_tile “edit” “(setq ed $value)”)
(setq ok (start_dialog))
(if (= ok 1)
(draw)
)
(unload_dialog id)
)
(defun draw()
(setq sl (sslength ss))
(repeat sl
(setq sn (ssname ss n))
(setq get (entget sn))
(setq as (assoc 1 get))
(setq con (cons 1 ed))
(setq sub (subst con as get))
(entmod sub)
(setq n (1+ n))
)
)
운영체제는 윈도우10으로 동일합니다.
컴퓨터를 바꾸기 전까지 글씨변환 리습(휴먼모음T)이 잘 되었는데
새로운 컴퓨터에서는 먹히질 않네요. 이유를 모르겠어서 올려봅니다.
캐드버전은 2018입니다. 컴퓨터 차이로 명령어가 안될수도 있는건지 궁금합니다.
오류내용은 아래와 같습니다.
명령: STC
글꼴 파일이 존재하지 않습니다.알 수 없는 명령 “STC”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “STC”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “STC”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “STC”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “STC”. 도움말을 보려면 F1을 누르십시오.
This Program is change STYLE –> 휴먼모음T으로 전환
447 TEXT changed
고수님들의 안목으로 한번 검토를 부탁드려보고 싶습니다.. 감사합니다.
실행은 안해봤지만 거의 저런 메세지는 쌍따옴표 갯수 오류로 인한 경우가 많습니다
지우면서 계속 했는데두 리습이 먹히질 않네요ㅠㅠ