캐드 분류
안녕하세요? 글자 정렬 리습 수정조언 부탁드려용~
컨텐츠 정보
- 606 조회
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요? 캐드실무자 입니다. 이번 프로젝트가 복사 프로젝트라서 단순작업을 많이 하는데요~
글자가 정렬되서 기준점으로 가서 달라붙게 하고 싶어서 글을 올립니다~ 그리고 리습문구에서 숫자로
기준점과 떨어지는 거리를 조절하고 싶습니다~ 이리습은 제 힘으로는 좀 힘들어서도움을 요청하고 싶
습니다. 조금의 수정은 가능한데 제가 만들고 싶은 리습은 너무 어렵네요요~
매일 야근으로 힘이 드네요. 많은 답변 기다릴게요 감사합니다 도와주세여~
(defun c:TTT(/ myerror os ss n ptx pty pyxy kw k en tx a)
;start — Internal error handler —————————–
(defun myerror(S)
(if (/= s "Function cancelled")(princ (strcat "nError:" s)))
(setvar "osmode" os) (setvar "blipmode" bl)
(setq *error* olderr)(princ) )
(setq olderr *error* *error* myerror)
;end———————————————————–
(setq os (getvar "osmode"))
(prompt " 문자 좌우 정렬하기…")
(setq ss (ssget '((0 . "text")))) (terpri)
(setq n (sslength ss))
(setq ptx (car (getpoint "n좌우정렬점 선택->")))(terpri)
(setvar "osmode" 0)
(setq a "자리맞추기 선택[왼쪽(L)/중심(C)/중간(M)/오른쪽(R)] <왼쪽>: ")
(initget "Left Center Middle Right Middle Center")
(setq kw (getkword a))
(if (= kw nil) (setq kw "Left"))
(if (= kw "Left") (setq sn 10) (setq sn 11))
(command "justifytext" ss "" kw) (terpri)
(setq k 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq ptxy (cdr (assoc 10 (entget en))) )
(setq pty (cadr ptxy))
(setq pt2 (list ptx pty))
(entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en)))
(setq n (- n 1))
(setq k (+ k 1))
)
(setvar "osmode" os)
(princ)
)
;start — Internal error handler —————————–
(defun myerror(S)
(if (/= s "Function cancelled")(princ (strcat "nError:" s)))
(setvar "osmode" os) (setvar "blipmode" bl)
(setq *error* olderr)(princ) )
(setq olderr *error* *error* myerror)
;end———————————————————–
(setq os (getvar "osmode"))
(prompt " 문자 좌우 정렬하기…")
(setq ss (ssget '((0 . "text")))) (terpri)
(setq n (sslength ss))
(setq ptx (car (getpoint "n좌우정렬점 선택->")))(terpri)
(setvar "osmode" 0)
(setq a "자리맞추기 선택[왼쪽(L)/중심(C)/중간(M)/오른쪽(R)] <왼쪽>: ")
(initget "Left Center Middle Right Middle Center")
(setq kw (getkword a))
(if (= kw nil) (setq kw "Left"))
(if (= kw "Left") (setq sn 10) (setq sn 11))
(command "justifytext" ss "" kw) (terpri)
(setq k 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq ptxy (cdr (assoc 10 (entget en))) )
(setq pty (cadr ptxy))
(setq pt2 (list ptx pty))
(entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en)))
(setq n (- n 1))
(setq k (+ k 1))
)
(setvar "osmode" os)
(princ)
)
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
