好心人求助！修改块内的文字，让该文字数值加24

iamhuangjinming · 发表于 2017-10-7 13:37:47

(defun c:cadd(/ e el pjsl s1)
(and(setq e(nentselp "\n选择块内实体:\n"))
         (= (length e) 4)
      )
(setq el (entget (car e)))  ;1
(if (= (cdr (assoc 0 el)) "TEXT")
   (setq s1 (cdr (assoc 1 el)))
   (princ "选择的对象不是块内文字对象")
)
(setq pjsl (atoi s1))       (princ pjsl)
;;
(setq pjsl (+ 24 pjsl))
(princ pjsl)

      (PRINC))
;;-----------------

vectra · 发表于 2017-10-17 22:25:40

chenjieq1990 发表于 2017-10-17 21:59
(= (length e) 4)这个是干嘛的？

原始代码里有这句没改

作用就是限制只能对块内文字有效。

vectra · 发表于 2017-10-7 20:05:42

(defun c:cadd (/ e el pjsl s1)
(if (and (setq e (nentselp "\n选择块内实体:\n"))
(= (length e) 4)
(setq el (entget (car e)))
(= (cdr (assoc 0 el)) "TEXT")
(setq s1 (cdr (assoc 1 el)))
)
(progn
(setq pjsl (+ 24 (atoi s1))
el (subst (cons 1 (itoa pjsl)) (assoc 1 el) el)
)
(entmod el)
(entupd (car (last e)))
)
(princ "选择的对象不是块内文字对象")
)
(princ)
)

xyp1964 · 发表于 2017-10-18 08:13:53

(defun c:tt ()
  (if (and (setq e (nentselp "\n选择块内数字文本: "))
   (= (length e) 4)
   (setq el (entget (car e)))
   (= (cdr (assoc 0 el)) "TEXT")
   (setq tx (cdr (assoc 1 el)))
   (distof tx)
   )
(setq tx (+ 24 (atoi tx))
   el (subst (cons 1 (itoa tx)) (assoc 1 el) el)
   el (entmod el)
   e  (entupd (car (last e)))
)
  )
  (princ)
)

iamhuangjinming · 发表于 2017-10-7 20:50:01

vectra 发表于 2017-10-7 20:05

谢谢好心人！

yoyoho · 发表于 2017-10-7 22:15:24

谢谢! vectra分享程序!!!

vladimirputin · 发表于 2017-10-13 10:26:52

非常感谢，很好的代码。

天下逍遥 · 发表于 2017-10-13 11:03:50

好东西，顶顶顶

fsafaffa · 发表于 2017-10-13 11:08:58

虽然用不着，还是顶一下

chenjieq1990 · 发表于 2017-10-17 21:59:13

vectra 发表于 2017-10-7 20:05

(= (length e) 4)这个是干嘛的？

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

[提问] 好心人求助！修改块内的文字，让该文字数值加24