社区 › AutoLISP/Visual LISP 编程技术 › 怎么更新文字内容的，不晓得哪里出问题了

beneman 发表于 2014-7-4 00:34:54

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

(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 发表于 2014-7-4 01:06:51

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

beneman 发表于 2014-7-4 01:23:15

xyp1964 发表于 2014-7-4 01:06 static/image/common/back.gif


修改成功了，太谢谢了

xyp1964 发表于 2014-7-4 08:20:02

beneman 发表于 2014-7-4 01:23 static/image/common/back.gif
修改成功了，太谢谢了

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

查看完整版本: 怎么更新文字内容的，不晓得哪里出问题了