cad边长提取lisp_用lisp怎么提取cad中文字-内容-*通用符匹配（值 :设定）生成excel文件...

(defun C:WZ ( / n ss &kw L ff %k %k1 %k2 %k3 %k4 %k5 %k6);批量选择文字到记事本

(setvar "cmdecho" 0) ;;关闭变量

(setvar "blipmode" 0);;关闭控制点

(vl-load-com)        ;;加载vlax扩展函数

(setq n 0 ss '())    ;;取得一个空表

(princ "\n请选择文字")

(setq &kw (ssget '((0 . "TEXT,MTEXT") (1 . "*K*"))));选择文字，文字内容有字母K

(if (/= &kw nil);;如果有选择了文字

(progn

(setq L (sslength &kw)

ff (open "d://文字到表格.xls" "w");建立文本;W会把文本里面的内容清除

);;建立的文本在D盘就可以看到

(repeat L

(setq &kw1 (entget (ssname &kw n))

%k1 (cdr (assoc 10 &kw1))  ;;取得文字坐标

%k2 (cdr (assoc 1 &kw1))   ;;取得文字内容

ss (cons (list %k1 %k2) ss);;加入选择集

n (+ n 1)

)

)

(setq ss (vl-sort ss (function (lambda (x y)(

(setq ss (vl-sort ss (function (lambda (x y)(> (cadr (car x)) (cadr (car y)))))));;Y排序

(setq &kw1 (nth 0 ss)

%k1 (car (car &kw1));;取得第一个文字X坐标

%k2 (cadr (car &kw1));;取得Y坐标

%k3 (cadr &kw1);;取得文字内容

n 1

)

(repeat (- L 1)

(setq &kw2 (nth n ss);;取得第二个文字

%k4 (car (car &kw2));;取得X坐标

%k5 (cadr (car &kw2));;取得Y坐标

%k6 (cadr &kw2);;取得内容

%k (- %k2 %k5);;Y高度比较

n (+ n 1)

)

(if (> %k 20)

(progn

(princ %k3 ff);用princ写入的话，就是这个格式

(princ "\n" ff);这个格式就换行

(setq %k1 %k4 %k2 %k5 %k3 %k6)

)

)

(if (and (<= %k 20) (

(progn

(princ %k3 ff)

(princ "\t" ff);这个格式就是在同一行下一个内容

(setq %k1 %k4 %k2 %k5 %k3 %k6)

)

)

(if (and (<= %k 20) (> %k1 %k4))

(progn

(princ %k6 ff)

(princ "\t" ff)

)

)

)

(princ %k3 ff)

(close ff);;关闭文本(结束后必须关闭)

)

)

(prin1);;结束

)

(prompt "\n《C:WZ》文字写入表格")

(prin1)

;以上复制记事本以(.lsp)为后缀命名。这个程序就是一个写入表格的示范