CAD按坐标批量插入块（一键完成）
1、插件源码（复制到TXT文档中另存为*.lsp）
;----------------------------------------------------------------------------
;说明：根据坐标文件插入已命名的块（批量）。
;坐标点提取：“X坐标,Y坐标”（=D1&","&C1），没有括号；每行一个点，坐标文件为TXT文件。
;本程序接收已定义过的块名，如输入没有定义的块名程序会出错。
;提醒：块命名中间不能有空格，示例：对（xxx）错（xx x）
;加载后输入CHK执行批量插入命令
;----------------------------------------------------------------------------
(defun c:chk()
(setvar "cmdecho" 0)
(setq fil (getfiled "请选择点坐标文件" "" "txt" 0))
(setq name_block (getstring ">>>>>>>>提示您：\n\r请输入要插入的块的名称 :"))
(setq x (open fil "r"))
(setq oldcolor (getvar "cecolor"))
(setvar "cecolor" "1")
(setvar "osmode" 0)
(setq p1 (read-line x))
(setq pt p1)
(command "_.insert" name_block p1 "" "" "")
(command)
(while (setq p1 (read-line x))
(command "_.insert" name_block p1 "" "" "")
(command)
)
(close x)
(setvar "cecolor" oldcolor)
(prompt "\n\n>>>>>>>>执行完毕\n\r")
)
2、示例坐标（x,y）【主要是给大家演示】
504494.687,3038472.002（开始）
504494.796,3038471.359
504494.732,3038470.779
504494.545,3038469.972
504494.259,3038469.636
504494.287,3038469.437
504493.612,3038468.825
504493.062,3038468.512
504492.512,3038468.295
504491.776,3038468.111
504490.977,3038467.913
504490.314,3038467.606
504489.867,3038467.599
504494.687,3038472.002（闭合）
数据保存至txt文档中（到时批量插入需要用）
504494.687,3038472.002
504494.796,3038471.359
504494.732,3038470.779
504494.545,3038469.972
504494.259,3038469.636
504494.287,3038469.437
504493.612,3038468.825
504493.062,3038468.512
504492.512,3038468.295
504491.776,3038468.111
504490.977,3038467.913
504490.314,3038467.606
504489.867,3038467.599
创建自己需要的块
3、具体步骤输入CHK，弹出选择数据TXT文档
4、输入块名称（块名称命名中间不能有空格号）
示例命名：ys
