线头尾两端各插入块lisp_根据点坐标文件(txt)插入块(AutoLISP源码)——好用的AutoCAD工具...

用于多段线坐标点导出,和导入坐标点成多段线(自动成封闭多边形)。 使用方法： 1.将“文件名.txt”更名为“文件名.lsp”; 2.在AutoCAD中点击“工具”,选择“Autolisp(s)”,再选择“加载应用程序”,加载“文件名.lsp”; 3.在AutoCAD中命令行中输入“chk”。随后按提示选择点文件(X坐标,Y坐标),再输入已定义块的名称即可。

;----------------------------------------------------------------------------

;说明：根据坐标文件插入已命名的块。

;坐标点形如：“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)

)

(clos

e x)

(setvar "cecolor" oldcolor)

(prompt "\n\n>>>>>>>>在百度文库查找 in_city，下载更多Autolisp程序。")

)