캐드를 하는데 ed가 안되고 있거든요…
이런 메세지만 뜨고…
Command: ed Select Text
Select objects: 1 found
Select objects: error: quit / exit abort
(EXIT)
(IF (NOT (NEW_DIALOG “ED” DCL)) (EXIT))
(PROGN (SETQ DCL (LOAD_DIALOG “ED.dcl”)) (IF (NOT (NEW_DIALOG “ED” DCL))
(EXIT)) (SET_TILE “t_c” TXT) (ACTION_TILE “t_c” “(setq et1 $value)”) (SETQ OK
(START_DIALOG)) (UNLOAD_DIALOG DCL) (IF (= 1 OK) (PROGN (IF (= ET1 nil) (SETQ
TXTT TXT) (SETQ TXTT ET1)) (COND ((= T-D “TEXT”) (COMMAND “change” E2 “” “” “”
“” “” “” TXTT)) ((= T-D “DIMENSION”) (COMMAND “dim1” “newtext” TXTT E2 “”))))))
(IF (OR (= T-D “TEXT”) (= T-D “DIMENSION”)) (PROGN (SETQ DCL (LOAD_DIALOG
“ED.dcl”)) (IF (NOT (NEW_DIALOG “ED” DCL)) (EXIT)) (SET_TILE “t_c” TXT)
(ACTION_TILE “t_c” “(setq et1 $value)”) (SETQ OK (START_DIALOG)) (UNLOAD_DIALOG
DCL) (IF (= 1 OK) (PROGN (IF (= ET1 nil) (SETQ TXTT TXT) (SETQ TXTT ET1)) (COND
((= T-D “TEXT”) (COMMAND “change” E2 “” “” “” “” “” “” TXTT)) ((= T-D
“DIMENSION”) (COMMAND “dim1” “newtext” TXTT E2 “”)))))))
(WHILE (<= I N) (SETQ ED (ENTGET (SETQ E2 (SSNAME EN I)))) (SETQ TXT (CDR
(ASSOC 1 ED))) (SETQ T-D (CDR (ASSOC 0 ED))) (IF (OR (= T-D “TEXT”) (= T-D
“DIMENSION”)) (PROGN (SETQ DCL (LOAD_DIALOG “ED.dcl”)) (IF (NOT (NEW_DIALOG
“ED” DCL)) (EXIT)) (SET_TILE “t_c” TXT) (ACTION_TILE “t_c” “(setq et1 $value)”)
(SETQ OK (START_DIALOG)) (UNLOAD_DIALOG DCL) (IF (= 1 OK) (PROGN (IF (= ET1
nil) (SETQ TXTT TXT) (SETQ TXTT ET1)) (COND ((= T-D “TEXT”) (COMMAND “change”
E2 “” “” “” “” “” “” TXTT)) ((= T-D “DIMENSION”) (COMMAND “dim1” “newtext” TXTT
E2 “”))))))) (SETQ I (1+ I)))
(C:ED)
*Cancel*
이유가 궁금합니다.
그리고 어떻게 해야 하는지 가르쳐 주세요.
^^;
윽 리숩이당 쿵
ed.dcl 파일이 있습니까? 그게 없다고 나오는거 같은데 찾아보시고 없으면 copy해 넣으셔야 됩니다.
감사합니다. 그런데요… ed.dcl파일을 어디서 다운 받아야 하나요? 부탁드립니다.ㅡㅡ;