例如，数字组：7.3，8.6，5.7，4.2，6.9，9.1，每个数都减去2.5，求高手帮助
例如，数字组：7.3，8.6，5.7，4.2，6.9，9.1，每个数都减去2.5，求高手帮助
2楼
HAO
回复
3楼
(defun c:test( / n nl nlst num ss)
(setq ss (ssget ’((0 . "text"))))
(foreach n (vl-remove-if ’listp (mapcar ’cadr (ssnamex ss)))
(setq nlst (entget n) nl (cdr (assoc 1 nlst)) num (- (atof nl) 2.5))
(setq nlst (subst (cons 1 (rtos num 2 2)) (assoc 1 nlst) nlst ))
(entmod nlst)
)
)
回复
4楼
(defun c:test( / n nl nlst num ss)
(setq ss (ssget ’((0 . "text"))))
(foreach n (vl-remove-if ’listp (mapcar ’cadr (ssnamex ss)))
(setq nlst (entget n) nl (cdr (assoc 1 nlst)) num (- (atof nl) 2.5))
(setq nlst (subst (cons 1 (rtos num 2 2)) (assoc 1 nlst) nlst ))
(entmod nlst)
)
)
回复
5楼
对不起没看明白，在那里输入上述内容？
回复
6楼
把上述内容复制到写字板中，另存为test.lsp，在CAD中点“工具”－“加载应用程序”，找到你保存的test.lsp文件，加载。在command下键入test即可。
回复
7楼
压根没用~我试过了~
回复
8楼
“1-num-共同递增或递减数字.rar”,先加载，键入“num”即可。
回复
9楼
t2est.lspt2est.lspt2est.lsp
回复
10楼
可以设定需要减掉的数值吗？
回复
11楼
“1-num-共同递增或递减数字.rar”，先加载，键入“num”输入“123”是共同加“123”，输入“- 123”就共同减123了。
回复
感谢“shenyu5833”，原本准备通宵的，现在可以正常下班了，救命恩人啊
