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"))

3、具体步骤输入CHK，弹出选择数据TXT文档