아래 리습은 틀불러오기 축척인데요 도면 내용중에 “XXX”에 대해서
축척을 바꾸는겁니다 근데 축척이 바뀌질 않네요^^
(defun c:sc()
(setq point (getpoint “기준점 :”))
(setq sc (getint “축척 :”))
(setq ent_lst (entget (ssname (ssget “X” ‘((0 . “TEXT”) (1 . “XXX”))) 0)))
(entmod (subst (cons 1 sc) (assoc 1 ent_lst) ent_lst)))
공유