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.6呖分甾胗87,3038472.002（开始）504494.796,3038471.359504494.732,3038470.779504494.545,3038469.972504494.259,3038469.636504494.287,3038469.437504493.612,3038468.825504493.062,3038468.512504492.512,3038468.295504491.776,3038468.111504490.977,3038467.913504490.314,3038467.606504489.867,3038467.599504494.687,3038472.002（闭合）数据保存至txt文档中（到时批量插入需要用）504494.687,3038472.002504494.796,3038471.359504494.732,3038470.779504494.545,3038469.972504494.259,3038469.636504494.287,3038469.437504493.612,3038468.825504493.062,3038468.512504492.512,3038468.295504491.776,3038468.111504490.977,3038467.913504490.314,3038467.606504489.867,3038467.599创建自己需要的块
3、具体步骤输入CHK，弹出选择数据TXT文档
4、输入块名称（块名称命名中间不能有空格号）示例命名：ys
