레이어를전부on시키는 리습인데 어디가잘못된나봐요
좀봐주세요..
(defun c:AA (/ an)
(setvar “cmdecho” 0)
(princ ” = LAYER ALL ON”)
(command “.LAYER” “ON” “*” “”)
(setvar “cmdecho” 1)
(prin1)
)
또하나있거든용 r14에서 이상없이쓰는것인데 2002에서는안되네요
어디가문제인지좀봐주세요..
(defun txt-err(er) ;——————– Error handling
(if (/= er “Function cancelled”)
(princ (strcat “nError: ” er))
)
(setq *error* olderr)
(prin1)
)
(defun c:ED (/ en nl i et et1 n txt t-d e2)
(setq olderr *error* *error* txt-err)
(prompt “Select Text”)
(setq en (ssget))
(setq nl (sslength en))
(setq i 0)
(setq n (- nl 1))
(while (<= i n)
(setq e2 (ssname en i))
(redraw e2 3)
(setq txt (cdr (assoc 1 (entget e2))))
(setq t-d (cdr (assoc 0 (entget e2))))
(if (or (= t-d “TEXT”) (= t-d “DIMENSION”) (= t-d “MTEXT”))
(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” )
(entmod (subst (cons 1 txtt) (assoc 1 (entget e2)) (entget e2)))
)
((= t-d “DIMENSION” )
(command “dim1” “newtext” txtt e2 “”)
)
((= t-d “MTEXT” )
(entmod (subst (cons 1 txtt) (assoc 1 (entget e2)) (entget e2)))
)
)
(redraw e2 5)
)
);if
);progn
);if
(setq i (+ 1 i))
(redraw e2 5)
);while
(setq *error* olderr)
)
이상2가지인데 고수님들조언부탁드려요……