高程值整体升高或者降低？直接把原有的高程值替换掉

Block

图上的高程能不能批量抬高或者降低操作？图上每个数字代表这个位置的高程，所有的数字减去或者加某一个数字后替换当前数字。

xj6019

701625004 群文件里有

Block

xj6019 发表于 2021-5-29 18:10
701625004 群文件里有

我在这个群里，好多批量替换的文件，找到的都是一个一个输入替换值的。

lxl217114

一.如果是做四则运算，可以用高飞鸟版主的插件
http://bbs.mjtd.com/forum.php?mo ... 4%D4%F2%D4%CB%CB%E3

二.如果是添加后缀/前缀，可以用天正的查找替换功能，里头有添加前/后缀功能

Block

lxl217114 发表于 2021-5-30 10:19
一.如果是做四则运算，可以用高飞鸟版主的插件
http://bbs.mjtd.com/forum.php?mo ... 4%D4%F2%D4%CB%CB%E ...

这两个都是一个一个数据操作的，我一张图上成千上百个高程。需要批量操作。已经写了一下代码，老实报：参数类型

2. (DEFUN C:XX()
   
3. (setvar "cmdecho" 0)
   
4. (setq ss  (SSGET":s" '((0 . "*TEXT"))) )
   
5.   (setq n 0)
   
6.   (repeat (sslength ss)
   
7.     (setq  ent (ssname ss n))
   
8.     (setq  ent_data (entget ent))
   
9.     (setq ent_data (car (assoc 1 ent_data)))
   
10.       (setq ent_data (- 2314 ent_data))
    
11.       (entmod ent_data)
    
12.     (setq n (1+ n))
    
13. (PRINC)
    
14. ))

(DEFUN C:XX()<br /> (setvar "cmdecho" 0) <br /> (setq ss  (SSGET":s" '((0 . "*TEXT"))) )<br />   (setq n 0)<br />   (repeat (sslength ss)<br />     (setq  ent (ssname ss n))<br />     (setq  ent_data (entget ent))<br />     (setq ent_data (car (assoc 1 ent_data)))<br />       (setq ent_data (- 2314 ent_data))<br />       (entmod ent_data)<br />     (setq n (1+ n)) <br /> (PRINC)<br /> ))

lxl217114

Block 发表于 2021-5-30 13:12
这两个都是一个一个数据操作的，我一张图上成千上百个高程。需要批量操作。已经写了一下代码，老实报：参 ...

嗯，说明你对这两个工具用的不是很6
应该给数字原位做加/减法，我设置的批量操作数是：+2


下面是用高飞鸟版主的演示的，仅作参考。

yshf

图上的高程能不能批量抬高或者降低操作？图上每个数字代表这个位置的高程，所有的数字减去或者加某一个数字后替换当前数字。  TEMP1 - Copy.dwg (92.2 KB, 下载次数: 3)

;这里有一个很简单的
;批量修改高程值
(defun c:plxggcz()
    (setvar "cmdecho" 0)
    (command "_undo" "be") ;撤消命令起点
    (if (setq ent (car (entsel "\n选取要修改中的一个高程文字:")))
        (progn
            (setq dxf (entget ent))
            (setq name (cdr (assoc 0  dxf)))
            (If (wcmatch name "*TEXT")
                (progn
                    ;只选取由数字和小数点组成的文字，且字体样式、图层、字高、颜色与所选取要修改中的那个相同
                    (setq gltjb (append (list '(0 . "*text") '(1 . "~*[~.0-9]*" ))
                                        (vl-remove-if-not '(lambda(a) (member (car a) '(7 8 40 62))) dxf)
                                     
                                )
                    )
                    (if (= (setq dh (getreal "\n增量值(正值升高，负值降低)=")) nil)
                        (setq dh 0.0)
                    )
                    (If (setq ssa (ssget "x" gltjb))
                        (progn
                            (setq i 0  n (sslength ssa))
                            (repeat n
                               (setq dxf (entget (ssname ssa i)))
                               (setq zfc (cdr (assoc 1 dxf)))
                               (setq gcz (vl-catch-all-apply 'atof (list zfc))) ;原高程值
                               (if (vl-catch-all-error-p gcz)
                                   (setq gcz (atoi zfc))
                               )
                               (if (/= dh 0.0)
                                   (progn
                                       (setq ngcz (+ gcz dh)) ;升高或降低的高程值
                                       (setq dxf (subst (cons 1 (rtos ngcz 2 1)) ;转换为字符串，保留1位小数
                                                        (assoc 1 dxf)
                                                        dxf
                                                 )
                                       )
                                       (entmod dxf) ;更新升高或降低的高程值
                                   )
                               )
                               (setq i (1+ i))
                            )
                        )
                    )
                )
            )
        )
    )
    (command "_undo" "e");撤消命令止点
    (princ)
)

vitalgg

Block 发表于 2021-5-29 19:37
我在这个群里，好多批量替换的文件，找到的都是一个一个输入替换值的。

你在这个群里，就没有看到 ”数学工具-批量运算.mp4“ 这个文件吗？
http://atlisp.cn/package-info?name=at-math&edition=stable