텍스트를 블럭으로 바꾸는 리습인데 각도 조절되게끔 수정부탁드립니다.

(defun c:ttp ()
   (setvar “CMDECHO” 0)
   (setq ps (ssget “x” ‘((0 . “TEXT”))))
   (setq psl (sslength ps))
   (setq i 0)
  (repeat psl
    (setq ssps (ssname ps i))
    (setq psget (entget ssps))
    (setq ass10 (cdr (assoc 10 psget)))
    (setq ass8 (cdr (assoc 8 psget))) 
    (entdel ssps)
    (command “insert” “err” ass10 “” “” “”)
    (setq i (+ i 1))
  )
)

—————————–

열려있는 도면의 문자를  err이라는 블럭으로 자동 변경되는 리습입니다. (err 이라는 블럭이 있어야겠죠)

 문자가 블럭으로 변경될 때  문자들의 방향각을 기준으로 블럭이 생성되게끔 수정이 가능할까요??

지금 현재 위 리습은  문자들의 방향각과 관계없이 무조건 360도(0도) 방향으로 생성됩니다.