资源大小: 822B
发布时间: 2013-05-10
文件格式: none
下载次数: 2
分享到:

下载地址:

下载地址1
(本站为飞网专业下载站,域名:down.cfei.net)

资源简介:

自动按坐标展块DEFUN C:ZK( / FN FI LL I0 II LE X Y ZC) (SETVAR "CMDECHO" 0) (SETVAR "OSMODE" 0);关闭捕捉 (SETQ FN (GETSTRING "请输入文件名<*.txt>: ")) (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 (ATOF (SUBSTR LL I0 LE)));读取X坐标 (FLZ) (SETQ Y (ATOF (SUBSTR LL I0 LE)));读取Y坐标 (FLZ) (COMMAND "_INSERT" "C:\\GC200.DWG" (LIST Y X 0) 1 1 0 ) (SETQ LL (READ-LINE FI)) )


飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。