[求助][分享]学习修改编号

crazylsp

; 实际作图时制图后，经过审核，

ZZXXQQ

为何要重复100次？

crazylsp

它每次只能修改选择集中第一个图名，ssname 0 这一个，所以让这个选择集多次重复，100次以内足够可以搞定

ZZXXQQ

用WHILE不行吗？

;更改
(defun c:mi ()
 (if (= (setq content1 (getvar "USERS1")) "") (setvar "USERS1" (setq content1 "N4")))
 (if (setq userenter (getstring (strcat "\n输入以前的编号<" content1 ">")))
  (setvar "USERS1" (setq content1 userenter))
  (setq userenter content1)
 )
 (if (= (setq content2 (getvar "USERS2")) "") (setvar "USERS2" (setq content2 "N3")))
 (if (setq userenter (getstring (strcat "\n输入现在的编号<" content2 ">")))
  (setvar "USERS2" (setq content2 userenter))
  (setq userenter content2)
 )
 (setq p1 (getpoint "\n pick: "))
 (setq p2 (getpoint "\n pick: "))
 (while (setq ss   (ssget "w" P1 P2 (list(cons 0 "TEXT")(cons 1 content1))))
  (setq ent0 (entget (ssname ss 0)))
  (entmod (subst (cons 1 content2) (assoc 1 ent0) ent0))   
 )
)

crazylsp

谢谢版主了，又学习新知了。现在不会出现参数类型错误了 lselsetp nil，问题还是“上次输入”的还是要重新输入, 不过也好。

hpy

试了一下，不知怎么的，这个程序好像不能达到楼主的要求。

crazylsp

楼上的原因是因为字符后面有空格,输入时要输空格，如图示，这个问题我已修改好了，重新上传了文件，增加了显示框.

ZZXXQQ

这样写就可以输入空格了，而且可以默认上次的输入了。

(defun c:mi ()
 (if (= (setq content1 (getvar "USERS1")) "") (setvar "USERS1" (setq content1 "N4")))
 (if (= (setq userenter T (getstring (strcat "\n输入以前的编号<" content1 ">"))) "")
  (setvar "USERS1" (setq content1 userenter))
  (setq userenter content1)
 )
 (if (= (setq content2 (getvar "USERS2")) "") (setvar "USERS2" (setq content2 "N3")))
 (if (= (setq userenter T (getstring (strcat "\n输入现在的编号<" content2 ">"))) "")
  (setvar "USERS2" (setq content2 userenter))
  (setq userenter content2)
 )
 (setq p1 (getpoint "\n pick: "))
 (setq p2 (getpoint "\n pick: "))
 (while (setq ss   (ssget "w" P1 P2 (list(cons 0 "TEXT")(cons 1 content1))))
  (setq ent0 (entget (ssname ss 0)))
  (entmod (subst (cons 1 content2) (assoc 1 ent0) ent0))   
 )
)