[Lisp] 치수선 문자 좌우 기입 방법

[리습]

※ 말머리 필수 (말머리 누락시 통보없이 게시 글이 삭제될 수 있습니다.)

※ 회원정보는 최소한 '운영진 공개'로 지정

※ 캐드나 리습 관련 질문일 경우 반드시 캐드 종류와 버전 명기 (ex> 오토캐드2022 / 윈10 64비트)

   <캐드 / 윈도우 종류 및 버전 :    오토캐드   /     윈10 64비트  >

※ 질문은 최대한 성의있고 자세하게 (답변자가 되묻게 질문하지 말아주세요.)

※ 이외는 자유롭게 글 남겨 주시면 됩니다.

왼쪽 치수선 DXF CODE

(-1 . <도면요소 이름: 197e3d0adb0>)(0 . DIMENSION)(330 . <도면요소 이름: 18fcf530020>)(5 . 9604FB)(100 . AcDbEntity)(67 . 0)(410 . Model)(8 . DIM)(100 . AcDbDimension)
(280 . 0)(2 . *D1140) (10 805084.0 224248.0 0.0)(11 805384.0 226073.0 0.0)(12 0.0 0.0 0.0)
(70 . 33)(1 . )(71 . 5)(72 . 1)(41 . 1.0)(42 . 3650.0)(73 . 0)(74 . 0)(75 . 0)(52 . 0.0)(53 . 0.0)(54 . 0.0)(51 . 0.0)(210 0.0 0.0 1.0)(3 . DB)(100 . AcDbAlignedDimension)
(13 805084.0 227898.0 0.0)(14 805084.0 224248.0 0.0)(15 0.0 0.0 0.0)(16 0.0 0.0 0.0)(40 . 0.0)(50 . 0.0)

오른쪽 치수선 DXF CODE
(-1 . <도면요소 이름: 197e3d0ae60>)(0 . DIMENSION)(330 . <도면요소 이름: 18fcf530020>)(5 . 960506)(100 . AcDbEntity)       (67 . 0)(410 . Model)(8 . DIM)(100 . AcDbDimension)
(280 . 0)(2 . *D1141)(10 807847.0 224248.0 0.0)(11 807546.0 226073.0 0.0)(12 0.0 0.0 0.0)
(70 . 33)(1 . )(71 . 5)(72 . 1)(41 . 1.0)(42 . 3650.0)(73 . 0)(74 . 0)(75 . 0)(52 . 0.0)(53 . 0.0)(54 . 0.0)(51 . 0.0)(210 0.0 0.0 1.0)(3 . DB)(100 . AcDbAlignedDimension)
(13 807847.0 227898.0 0.0)(14 807847.0 224248.0 0.0)(15 0.0 0.0 0.0)(16 0.0 0.0 0.0)(40 . 0.0)(50 . 0.0)

화면에서 클릭하여 경사진 치수선을 그리면, 우측과 같이 편하게 읽을 수 있는 방향으로 문자가 기입됩니다. 좌표 지정 순서는 상관없습니다.

상기 두 치수선 DXF CODE를 보면 거의 같은데, 치수선 문자 기입을 강제할 수 있나요?.

특성창에서 문자 뷰 방향보기는 DXF CODE 몇 번인가요? - 이번 문제와는 별개임.

제가 원하는 치수선은 우측과 같은 것입니다.

수고하세요

감사합니다.

[이하늘]

DIM STYLE > 수정 > 문자 > 문자배치

수직 : 위, 뷰방향 : 왼쪽에서 오른쪽으로 ....

* 뷰방향보기 DXF CODE는 51일 것으로 추정합니다.
(51.0,0) 라디안 값

[리습]

DIMSTYLE와 DXF 51번 모두 같습니다.
클릭으로 치수선 지정하면, 상/하 포인터 순서와 상관없이
왼쪽과 같은 치수선을 못만듭니다. 즉, 클릭으로는 모두 우측과 같은 치수선이 생깁니다.
감사합니다.

[이하늘]

;; 텍스터 상하방향 바꾸기

(defun c:dimm_dir(/ sel obj dir chd)
(setq sel(entsel "\nSelect Dimm : "))
(if sel (progn
(setq obj(entget (car sel)))
(setq old(assoc 51 obj))
(setq dir(cdr old))
(if (<= dir pi)
(setq chd(cons 51 (+ dir pi)))
(setq chd(cons 51 (- dir pi)))
)
(setq obj(subst chd old obj))
(entmod obj)
))
)