怎么更新文字内容的，不晓得哪里出问题了

beneman

(defun c:s1()
;;;  (PRINT 111)
  (setq ent_list (entget (car (entsel "选择需要加前缀的文字"))))
;;;  (PRINT 222)
  (setq ent_1_old (assoc 1 ent_list))
  (setq ent_2_old (cdr ent_1_old))
  (SETQ ent_2_old (LIST ent_2_old))
;;;  (PRINT 333)
  (SETQ WZ "该段")
  (setq ent_2_new (cons WZ ent_2_old))
  (setq ent_1_new (cons 1 ent_2_new))
;;;  (PRINT 444)
  (SETQ ent_list (subst ent_1_new ent_1_old ent_list))
;;;  (PRINT 555)
  (entmod ent_list)
;;;  (PRINT 666)
  (PRINC)
  )
我想把该段加到被选中的文字前面！！不晓得哪里出问题了

xyp1964

2. (defun c:tt ()
   
3.   (if (setq s1 (car (entsel "选择需要加前缀的文字: ")))
   
4.     (progn
   
5.       (setq lst (entget s1)
   
6.             old (assoc 1 lst)
   
7.       )
   
8.       (entmod (subst (cons 1 (strcat "该段" (cdr old))) old lst))
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   (if (setq s1 (car (entsel "选择需要加前缀的文字: ")))<br />     (progn<br />       (setq lst (entget s1)<br />             old (assoc 1 lst)<br />       )<br />       (entmod (subst (cons 1 (strcat "该段" (cdr old))) old lst))<br />     )<br />   )<br />   (princ)<br /> )

beneman

xyp1964 发表于 2014-7-4 01:06

修改成功了，太谢谢了

xyp1964

beneman 发表于 2014-7-4 01:23
修改成功了，太谢谢了

2. ;; 需要e派工具箱(XCAD)的支持
   
3. (defun c:tt ()
   
4.   (setq i -1)
   
5.   (if (setq ss (ssget '((0 . "*text"))))
   
6.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.       (xyp-SubUpd s1 1 (strcat "该段" (xyp-DXF 1 s1)))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

;; 需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*text"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (xyp-SubUpd s1 1 (strcat "该段" (xyp-DXF 1 s1)))<br />     )<br />   )<br />   (princ)<br /> )