Question

老师你好。cad有没有什么方法让每个选中的数字都能加相同的数值的lisp程序？有的话可以发一份不

Answer 1

专门写了一个程序autolisp程序，如果要分析文字内容的话，需要具体的dwg文件及说明。程序代码如下：命令【TES】自己修改命令。

(defun c:tes ( / #g1 &k1 &kw1 &tr1 @n1 @n5)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (setvar "dimzin" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (princ "\n请选择要加倍数值的文字")
 (if (setq &kw1 (ssget '((0 . "text,mtext") (1 . "~*[~+-.0-9]*" ))) );选择纯数值文字
  (progn
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq #g1 (entget &k1))
    (setq &tr1 (cdr (assoc 1 #g1)) @n5 (strlen &tr1))
    (if (setq @n1 (vl-string-search "." &tr1 0))
     (setq @n1 (- @n5 @n1 1))
     (setq @n1 0)
    )
    (setq &tr1 (rtos (* 2 (atof &tr1)) 2 @n1))
    (setq #g1 (subst (cons 1 &tr1) (assoc 1 #g1) #g1))
    (entmod #g1)
   )
  )
 )
 (princ)
)

Answer 2

贱人工具箱 里面有个 加减乘除 命令。

追问

贱人工具箱没有这个命令啊，我要的是批量相加

追答

这个真有 可以让所有选中的数字同时加减乘除

追问

可以发一个给我不？
我的这个是没有这个功能的

追答

百度下一个吧，没有安装程序。

追问

好的 谢谢