liminnet 发表于 2008-6-8 15:59:00

liminnet 发表于 2008-6-8 18:13:00

sailorcwx 发表于 2008-6-8 19:13:00

(defun c:test(/ CLCURRENT INTINDEX LSTPOINTS LYCURRENT PLENT SLTCURRENT SLTTEMP)<br/>&nbsp; (if (setq sltCurrent (ssget '((0 . "LWPOLYLINE"))))<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lyCurrent (getvar "CLAYER")<br/>&nbsp;&nbsp;&nbsp;&nbsp; clCurrent (cdr (assoc 62 (tblsearch "LAYER" lyCurrent)))<br/>&nbsp;&nbsp;&nbsp;&nbsp; intIndex 0<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength sltCurrent)<br/>&nbsp;(setq plEnt (ssname sltCurrent intIndex)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lstPoints '()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;(mapcar '(lambda(x)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (= (car x) 10)(setq lstPoints (append lstPoints (list (cdr x)))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;(entget plEnt)<br/>&nbsp;&nbsp;)<br/>&nbsp;(if (and (setq sltTemp (ssget "CP" lstPoints '((0 . "TEXT")))) (&gt; (sslength sltTemp) 1))<br/>&nbsp;&nbsp; (command "change" sltTemp "" "P" "C" clCurrent "")<br/>&nbsp;&nbsp; )<br/>&nbsp;(setq intIndex (1+ intIndex))<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (princ)<br/>&nbsp; )<br/>&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;

无痕 发表于 2008-6-9 00:38:00

最好先传一个图（例子）上来

liminnet 发表于 2008-6-9 09:54:00

liminnet 发表于 2008-6-9 13:42:00

liminnet 发表于 2008-6-9 14:56:00

liminnet 发表于 2008-6-9 15:08:00

liminnet 发表于 2008-6-9 15:11:00

liminnet 发表于 2008-6-9 16:18:00

页: [1]
查看完整版本: 无痕流浪大哥帮我好吗？查出闭合的多段线内有二个单行文字（含两个单行文字）以上的