Question

求cad lisp，根据闭合多段线内的相同文字来批量选择对应文字外的闭合多段线框，如下图

Answer 1

1. 这个是大型的程序，需要分析对象。

2. 一般情况下，文字与多段线是编组的，如果不是编组，又是另外的情况。

3. 所以需要dwg文件来测试程序是否有效。
   

追问

不是编组，闭合框和文字是单独分开的
简单的来说，就是根据相同文字内容检测每个文字外是否有闭合框，如果有就选择该闭合框，如果没有就检测另一个相同文字，直到选择了所有符合条件的闭合框；

追答

autolisp代码如下：

(defun c:tes ( / #os1 &k2 &kw1 &kw2 &kw5 &ss1 &tr1 x)
 (setq #os1 (getvar "osmode"))
 (princ "\n请选择参考文字")
 (if (and (setq &kw1 (ssget ":S" '((0 . "TEXT"))))
          (princ "\n请选择多段线")
          (setq &kw2 (ssget '((0 . "LWPOLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>"))))
     )
  (progn
   (setvar "osmode" 0)
   (setq &tr1 (assoc 1 (entget (ssname &kw1 0))) &kw5 (ssadd))
   (while (setq &k2 (ssname &kw2 0))
    (setq &kw2 (ssdel &k2 &kw2))
    (setq &ss1 (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget &k2))))
    (if (setq &kw1 (ssget "WP" &ss1 (list '(0 . "TEXT,MTEXT") &tr1)))
     (setq &kw5 (ssadd &k2 &kw5))
    )
   );while
   (setvar "osmode" #os1)
   (if (ssname &kw5 0) (sssetfirst nil &kw5) )
  )
 )
 (princ)
)

追问

08和12CAD都提示下面的错误
错误: 参数类型错误: numberp: nil

追答

在2006版本测试都没有问题。可能cad没有安装【Express Tools】的缘故。

追问

可以了，非常感谢！