안녕하세요 많은 정보를 눈팅만 하며 많은 도움을 받고있는 나무집입니다.
이번에도 LISP공부 중 궁금증이 생겨서 이렇게 글을 올립니다. 고수님들의 도움이 필요합니다.
1.한번 그려진 치수의 문자의 각도나 스타일을 바꾸고 싶은데, 엔티티 편집으로 불가능 한건지요.
아무리 책을 뒤져 봐도 모르겠습니다. ㅜ ㅜ
2. DIM 엔티티중
(cons 70 33) <- 이렇게 정의 되어 있는건 무슨 뜻인지 궁금합니다.
-관련 LISP 첨부합니다 –
(defun c:ff( / ks_dimension ss n e en a13 a14)
(defun ks_dimension(pt1 pt2)
(entmake (list (cons 0 “DIMENSION”)
(cons 100 “AcDbEntity”)
(cons 100 “AcDbDimension”)
(cons 10 pt1)
(cons 11 pt2)
(cons 70 33) <— 이 엔티티를 왜 추가하는지 모르겠습니다.
(cons 42 (distance pt1 pt2))
(cons 100 “AcDbAlignedDimension”)
(cons 13 pt1)
(cons 14 pt2)
)
)
)
(setq ss(ssget (list (cons 0 “Dimension”))) n 0)
(repeat (sslength ss)
(setq e(ssname ss n))
(setq en(entget e))
(setq a13 (cdr(assoc 13 en)) a14(cdr(assoc 14 en)))
(ks_dimension a13 a14)
(entdel e)
(setq n (1+ n))
)
(princ)
)
두서없이 적은글 읽어 주셔서 감사합니다. ~~!
공유
아마 제 기억엔 이리습이 치수 보조 선 이 없도록 딱 붙게 하는 리습이였던걸로 기억되네요
답변 너무 감사합니다~~~~ ^_^