캐드 분류
글자 리습
컨텐츠 정보
- 397 조회
- 7 댓글
- 0 추천
- 0 비추천
- 목록
본문
고수님들 매번 신경써줘서 고맙습니다
글자리습에 대한질문인데 랜덤형식이 아닌 상하좌우로 가령 왼쪽에서 오른쪽으로 밑에서 위로 예전에 드림에 이기능이 있던데
64비트로 넘어오는 바람에 사용을 못하네요
아래 리습은 순차적으로 랜덤으로 하는 리습인데 이걸 차례대로 상하나 좌우나 이렇게 옵션을 붙여서 사용할수 있는 리습이 없나요
(defun c:SED(/ ss ssn a k en db1)
(prompt "n선택순으로 문자편집 또는 <글쓰기순>:")
(setq ss (ssget '( (-4 . "
(-4 . "
(-4 . "AND>")(-4 . "OR>") ) ))(terpri)
(if (= ss nil) (progn
(prompt "n글쓰기순으로 문자편집하기…")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(setq ssnew (@ss_new_lst ss))
(setq ss ssnew) )
)
(prompt "nSpace Bar입력=>전단계 편집상태로 돌아감…")
(setq ssn (sslength ss))
(setq k 0)
(while (< k ssn)
(setq en (ssname ss k))
(setq tem (cdr (assoc 0 (entget en))))
(if (= tem "TEXT") (redraw en 3))
(command "ddedit" en "")
(setq db1 (cdr (assoc 1 (entget en))))
(if (and (> k 0) (= db1 " "))
(progn (command "u") (setq k (- k 2))))
(if (= tem "TEXT") (redraw en 4))
(setq k (+ k 1))
)
(prin1))
관련자료
댓글 7
/ 1 페이지
상큼메론90님의 댓글
그리고 (setq ss-x2 (vl-sort ss-x1 '(lambda (e1 e2) (> (cadr e1) (cadr e2)))) ) <– 에서 >를 수정하세요 (setq ss-y2 (vl-sort ss-y1 '(lambda (e1 e2) (> (cadr e1) (cadr e2)))) ) <– 에서 >를 수정하세요
라고 한것은
> 이거나 <, < 이거나 >, > 이거나 >, 등등등 여러가지로 이리저리 바꾸면, 선택방법이 x y 축이 크기방향으로 되든지 적은 방향으로 된다는 얘기입니다.
즉, 아래서 위로, 우에서 좌로 위에서 아래로, 좌에서 우로, 등등등
직접 바꾸면서, 테스트를 해 보세요. 어떻게 달라지는지~~~
이것은 질문자님 맘대로, 바꾸시라는 얘기였어요…
…떡실신~