gao6690 发表于 2008-3-11 09:44:00

[原创]匹配文字内容

<p>;;;;本程序用于将匹配文字内容</p><p>(defun c:pp()<br/>&nbsp;&nbsp;&nbsp;&nbsp; (print "请选择注记正确的文字：")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (ssget&nbsp; '((0 . "text"))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if ss<br/>&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq ssi (ssname ss 0))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq sse (entget ssi))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq nr (cdr (assoc 1 sse)))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; ) <br/>&nbsp;&nbsp;&nbsp;&nbsp; (print "请需要匹配的文字：")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (ssget&nbsp; '((0 . "text"))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if ss<br/>&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq j 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq len (sslength ss))&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat len<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq ssi (ssname ss j))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq sse (entget ssi))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq sse (subst (cons 1 nr) (assoc 1 sse) sse))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (entmod sse)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq j (+ j 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; ) <br/>)</p>

vlisp2012 发表于 2012-4-8 15:35:09

谁能给个匹配标注文字内容，包括公差的源码？先谢过了
页: [1]
查看完整版本: [原创]匹配文字内容