캐드(AutoCAD) AutoLisp 강좌 예제 - 문자 정렬 하기 (상하, 좌우 정렬)

캐드(AutoCAD) AutoLisp 강좌 예제 - 문자 정렬 (상하, 좌우 정렬) AutoCAD 도면을 작업하다보면, 문자 (Text, MText)의 상하, 좌우 정렬을 일괄적으로 할 때가 있습니다. 아래의 각 정렬을 위한 간단한 AutoLisp 코드 예제입니다. 좌측 정렬 프로그램 (명령 : left-align()) (defun c:left-align () (setq ref-text (car (entsel "\n기준이 되는 텍스트를 선택하세요: "))) ; 기준 텍스트 선택 (if ref-text (progn (setq ref-data (entget ref-text)) (setq ref-x (car (cdr (assoc 10 ref-data)))) ; 기준 텍스트의 X 좌표 가져오기 (setq ss (ssget '((0 . "TEXT,MTEXT")))) ; 정렬할 텍스트 선택 (if ss (progn (setq count (sslength ss)) (repeat count (setq ent (ssname ss (setq count (1- count)))) ; 선택한 엔티티 가져오기 (setq ent-data (entget ent)) (if (and (not (= (cdr (assoc 0 ent-data)) "TEXT")) ...