nxchenjk 发表于 2022-1-30 17:53:48

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

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

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

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

pxt2001 发表于 2022-1-30 18:50:05

本帖最后由 pxt2001 于 2022-1-30 18:51 编辑

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

nxchenjk 发表于 2022-1-30 20:18:14

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

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

pxt2001 发表于 2022-1-30 22:08:07

本帖最后由 pxt2001 于 2022-1-30 22:11 编辑

(setq ss (ssget '((1 . "101"))))
通用性不强啊

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

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

nxchenjk 发表于 2022-2-4 09:27:31

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


感谢您的回复。程序写的很经典，学习了。
页: [1]
查看完整版本: 先恭喜明经重开，求助判断点号是否有重复