需要帮助-警报/警告lisp

dreams · 发表于 2022-7-5 22:51:20

我需要一个lisp来提醒/警告。请参阅以下文本格式（2x6#6 X 20'-0“EF）。当最后两个字母为EF且前两个字母的前缀不是2x时，此lisp需要发出警报。

我不能每次都在cad文件中检查EF最后一次出现时丢失的文本（2x）在哪里。

注意：如果最后两个字母是EF，则前两个字母的前缀必须是2x。

有人能帮我解决这个Lisp程序的问题吗？那将不胜感激。

Tharwat · 发表于 2022-7-5 22:59:47

这

copy


(setq txt "2x6 #6 X 20'-0" EF")
(if (and (eq (substr txt 1 2) "2x")
        (eq (substr txt (1- (strlen txt)) 2) "EF")
   )
 (alert "Chars found in the text string")
 (alert "Could not find the correct in that text string !")
)

dreams · 发表于 2022-7-5 23:00:58

嗨Tharwat。。谢谢你的帮助。。但文本格式在许多地方会有所不同。示例2x6#6 X 20'-0“EF

以蓝色突出显示的文本将不同。。。

此外，我想再添加两个文本EF、T&B、EW，但文本前缀2x将保持不变。

Tharwat · 发表于 2022-7-5 23:05:29

试试这个。

copy


(defun c:Test (/ l sad ss)
 ;;    Tharwat 25.June.2014        ;;
 (setq l (mapcar 'vl-string->list '("EF" "T&B" "EW")))
 (if (setq sad (ssadd)
           ss  (ssget "_:L" '((0 . "TEXT")))
     )
   ((lambda (i / sn s txt st)
      (while (setq sn (ssname ss (setq i (1+ i))))
        (if
          (or
            (member (vl-string->list
                      (setq
                        st (substr (setq txt (cdr (assoc 1 (entget sn))))
                                   (1- (strlen txt))
                                   2
                           )
                      )
                    )
                    l
            )
            (member (vl-string->list (substr txt (- (strlen txt) 2) 3))
                    l
            )
          )
           (ssadd sn sad)
        )
      )
    )
     -1
   )
 )
 (sssetfirst nil sad)
 (princ)
)