(defun gencnvrt-start(/ foo olderr) (setq foo(getfiled(genmsg"gencvt"1)"p:/autocad/vorlagen/mdt6/conv/genam""ccf"2))(defun locstop(st /) nil )(setq olderr nil)(cond (foo (gencvtsetname foo"ccf")(gencvtstorefile foo"ccf")(gencvtdel"gencnvrt.log"))(T  (setq olderr(genseterror locstop))(command"_.SCRIPT")(command)(quit)))(if olderr(setq *error* olderr)) genretdum ) (defun gencnvrt( / foo)(setq foo(gencvtgetname))(cond ((/="errcode"(load foo"errcode"))(if gencvtspecial(gencvtspecial))))(genlaycvt)(command"_.resume") genretdum ) (defun gencnvrt-last()(gencnvrt)(command"_.regenall") genretdum ) (defun gencnvrt-showfile(fname / fp)(cond ((= 1(gendcleasydialog (genmsg"genezdcl"103)"question" (strcat(genmsg"gencvt"2)" '"fname"'?") (genmsg"genezdcl"3)(genmsg"genezdcl"4))) (setq fp(open fname"r"))(cond ((not genlade)(load"acad")(s::startup)))(cond (fp      (genlade"gen""gendcl"gendclnew)(gendclload"gen""gencnvrt")(gendclnew"gencnvrt""show_textfile")      (set_tile"title" (strcat (genmsg"gencvt"6)" '"fname"'"))(start_list"textlist")(while(setq a(read-line fp))(if(/=""a)(add_list a)))(end_list)(close fp)  (gendclaction"gencnvrt""show_textfile""accept""(gendcldone)") (gendclstart)     )(T (gendcleasydialog (genmsg"genezdcl"101)"bomb" (strcat (genmsg"gencvt"3) fname (genmsg"gencvt"4)) (genmsg"genezdcl"1) ))))(T (gendcleasydialog (genmsg"genezdcl"102)"info" (genmsg"gencvt"5)"OK"))) ) (defun GENCONVERT()(gen1sv)(gencnvrt-start)(setq foo(gencvtgetname))(cond ((/="errcode"(load foo"errcode"))(if gencvtspecial(gencvtspecial))))(genlaycvt 1)    genretdum (gen1un)) (amgsetfunhelp"c:amconvdwg""am""amconvdwg")