根据点坐标文件(txt)插入块(AutoLISP源码)——好用的AutoCAD工具

;----------------------------------------------------------------------------
;说明：根据坐标文件插入已命名的块。
;坐标点形如：“X坐标,Y坐标”，没有双引号；每行一个点，坐标文件为TXT文件。
;本程序接收已定义过的块名，如输入没有定义的块名程序会出错。
;----------------------------------------------------------------------------
(defun c:chk()
(setvar "cmdecho" 0)
(setq fil (getfiled "选择点坐标文件" "" "txt" 0))
(setq name_block (getstring ">>>>>>>>输入要插入的块的名称 :"))
(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>>>>>>>>在百度文库查找 in_city，下载更多Autolisp程序。")
)