홈/ 질문/Q 183421
다음
진행 중
뿌꾸뿌꾸
Lv.1
등록일: 2023-04-11T12:51:39+09:00 카테고리:

두개의 문자내용을 서로 바꿔 주는 리습 있을까요?

안녕하세요.
두개의 문자내용을 서로 바꿔 주는 리습 있을까요?
캐드 드림 프로그램의 TSW 처럼요.

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    6 답변

    1. aalan
    2. Lv.25

      (defun c:TNT (/ #a #b #c #d)
      (vl-load-com)
      (setq #a(vlax-ename->vla-object(car(entsel “nSelect first:”)))
      #b(vlax-ename->vla-object(car(entsel “nSelect second:”)))
      #c(vla-get-textstring #a)
      #d(vla-get-textstring #b)
      )
      (vla-put-textstring #a #d)
      (vla-put-textstring #b #c)
      );;defun

      • 0
    3. Lv.25
      (수정됨)

      2008버젼 제가 쓰고 있는건데……..캐드 종류 버젼에 따른 애러 인것 같네요

      밑에걸루 함 해보세요……..
      (defun C:TNT ()
      (setvar “cmdecho” 0)
      (setvar “blipmode” 0)
      (prompt “n** Text Select **”)
      (setq new-text (entsel)
      text-list (entget (car new-text))
      new-string (cdr (assoc 1 text-list))
      );;end of setq
      (prompt “n** Change Text **”)
      (setq sel (ssget))
      (setq sl (sslength sel))
      (setq cn 0)
      (while (< cn sl)
      (if (= “TEXT” (cdr (assoc 0 (entget (ssname sel cn)))))
      (progn
      (setq ef1 (ssname sel cn))
      (setq el1 (entget ef1))
      (setq el2 (cdr (assoc 1 el1)))
      (setq el3 (strcat new-string))
      (setq el1 (subst (cons 1 el3) (assoc 1 el1) el1))
      (entmod el1)
      (setq cn (+ 1 cn))
      ); progn
      (setq cn (+ 1 cn))
      );if
      );while
      (prin1)
      );defun

      • 0