(DEFUN C:DDW(/ INDEX INDEX1 D1 D2 SOURCE_TXT)
(SORT_AXIS)
(SETQ ZZ SORT_TEMP)
(PRINC “n SORTTING COMPLETE!”)
(SETQ INDEX 0 INDEX1 0)
(REPEAT (LENGTH ZZ)
(SETQ D1 (NTH INDEX ZZ))
(REPEAT (LENGTH D1)
(SETQ D2 (NTH INDEX1 D1))
(REDRAW D2 3)
(SETQ DXF (ENTGET D2))
(SETQ SOURCE_TXT(CDR(SETQ TXT_CODE (ASSOC 1 DXF))))
(SORT_DCL SOURCE_TXT)
(PRINC “n TEXT CHANGE EDITTING!”)
(SETQ INDEX1 (1+ INDEX1))
);REPEAT
(SETQ INDEX (1+ INDEX) INDEX1 0)
);REPEAT
(PRINC “n CORRECT TEXT SUCCESSFUL!”)
(PRINC)
);DEFUN
연속 텍스트 수정 리습인데….않돼요?? 뭐가 잘못됐나요???
이거 하면
THE PRESENT TIME SORTTING!
SORTTING COMPLETE!
TEXT CHANGE EDITTING!
TEXT CHANGE EDITTING!
TEXT CHANGE EDITTING!
TEXT CHANGE EDITTING!
TEXT CHANGE EDITTING!
TEXT CHANGE EDITTING!
TEXT CHANGE EDITTING!
CORRECT TEXT SUCCESSFUL!
이렇게 나오는데…ㅠㅠ 전에는 잘돼다가 않돼네요????알려주세요..