오스냅 해제관련 리습수정 부탁드립니다..

;출처 아키모아 질문 게시판   원 저작자는 모릅니다..
;Line Break  @ Text

(defun c:tbl(/ ssg os cnt off eli ang tip hei thei wid p1 p2 p3 p4 sp1 sp2 sp3 sp4 enl)
 (setvar “cmdecho” 0)
 (command “undo” “be”)
 (setq ssg(ssget ‘((0 . “text”))))
 (setq os (getvar “osmode”)
   cnt 0
   off 0.1  ;trim할때 내부간격조정
 )
 (setvar “osmode” 0)
 (repeat (sslength ssg)
  (setq eli (entget (ssname ssg cnt))
    ang (cdr (assoc 50 eli)) ; 각도
    tip (cdr (assoc 10 eli)) ; 삽입점
    hei (+ (setq thei (cdr (assoc 40 eli)))(* (/ thei 3) 2)) ; 텍스트 높이
    wid (+ (caadr (textbox eli))(* (/ thei 3) 2)) ; 텍스트 폭
    p1 (polar tip (+ ang pi (/ pi 4))(sqrt (* (expt (/ thei 3) 2) 2)))
    p2 (polar p1 ang wid)
    p3 (polar p2 (+ ang (/ pi 2)) hei)
    p4 (polar p1 (+ ang (/ pi 2)) hei)
    sp1 (polar p1 (+ ang (/ pi 4)) off)
    sp2 (polar p2 (+ ang (/ pi 2)(/ pi 4)) off)
    sp3 (polar p3 (+ ang pi (/ pi 4)) off)
    sp4 (polar p4 (+ ang pi (/ pi 2)(/ pi 4)) off)
  )
  (command “pline” p1 p2 p3 p4 “c”)
  (setq enl (entlast))
  (command “trim” “last” “” “F” sp1 sp2 sp3 sp4 sp1 “” “”)
  (entdel enl)
  (setq cnt (1+ cnt))
 )
 (command “undo” “e”)
 (prin1)
)


위 리습인데 리습사용 후 오스냅 해제가되어 수정하고싶습니다..ㅠㅠ

올드모드로 변경수정 해봤는데 리습에러가 나요.. ㅠㅠ