벌써 한달이 다되어갑니다^lisp접한지가 .여러분께 도움을 많이 받아서 너무나 감사합니다..ㅎㅎ
조금씩해나가긴 한데 참 lisp란 언어가 어렵긴하네요^^
참 질문이요..text내용복사하기인데 아무리 고치고 고쳐도
계속 에러가 납니다^ 어디에서 잘못되었는지^지적 부탁합니다
하루동안 알려도 알수가 없네요^^
이거에요^
그럼 수고하세요
(defun c:text2(/)
(if (setq s1 (entsel “n>> 복사할 text를 선택하십시오 : “))
(progn
(setq txt (cdr (assoc 1 (entget (car s1)))))
(if (setq ss (ssget (list (0 . “text”))))
(setq ea (sslength ss) i 0)
)
(repeat ea
(setq s1 (ssname ss i)
ent (entget s1)
ent (subst (cons 1 txt) (assoc 1 ent) ent)
ent (entmod ent)
)
i (1+ i)
)
(princ (strcat “n>> 바뀐 글자 내용 ==> ” txt ” n”))
))
)