다중 text 수정 Lisp 수정 부탁드립니다.
컨텐츠 정보
- 320 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하십니까? 캐드상에서 여러개의 문자를 클릭하여 순차적으로 수정하는 Lisp을 찾던 중
우연히 발견하게된 Lisp입니다.
본문에서 ddedit 부분을 textedit로 수정하니 error는 사라졌습니다만,
수정하고자 하는 문자 선택이후 1.선택순, 2.글쓰기순의 select 화면을
아예 1.선택순으로 바로 작업이 되도록 하려면
어느 부분을 수정해야 하는지 알려주시면 감사하겠습니다.
그럼, 수고하십시오.
감사합니다.
추신) 1. 원 Lisp 작성자이신 주말농부 님 감사드립니다.
;;====================================================================
; 문자 바꾸기 (92 주말농부)
; ->다중선택후 순서대로 문자을 고치는 명령어
; ->선택순서,글쓰기순서 옵션 추가(2007.4)
; ->전단계 편집하기 추가(2007.5.24)
;;—— text change <@ss_new_lst.lsp> ——————————-
(defun c:tc(/ ss ssn a k en db1)
(prompt " 문자편집하기…")
(setq ss (ssget '((0 . "text")))) (terpri)
(setq a (getstring "n편집순서[선택순(1)/글쓰기순(2)] <선택순>: "))
(if (or (= a "") (= a "1″))
(setq dw " …선택순으로 정렬됨")(progn
(setq ss (@ss_new_lst ss))
(setq dw " …글쓰기순으로 정렬됨")) )
(prompt "nSpace Bar입력=>전단계 편집상태로 돌아감…")
(setq ssn (sslength ss))
(setq k 0)
(while (< k ssn)
(setq en (ssname ss k))
(redraw en 3)
(command "textedit" en "")
(setq db1 (cdr (assoc 1 (entget en))))
(if (and (> k 0) (= db1 " "))
(progn (command "u") (setq k (- k 2))))
(redraw en 4)
(setq k (+ k 1))
)
(prin1))