멜론90님 헬프요 ^^ 블럭 스케일 조정 리습 해결 문의

멜론90님이 만들어주신 리습 잘 쓰고 있습니다.

다시 한번 감사의 말씀 전해 봅니다.

그런데 퍼지를 하면 리습은 적용이 되었다고 하는데 치수를 넣어 보면 스케일이

변경이 되질 않네여… 왜그런지 시간 여유가 되신다면 한번더 수정 부탁 드려봅니다.

저희 도각 첨부 해봅니다.

(defun c:ss (/ fact entype ed el name)
 (while (/= entype "INSERT")
 (setq el nil)
 (while (= el nil)
 (setq el (car (entsel "nt블록 선택 :")))
 )
 (setq ed (entget el))
 (setq entype (cdr (assoc 0 ed)))
 )
 (princ (cdr (setq name (assoc 2 ed))))
 (setq fact (cdr (assoc 41 ed)))
 (princ "nt블록 스케일은 : ") (princ fact)
 (setvar "dimscale" fact)
 (princ "nt딤 스케일 : ")(princ fact)(princ "이지롱. ")
 (princ)
)



;;;