프로그램
캐드 분류

텍스트 뒤에 붙이기 말고 수정했으면합니다.

컨텐츠 정보

  • 287 조회
  • 4 댓글
  • 0 추천
  • 0 비추천
  • 목록

본문

텍스트 뒤에 붙이기 말고 전체 바꾸기 했으면합니다.

(defun c:TxtUpdate ( / *error* _read

dcfilename strfilename strlst ss dctag ptr dcflag str )

;; © Lee Mac 2010

(setq dcfilename “txtUpdate.dcl” ;; DCL Filename

Strfilename “txtUpdate.txt” ;; Data Filename

)

(defun *error* ( msg )

(and dcTag (unload_dialog dcTag))

(or (wcmatch (strcase msg) “*BREAK,*CANCEL*,*EXIT*”)

(princ (strcat “\n** Error: ” msg ” **”)))

(princ))

(defun _read ( file / ofile lst nl )

(cond ( (setq ofile (open file “r”))

(while (setq nl (read-line ofile))

(setq lst (cons nl lst)))

(close ofile)))

(reverse lst)

)

(cond ( (not (setq Strfilename (findfile Strfilename)))

(princ “\n** Data File not Found **”))

( (not (setq StrLst (_read Strfilename)))

(princ “\n** Data File Empty **”))

( (not (setq ss (ssget “_:L” ‘((0 . “*TEXT”))))))

( (<= (setq dcTag (load_dialog dcfilename)) 0)

(princ “\n** Dialog Definition Not Found **”))

( (not (new_dialog “txtupdate” dcTag))

(princ “\n** Dialog Could not be Loaded **”))

(t

(start_list “lst”)

(mapcar (function add_list) StrLst)

(end_list)

(set_tile “dcltitle” “Text Notes”)

(setq ptr (set_tile “lst” “0”))

(action_tile “lst” “(setq ptr $value)”)

(setq dcFlag (start_dialog) dcTag (unload_dialog dcTag) Str (nth (atoi ptr) StrLst))

(if (= 1 dcFlag)

(

(lambda ( i / ent )

(while (setq ent (ssname ss (setq i (1+ i))))

(entupd

(cdr

(assoc -1

(entmod

(subst (cons 1 (strcat (cdr (assoc 1 (entget ent))) str)) (assoc 1 (entget ent)) (entget ent))

)

)

)

)

)

)

-1

)

(princ “\n*Cancel*”)

)

)

)

(princ)

)

아래로 파일 올립니다.

http://naver.me/xw9w3fGl

관련자료

댓글 4 / 1 페이지

수야12님의 댓글

이게 뭔지 모르겠지만 (subst (cons 1 (strcat (cdr (assoc 1 (entget ent))) str)) <= 여기를 (subst(cons 1 str)) 이렇게 바꿔보세요 그냥 대충 찍은겁니다 뒤에 붙인다라는 개념이고 거기에 쓰이는 함수가 strcat 이넘이니 이곳을 날려버리면 될거 같아서요 그렇지 않아도 다음카페 답글 달라고 했는데 올리신 게시글이 없어졌네요?? 어차피 거기나 여기나 활동하는 사람들은 같다는거 ㅎㅎ;;

픽키님의 댓글

봐주셔서 감사합니다. 다음카페에 너무 많이 질문을 해서 그런가 해서 매그니로 ^^ 답글처럼 해보았는데 않되는것 같아서 파일도 같이 올려 봅니다.

픽키님의 댓글

감사합니다. 잘됩니다. 어떻게 감사 인사를 드려야 할지 모르겠습니다. 그럼 즐거운 하루되세요 ^^

전체 7,492 / 1 페이지
RSS
번호
제목
이름

최근글


새댓글


알림 0