请帮诊断程序循环问题在哪？

xzd716 · 发表于 2021-8-21 12:06:25

当选中text文字时， (princ (cdr (assoc 0 (entget aaa))))能显示出“text”,但一直提示“重新点选text文字:”，是循环条件“ (/= (cdr (assoc 0 (entget aaa))) "text")”有问题吗？请各位大侠指点！
(defun c:tt(/ aaa )
(while (setq aaa (car (entsel "\n 点选text文字:")))
      (princ "\n")
      (princ (cdr (assoc 0 (entget aaa))))
      (while (/= (cdr (assoc 0 (entget aaa))) "text")
               (setq aaa (car (entsel "\n 重新点选text文字:")))
      )
      (princ "ok")
)
)

kkq0305 · 发表于 2021-8-21 13:35:10

不就是想点选文字么用ssget 过滤 (ssname (ssget ":S:E" '((0 . "TEXT"))) 0)

xzd716 · 发表于 2021-8-21 13:56:04

我的实际用途是一次选一个text文字，选中后自动修改，再选下一个text文字，如此循环；当未选中text文字时，能接着重选，而不是退出。

kkq0305 · 发表于 2021-8-21 14:08:25

xzd716 发表于 2021-8-21 13:56
我的实际用途是一次选一个text文字，选中后自动修改，再选下一个text文字，如此循环；当未选中text文字时， ...

......你在这个基础上结合你原来的代码修改一下

yshf · 发表于 2021-8-21 14:15:17

(defun c:tt(/ aaa )
(while (and (setq aaa (car (entsel "\n 点选text文字<回车结束>:")))
            (= (setq name (cdr (assoc 0 (entget aaa)))) "TEXT")
   )
      (princ "\n 点选text文字")
      ;下面进行修改

)
(princ)
)

xzd716 · 发表于 2021-8-21 14:19:55

本帖最后由 xzd716 于 2021-8-21 14:24 编辑

解决了，是大小写问题，谢谢各位指点！

账号		自动登录	找回密码
密码			注册

[提问] 请帮诊断程序循环问题在哪？