【文件属性】:
文件名称:坐标批量展块
文件大小:822B
文件格式:LSP
更新时间:2016-05-30 02:37:04
坐标 块 批量展
自动按坐标展块
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))
)