CAD展点程序lisp

《CAD展点程序lisp》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CAD展点程序lisp2009年02月17日星期二01:08P.M.（1）依网上资源文件修改的：－－－－－－－－－－－－－－－－－－－－－－CAD展点程序把下文保存到文本文件中，扩展名改为.lsp,按数据格式要求准备好数据点文件。在CAD中加载lsp文件。运行命令：kszd－－－－－－－－－－－－－－－－－－－－－－;LISP展点程序;展1000点：在HP(AMDAthlon643000+256MB)电胶上仅耗时0.142秒；;                   在金利(Geleron(R)CPU2.40GHz256MB)电胶上耗时0.882秒;数据文件格式为：每一点的数据（点号、X、

2、Y、H）为一行，用逗号或空格作为分隔符，即;点号1X1Y1H1或者点号1,X1,Y1,H1;点号2X2Y2H2或者点号2,X2,Y2,H2;点号3X3Y3H3或者点号3,X3,Y3,H3;......;点号nXnYnHn或者点号n,Xn,Yn,Hn1(defunc:kszd()   (setqff(open(getfiled"请选择要展点的数据文件""""txt"2)"r")         fhbnilt0(getvar"cdate")         cm(getvar"cmdecho")os(getvar"osmode")         tcm1"高程注记"tcm2"点记"   

3、)   (setvar"cmdecho"0)(setvar"osmode"0)   (if(=(tblsearch"layer"tcm1)nil)(command"layer""n"tcm1""))   (if(=(tblsearch"layer"tcm2)nil)(command"layer""n"tcm2""))   (while(setqzb(read-lineff))       (while(vl-string-search","zb)(setqzb(vl-string-subst""","zb)))       (setqzb(read(strcat"("zb")"))   

4、                   zb(list(list(nth2zb)(nth1zb))(vl-princ-to-string(lastzb)));注记高程             ;zb(list(list(nth2zb)(nth1zb))(vl-princ-to-string(carzb)));提示：注记点号请用该行             fhb(appendfhb(listzb))       )           )   (setqt1(getvar"cdate"))   (closeff)   (setqzb(vl-sortfhb'(lambda(e1e2)(<(c

5、ar(care1))(car(care2)))))         x0(car(car(carzb)))x1(car(car(lastzb)))         zb(vl-sortfhb'(lambda(e1e2)(<(cadr(care1))(cadr(care2)))))         y0(cadr(car(carzb)))y1(cadr(car(lastzb)))   )   (command"zoom""w"(listx0y0)(listx1y1))   (setqt2(getvar"cdate"))   (foreachzbfhb       (setqzfc(last

6、zb)             ;pt(mapcar'+(carzb)'(1.5-1.25));这行改为如下             pt(carzb)       )       (entmake(list'(0."TEXT")'(100."AcDbEntity")'(100."AcDbText")       '(62.3)'(40.2)'(50.0.0)         ;(cons8tcm1)(cons1zfc)(cons10pt);这行改为如下         (cons8tcm1)(cons1zfc)(cons10(mapcar'+pt'(1.5-1.25)))       

7、              )       )       (entmake(list'(0."OINT")'(100."AcDbEntity")'(100."AcDbPoint")       '(62.2)         (cons8tcm2)(cons10pt)                     )       )   )   (setqt3(getvar"cdate")         dt1(*1000000(-t