캐드 분류
문자 뒷쪽에 M 이란 문자를 삽입하고 싶은데 계속 앞에 생성이 되네요 어떤부분을 고쳐야하는지 확인 부탁드립니다.
컨텐츠 정보
- 267 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
문자 뒤쪽이 아닌 앞쪽에 M이 생성됩니다.
뒷쪽으로 하려면 어떻게 해야할까요.
기존의 파이 추가 리습을 수정했는데요
파이* -> *M 으로 바꿨습니다.
(defun c:mm(/ os ss sslen ass1 otxt ntxt elist k)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(prompt "n M 넣기할 치수나 문자선택 ")
(setq ss (ssget))
(setq sslen (sslength ss) k 0)
(while (< k sslen)
(setq elist (entget (ssname ss k)) )
(setq ass1 (assoc 1 elist) otxt (cdr ass1) )
(if (= otxt "") (setq otxt "<>"))
(if (and (= (wcmatch otxt "*M") nil) (= (wcmatch otxt "*M") nil))
(progn
(setq ntxt (strcat "M" otxt ) elist (subst (cons 1 ntxt) ass1 elist))
(entmod elist)
)
)
(setq k (+ K 1))
)
(setvar "osmode" os)
(prin1)
)
관련자료
댓글 1
/ 1 페이지