고수님들 매번 신경써줘서 고맙습니다
글자리습에 대한질문인데 랜덤형식이 아닌 상하좌우로 가령 왼쪽에서 오른쪽으로 밑에서 위로 예전에 드림에 이기능이 있던데
64비트로 넘어오는 바람에 사용을 못하네요
아래 리습은 순차적으로 랜덤으로 하는 리습인데 이걸 차례대로 상하나 좌우나 이렇게 옵션을 붙여서 사용할수 있는 리습이 없나요
(defun c:SED(/ ss ssn a k en db1)
(prompt “n선택순으로 문자편집 또는 <글쓰기순>:”)
(setq ss (ssget ‘( (-4 . “<OR”)(0 . “TEXT,MTEXT,DIMENSION,ATTDEF”)
(-4 . “<AND”)(0 . “INSERT”)(66 . 1)
(-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입력=>전단계 편집<U>상태로 돌아감…”)
(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))
상큼메론님 감사합니다. ^^
드림 유료화 되면서 64bit도 사용가능해 졌습니다.