치수선 정렬 되는 딤스타일? 안되는 스타일?

아래와 같은 리습을 사용하는데

첨부 파일처럼 같은 스타일인데도 되는게 있고 안되는게 있어서 어떤것이 문제인지 확인좀 부탁
드려요.


;;========================================================
;  치수보조선 정렬하기(2004.3 주말농부)
;  ->Dim의 치수보조선 끝을 일정하게 정렬하는 명령어
;  ->사선으로된 치수선도 정렬됨(2007.4)
;;—— Dimension Arrange ——————————-
(defun c:da(/ ss ssn k ed p10 p13 p14 ag ag90 pt1 pt2 pt3)
(prompt ” 치수보조선 정렬하기…”)
(prompt “n변경할 치수을 선택->”)
   (setq ss (ssget ‘((0 . “DIMENSION”))))
   (setq pt1 (getpoint “n정렬점 선택->”))
   (setq ssn (sslength ss))
   (setq ed (entget (ssname ss 0)))
   (setq p14 (cdr (assoc 14 ed)))
   (setq p10 (cdr (assoc 10 ed)))
   (setq ag (angle p14 p10))
   (setq ag90 (+ ag (/ pi 2)))
   (setq k 0)
(repeat ssn
   (setq ed (entget (ssname ss k)))
   (setq p13 (cdr (assoc 13 ed)))
   (setq p14 (cdr (assoc 14 ed)))
   (setq p10 (cdr (assoc 10 ed)))
   (setq pt2 (polar pt1 ag90 100))
   (setq pt3 (polar p13 ag 100))
   (setq pt14 (inters pt1 pt2 p14 p10 nil))
   (setq pt13 (inters pt1 pt2 p13 pt3 nil))
   (setq ed (subst (cons 13 pt13) (assoc 13 ed) ed))
   (setq ed (subst (cons 14 pt14) (assoc 14 ed) ed))
   (entmod ed)
   (setq k (+ k 1))
)
(prin1))