这个程式那里有毛病不能达到目的？

QUAN2518

首先程式执行后文本内容不能改变

我是做冲模设计的，此程式目的是选择需要变更的文本能自动更新文本内容。

比如选择3个文本那么按照选择顺序 第一个文本内容修改为“1/3”

                                                        第二个。。。。。。。“2/3”

                                                        第三个。。。。。。。“3/3”

并且可设置第一个为 “3”      第二个为“2/3”         第三个为“3/3”

更完善点能够按照给顶的图层顺序排列 而不是通过先后选择来排。

刚开始学LISP希望各位高手来支援下。

QUAN2518

忘记了上传

QUAN2518

(setq new_1_list (cons 1 "quan_07"))
着一段不知道怎么写 就给了个文本想测试一下 但是执行后文本内容既然稳如泰山。郁闷

xgr

(defun c:PAG ()
  (prompt "\n<<请选择单行文字:>>")
  (setq ss (ssget))
  (setq n 0
 k 0
  )
  (setq num (sslength ss))
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq endata (entget en))
    (setq entypn (cdr (assoc 0 endata)))
    (if (= entypn "TEXT");这里注意字符的大小写，关键问题在这里
      (progn
 (setq 1_list (assoc 1 endata))
 (setq new_1_list (cons 1 "quan_07"))
 (setq endata (subst new_1_list 1_list endata))
 (entmod endata)
 (setq n (1+ n))
      )
    )
    (setq k (1+ k))
  )
  (princ (strcat "\n共处理" (itoa k) "个单行文字！"))
  (prin1)
)

QUAN2518

谢谢上楼的回答

还有个问题没解决？麻烦帮忙一并解决。

比如选择3个文本那么按照选择顺序 第一个：文本内容修改为“1/3”

                                第二个：。。。。。。。“2/3”

                                第三个：。。。。。。。“3/3”

就是解决——怎么把2~多个变量的字符串，和并到一个列表中去更新屏幕上的文本内容。

xgr

实现这个还是很容易的，就是合并文本吧！