lisp CAD 选中指定范围数值的所有文字

359321852

请高手帮忙改一下两个都报错“参数太少”，下面的代码，想实lisp CAD 选中指定范围数值的所有文字
都是ai自动生成的。

2. (defun c:SelectTextInRange (/ ss value-min value-max ent text-value)
   
3.   (setq value-min (getreal "\nEnter the minimum value: "))
   
4.   (setq value-max (getreal "\nEnter the maximum value: "))
   
5.   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象
   
6.   (if ss
   
7.     (progn
   
8.       (setq ss (ssdel ss)) ; 创建一个新的选择集，因为 ssdel 会修改原始选择集
   
9.       (repeat (sslength ss)
   
10.         (setq ent (ssname ss (setq i 0))) ; 从选择集中获取第一个实体
    
11.         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值
    
12.         (setq text-value (atof text-value)) ; 将文本值转换为浮点数
    
13.         ; 如果文本值在指定范围内，则将实体添加到新的选择集中
    
14.         (if (and (<= value-min text-value) (<= text-value value-max))
    
15.           (ssadd ss (entget ent))
    
16.         )
    
17.       )
    
18.       (if (not (ssnull ss)) ; 如果选择集中有实体
    
19.         (progn
    
20.           (princ "\nSelected texts within range: ")
    
21.           (princ value-min)
    
22.           (princ " to ")
    
23.           (princ value-max)
    
24.           (princ "\n")
    
25.           (command "_.select" ss "") ; 选择这些实体
    
26.         )
    
27.         (princ "\nNo texts found within the specified range.")
    
28.       )
    
29.     )
    
30.     (princ "\nNo texts found.")
    
31.   )
    
32.   (princ)
    
33. )
    

(defun c:SelectTextInRange (/ ss value-min value-max ent text-value)<br />   (setq value-min (getreal "\nEnter the minimum value: "))<br />   (setq value-max (getreal "\nEnter the maximum value: "))<br />   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象<br />   (if ss<br />     (progn<br />       (setq ss (ssdel ss)) ; 创建一个新的选择集，因为 ssdel 会修改原始选择集<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss (setq i 0))) ; 从选择集中获取第一个实体<br />         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值<br />         (setq text-value (atof text-value)) ; 将文本值转换为浮点数<br />         ; 如果文本值在指定范围内，则将实体添加到新的选择集中<br />         (if (and (<= value-min text-value) (<= text-value value-max))<br />           (ssadd ss (entget ent))<br />         )<br />       )<br />       (if (not (ssnull ss)) ; 如果选择集中有实体<br />         (progn<br />           (princ "\nSelected texts within range: ")<br />           (princ value-min)<br />           (princ " to ")<br />           (princ value-max)<br />           (princ "\n")<br />           (command "_.select" ss "") ; 选择这些实体<br />         )<br />         (princ "\nNo texts found within the specified range.")<br />       )<br />     )<br />     (princ "\nNo texts found.")<br />   )<br />   (princ)<br /> )<br />

这个lisp CAD 选中指定数值的所有文字

2. (defun c:Se(/ ss value ent text-value)
   
3.   (setq value (getreal "\n输入值以选择文本: "))
   
4.   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象
   
5. 
   
6.   (if ss
   
7.     (progn
   
8.       (setq ss (ssdel ss)) ; 创建一个新的选择集，因为 ssdel 会修改原始选择集
   
9.       (repeat (sslength ss)
   
10.         (setq ent (ssname ss (setq i 1))) ; 从选择集中获取第一个实体
    
11.         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值
    
12.         (if (= (atof text-value) value) ; 如果文本值等于指定数值
    
13.           (ssadd ss (entget ent)) ; 将实体添加到新的选择集中
    
14.         )
    
15.       )
    
16.       (if (not (ssnull ss)) ; 如果选择集中有实体
    
17.         (progn
    
18.           (princ "\nSelected texts with value: ")
    
19.           (princ value)
    
20.           (princ "\n")
    
21.           (command "_.select" ss "") ; 选择这些实体
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

(defun c:Se(/ ss value ent text-value)<br />   (setq value (getreal "\n输入值以选择文本: "))<br />   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象<br /> <br />   (if ss<br />     (progn<br />       (setq ss (ssdel ss)) ; 创建一个新的选择集，因为 ssdel 会修改原始选择集<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss (setq i 1))) ; 从选择集中获取第一个实体<br />         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值<br />         (if (= (atof text-value) value) ; 如果文本值等于指定数值<br />           (ssadd ss (entget ent)) ; 将实体添加到新的选择集中<br />         )<br />       )<br />       (if (not (ssnull ss)) ; 如果选择集中有实体<br />         (progn<br />           (princ "\nSelected texts with value: ")<br />           (princ value)<br />           (princ "\n")<br />           (command "_.select" ss "") ; 选择这些实体<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

飞雪神光

1. (defun c:SelectTextInRange (/ ss value-min value-max ent text-value)
   
2.   (setq value-min (getreal "\nEnter the minimum value: "))
   
3.   (setq value-max (getreal "\nEnter the maximum value: "))
   
4.   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象
   
5.         (setq i 0)
   
6.   (if ss
   
7.     (progn
   
8.                         (setq ss0 (ssadd))
   
9.       (repeat (sslength ss)
   
10.         (setq ent (ssname ss i)) ; 从选择集中获取第一个实体
    
11.         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值
    
12.         (setq text-value (atof text-value)) ; 将文本值转换为浮点数
    
13.         ; 如果文本值在指定范围内，则将实体添加到新的选择集中
    
14.         (if (<= value-min text-value value-max)
    
15.           (ssadd ent ss0)
    
16.         )
    
17.                                 (setq i (1+ i))
    
18.       )
    
19.       (if ss0 ; 如果选择集中有实体
    
20.         (progn
    
21.           (princ "\nSelected texts within range: ")
    
22.           (princ value-min)
    
23.           (princ " to ")
    
24.           (princ value-max)
    
25.           (princ "\n")
    
26.           (sssetfirst nil ss0) ; 选择这些实体
    
27.         )
    
28.         (princ "\nNo texts found within the specified range.")
    
29.       )
    
30.     )
    
31.     (princ "\nNo texts found.")
    
32.   )
    
33.   (princ)
    
34. )

(defun c:SelectTextInRange (/ ss value-min value-max ent text-value)<br />   (setq value-min (getreal "\nEnter the minimum value: "))<br />   (setq value-max (getreal "\nEnter the maximum value: "))<br />   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象<br />         (setq i 0)<br />   (if ss<br />     (progn<br />                         (setq ss0 (ssadd))<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i)) ; 从选择集中获取第一个实体<br />         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值<br />         (setq text-value (atof text-value)) ; 将文本值转换为浮点数<br />         ; 如果文本值在指定范围内，则将实体添加到新的选择集中<br />         (if (<= value-min text-value value-max) <br />           (ssadd ent ss0)<br />         )<br />                                 (setq i (1+ i))<br />       )<br />       (if ss0 ; 如果选择集中有实体<br />         (progn<br />           (princ "\nSelected texts within range: ")<br />           (princ value-min)<br />           (princ " to ")<br />           (princ value-max)<br />           (princ "\n")<br />           (sssetfirst nil ss0) ; 选择这些实体<br />         )<br />         (princ "\nNo texts found within the specified range.")<br />       )<br />     )<br />     (princ "\nNo texts found.")<br />   )<br />   (princ)<br /> )

飞雪神光

1. (defun c:Se(/ ss value ent text-value)
   
2.   (setq value (getreal "\n输入值以选择文本: "))
   
3.   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象
   
4.         (setq i 0)
   
5.   (if ss
   
6.     (progn
   
7.       (setq ss0 (ssadd)) ; 创建一个新的选择集，因为 ssdel 会修改原始选择集
   
8.       (repeat (sslength ss)
   
9.         (setq ent (ssname ss i)) ; 从选择集中获取第一个实体
   
10.         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值
    
11.         (if (equal (atof text-value) value 1e-5) ; 如果文本值等于指定数值
    
12.           (ssadd ent ss0) ; 将实体添加到新的选择集中
    
13.         )
    
14.                                 (setq i (1+ i))
    
15.       )
    
16.       (if ss0 ; 如果选择集中有实体
    
17.         (progn
    
18.           (princ "\nSelected texts with value: ")
    
19.           (princ value)
    
20.           (princ "\n")
    
21.           (sssetfirst nil ss0) ; 选择这些实体
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:Se(/ ss value ent text-value)<br />   (setq value (getreal "\n输入值以选择文本: "))<br />   (setq ss (ssget '((0 . "TEXT")))) ; 获取所有 TEXT 对象<br />         (setq i 0)<br />   (if ss<br />     (progn<br />       (setq ss0 (ssadd)) ; 创建一个新的选择集，因为 ssdel 会修改原始选择集<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i)) ; 从选择集中获取第一个实体<br />         (setq text-value (cdr (assoc 1 (entget ent)))) ; 获取文本实体的值<br />         (if (equal (atof text-value) value 1e-5) ; 如果文本值等于指定数值<br />           (ssadd ent ss0) ; 将实体添加到新的选择集中<br />         )<br />                                 (setq i (1+ i))<br />       )<br />       (if ss0 ; 如果选择集中有实体<br />         (progn<br />           (princ "\nSelected texts with value: ")<br />           (princ value)<br />           (princ "\n")<br />           (sssetfirst nil ss0) ; 选择这些实体<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

love1030312

请教下  你们用AI写代码用什么软件写的呀   很是好奇

359321852

飞雪神光 发表于 2024-4-12 20:57

太棒了，谢谢你！

359321852

love1030312 发表于 2024-4-12 21:55
请教下  你们用AI写代码用什么软件写的呀   很是好奇

https://chat18.aichatos.xyz/#/chat/1712984900585