선택순으로 문자편집 lisp (2018로 바꾼후 안되네요.)
컨텐츠 정보
- 179 조회
- 0 추천
- 0 비추천
- 목록
본문
1. DDEDIT 선택순으로 문자 편집하기
2.폰트없는 글씨 다른 폰트로 한꺼번에 바꾸는 리습
그 전에는 아무탈 없이 사용했었는데 CAD2018버전으로 바꾸고 나서 어디서 충돌이 나는지 모르겠는데 골치아프네요. ㅜㅜ
리습이 뭐가 잘못 된건지 확인 부탁드립니다.
—————————————————————————————–
(defun c:dd(/ 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))
————————————————————-
(defun C:tt()
(setq !Style (tblnext "STYLE" T))
(while !Style
(setq !Style (strcase (cdr (assoc 2 !Style))))
(command "style" !Style "HY울릉도M.SHX" "0″ "0.9″ "0″ "N" "N")
(setq !Style (tblnext "STYLE"))
)
)
————————————————————————