批量更改多路登录

cat3appr · 发表于 2022-7-5 17:26:03

大家好，

我有这些画，旁边有数字，垂直放置。我需要反转每个数字，例如3.15必须变成-3.15

提前感谢您的任何意见！

Dadgad · 发表于 2022-7-5 17:34:00

数字是什么样的实体？
它们是如何产生的？
它们是否有外部联系？

希望不是来自哈迪斯的电子表格，在你的另一个线程中有40000多个点。

eldon · 发表于 2022-7-5 17:41:04

也许您可以使用一个LISP对图形中的数字进行运算，然后将数字乘以-1

Dadgad · 发表于 2022-7-5 17:49:32

听起来就像是艾尔顿的票！

cat3appr · 发表于 2022-7-5 17:58:33

那么，有人知道怎么做吗？

ReMark · 发表于 2022-7-5 18:06:00

我想凯特曼对那个建议不屑一顾。

eldon · 发表于 2022-7-5 18:10:08

我使用了一个名为TextMath的lisp，但它已经很旧了，而且还有更多关于它的现代语言。要搜索的关键词是“数学”和“文本”或这些词的变体！

ReMark · 发表于 2022-7-5 18:16:02

TextMath可以从Cadalyst网站免费下载。它始于2009年。

http://cadtips.cadalyst.com/notestex...text-and-mtext

Lee Mac · 发表于 2022-7-5 18:21:04

假设您的文本项只包含数字数据（没有周围的文本内容），我建议使用一个简单的前缀文本程序，例如这样。

BIGAL · 发表于 2022-7-5 18:29:18

我的价值0.05美元，应该知道先去李麦克，但这只花了几分钟前一天。

copy


; adds a suffix or prefix to text  
; 
; by Alan H July 2016
(defun sufftxt ( / ss obj txtstr suffix)
(alert "Make sure you have only the correct text layer on\n \nPress Esc now if you need to exit\n \nUse Layiso")
(if (not AH:getval2) (load "getvals"))
(ah:getval2 "Enter new text" 25 24 "+ or - for prefix suffix" 3 2)
(setq suffix val1)
(setq ans val2)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq ss (ssget))
(setq y (sslength ss))
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss (setq y (- y 1)))))
(if (= (vla-get-ObjectName obj) "AcDbText")
 (progn
 (setq txtstr (vla-get-textstring obj ))
 (if (= ans "+")
   (vla-put-textstring obj (STRCAT suffix " " txtstr))
   (vla-put-textstring obj (STRCAT txtstr " " suffix))
 ) ;if
 )  ; progn                   
)  ; if                            
)  ; repeat
(setvar "osmode" oldsnap)
) ; defun
(princ )
(sufftxt)

GETVALS。lsp

[编程交流] 批量更改多路登录

发表回复

精选推荐