cad展点插件lisp使用_LISP快速展点程序

;LISP展点程序

;展1000点：在HP(AMD

Athlon64  3000+  256MB)电胶上仅耗时0.142秒；

;                    在金利(Geleron(R) CPU

2.40GHz

256MB)电胶上耗时0.882秒

;数据文件格式为：每一点的数据(点号、X、Y、H)为一行，用逗号或空格作为分隔符，即

;点号1  X1  Y1

H1   或者 点号1,  X1,  Y1, H1

;点号2  X2  Y2 H2   或者 点号2,  X2,  Y2,

H2

;点号3  X3  Y3 H3   或者 点号3,  X3,  Y3, H3

;......

;点号n  Xn  Yn Hn   或者

点号n,  Xn,  Yn, Hn1

(defun c:kszd()

(setq  ff (open (getfiled "请选择要展点的数据文件" "" "txt" 2) "r")

fhb nil  t0 (getvar "cdate")

cm (getvar "cmdecho") os (getvar "osmode")

tcm1 "高程注记"   tcm2 "点记"

)

(setvar "cmdecho" 0)(setvar "osmode" 0)

(if (= (tblsearch "layer" tcm1) nil) (command "layer" "n" tcm1 &