使用全局编辑文本字符串

Dakine · 发表于 2022-7-6 07:40:04

你好
有谁能帮我想出一个自动化的方法，通过宏或Lisp编辑文本字符串的常数。因为我有一个需要更改很多坐标的图形，用lisp可以帮助我全局或单个地进行操作，仍然很有帮助。例如，如果原始文本是N 35800.578，我必须手动减去210.5，然后将文本编辑为N35590.078。同样，东距坐标必须减去400.0，高程必须减去3.700。
有了这些常量值，如果我可以自动更改文本而不需要手动编辑，那么它将大大减少时间消耗。
提前非常感谢。
请注意。让我知道你需要的任何其他信息，以实现这一常规。Thnks公司

pBe · 发表于 2022-7-6 07:45:11

我猜你不确定N或E之后的空格“”总是存在，因此需要while。。。。

仓促写成

copy

 
(defun c:SuBVal (/ ss i en prf v clr)
(if (setq ss (ssget ":L" '((0 . "TEXT")(1 . [color=blue]"E. #*,EL. #*,N. #*"[color=black]))))[/color][b][color=black]     [/color] 
[/b][/color]      (repeat (setq i (sslength ss))
            (setq en (ssname ss (setq i (1- i))))
            (if (and  (setq prf (substr (setq str (cdr (assoc 1 (entget en)))) 1 3))
        (setq v  (cond ((eq prf "E. ")  [color=blue]210.50)
[/color]                      ((eq prf "N. ") [color=blue]400.00[/color] )
                     ((eq prf "EL.") [color=blue](setq str (substr str 2)
                                                            prf (strcat prf " ")) 3.70[/color] )))
                      )
                (progn
                      (vla-put-textstring (setq en (vlax-ename->vla-object en))
  (strcat prf
                            (rtos (- (distof (substr str 3)  2) [color=blue]v[/color]) 2 3)))
                      [color=blue](vla-put-color en 1)[/color])
                )
           )
   )
(princ)
     )