(급) 캐드리습 한번 봐주세요..ㅠㅠ
컨텐츠 정보
- 250 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
(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