坐标批量展块

自动按坐标展块 DEFUN C:ZK( / FN FI LL I0 II LE X Y ZC) (SETVAR "CMDECHO" 0) (SETVAR "OSMODE" 0);关闭捕捉 (SETQ FN (GETSTRING "请输入文件名: ")) (SETQ FI (OPEN FN "R"));打开文件 (COMMAND "_.UNDO" "_BE") (SETQ LL (READ-LINE FI)) (WHILE LL (SETQ I0 1 II 1 ZC (SUBSTR LL 1 1)) (FLZ);取出一个字段的长度 (SETQ X (A