先恭喜明经重开，求助判断点号是否有重复

nxchenjk

(setq Ptname "LMLWS101")
(setq ssPtname(ssget "X" (list '(0 . "TEXT")(cons 1 Ptname))))
(if(> (sslength ssPtname) 1)
  (alert "当前点号有重复!")
)

但这种判断要区分大小写。

怎么样写把大小写都考虑进去？  感谢

pxt2001

ssget选择文字返回选择集ss，遍历ss取出文字，转大写和需要判断的字符串(转大写后)比较，相同则搜集

nxchenjk

pxt2001 发表于 2022-1-30 18:50
ssget选择文字返回选择集ss，遍历ss取出文字，转大写和需要判断的字符串(转大写后)比较，相同则搜集

这是很好的方法，感谢回复。
但好象有用  ssget 后跟 mode的方法能解决。这样更简便。

pxt2001

(setq ss (ssget '((1 . "[Ll][Mm][Ll][Ww][Ss]101"))))
通用性不强啊

xyp1964

1. (defun c:tt ()
   
2. (setq tx  "LMLWS101"
   
3.        tx  (strcase tx)
   
4.        ss  (ssget "X" (list '(0 . "TEXT")))
   
5.        lst '()
   
6.        i   -1
   
7. )
   
8. (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.   (setq t1 (strcase (xyp-DXF 1 s1)))
   
10.   (if (equal t1 tx)
    
11.    (setq lst (cons s1 lst))
    
12.   )
    
13. )
    
14. (if (> (length lst) 1)
    
15.   (alert "当前点号有重复!")
    
16. )
    
17. (princ)
    
18. )
    

(defun c:tt ()<br /> (setq tx  "LMLWS101"<br />        tx  (strcase tx)<br />        ss  (ssget "X" (list '(0 . "TEXT")))<br />        lst '()<br />        i   -1<br /> )<br /> (while (setq s1 (ssname ss (setq i (1+ i))))<br />   (setq t1 (strcase (xyp-DXF 1 s1)))<br />   (if (equal t1 tx)<br />    (setq lst (cons s1 lst))<br />   )<br /> )<br /> (if (> (length lst) 1)<br />   (alert "当前点号有重复!")<br /> )<br /> (princ)<br /> )<br />

nxchenjk

xyp1964 发表于 2022-2-3 21:37

感谢您的回复。程序写的很经典，学习了。