(급) 캐드리습 한번 봐주세요..ㅠㅠ

(defun c:textReplace()

 

  (vl-load-com)

 

  (setq filename  (getvar “dwgname”))

  (setq filename (strcase filename))

  (setq filename (vl-string-subst “TXT” “DWG” filename))

  (setq filename (strcat (getvar “dwgprefix”) filename))

  (setq entFnn (open filename “w”))

  (princ filename)

 

    (setq ss (ssget “c” (list 571 134 0) (list 825 579 0)))

    (setq n (sslength ss))

    (setq k 0)

    (while (<= 1 n)

      (setq en (ssname ss k))

      (if (eq (cdr (assoc 0 (entget en))) “TEXT”)

          (progn

            (setq ent1 (assoc 1 (entget en)))

            (setq txt1 (cdr ent1))

            (princ “n”)

            (princ txt1)

            (princ “>>>>”)

            (princ degVal)

            (write-line txt1 entFnn)

           )

        )

      (setq n (- n 1))

      (setq k (+ k 1))

    )

 (close entFnn)

  (princ)

)

 

여기서 부터는 결과물 입니다

아래보시면 순서가 역순으로 나와…15…14…13..이렇게요…

1…2..3…. 순서로 나오게 하려면 어찌하면 될까요..

 

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

AAA3

                                                                                CONT. ON DRG 2

         B18.2.2 –  65 mm Length

         A193GR.B7/A194GR.2H ASME B18.2.1/ASME

15   STUD BOLT(FULL THREADED)/HEX.NUT(HEAVY)    1/2       I35795617           4

         B18.2.2 –  85 mm Length

         A193GR.B7/A194GR.2H ASME B18.2.1/ASME

14   STUD BOLT(FULL THREADED)/HEX.NUT(HEAVY)    5/8       I35795801           8

      BOLTS

         MM ASME B16.21  1

13   JOINT SHEET GASKET (G121) CL.150 RF 1.5    1         I524369463          1

         MM ASME B16.21  2

12   JOINT SHEET GASKET (G121) CL.150 RF 1.5    2         I524369465          2

      GASKETS

         S-80

11   FLANGE SW A105 CL.150 RF ASME B16.5  1     1         I34391439           1

         S-80

10   FLANGE WN A105 CL.150 RF ASME B16.5  2     2         I7570849            1

      FLANGES

          .75

9    90 DEG ELBOW A105 CL.3000 SW ASME B16.11   3/4       I4472928            2

         B16.11  .75

8    PLUG (ROUND HEAD) A105 – THRD ASME         3/4       I35812042           1

      FITTINGS

         S-80

7    PIPE A106GR.B SMLS PE ASME B36.10M  .75    3/4       I305200            0.7 M

         S-80

6    PIPE A106GR.B SMLS PE ASME B36.10M  1      1         I305209            0.1 M

      PIPE

NO    DESCRIPTION                               (IN)        CODE                             CLASS

PT                                              SIZE       MATERIAL           QTY            PIPING

        FIELD MATERIALS

         S-80

5    FLANGE WN A105 CL.150 RF ASME B16.5  2     2         I7570849            1

      FLANGES

         B16.9  2 S-80

4    90 DEG ELBOW A234GR.WPB SMLS BW ASME       2         I1938251            6

         2 S-80 X .75

3    SOCKET OUTLET A105 CL.3000 SW MSS SP-97    2X3/4     I5939629            2

         B16.9  2 S-80 X 1 S-80

2    CON REDUCER A234GR.WPB SMLS BW ASME        2X1       I4834248            1

      FITTINGS

         B36.10M  2 S-80

1    PIPE API5LGR.B PSL1 ERW-HFW BE ASME        2         I893660620        12.6 M

      PIPE

NO    DESCRIPTION                               (IN)        CODE                             CLASS

PT                                              SIZE       MATERIAL           QTY            PIPING

        SHOP MATERIALS

FOR CONSTRUCTION

FOR CONSTRUCTION