关于数字批量加减后，数字颜色改变的问题

panyakun · 发表于 2019-4-8 11:10:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:js()
(setq ss (ssget '((0 . "TEXT"))))
(command "justifytext" SS "" "L" )
(setq t3 (getreal "\n输入增量，可以为负值："))
(progn (setq smx (sslength ss) si 0 )
(while (< si smx)
(setq e (ssname ss si)
ent (entget e)
si (1+ si)
t1 (cdr (assoc 1 ent))
t2 (atof t1)
t4 (+ t2 t3)
t5 (rtos t4)
)
(setq ent (subst (cons 1 t5)(assoc 1 ent) ent))
(command "change" e "" "p" "c" 1 "" )
(entmod ent)
)
)
)
==================================================
以上是我从网上找到的一段批量数字加减的程序，这个程序在执行完命令以后，被加减的数字会自动变成红色，我希望有大神帮我改一下，使程序执行完后，不改变数字颜色。

Lisphk · 发表于 2019-4-8 14:05:07

把这行
(command "change" e "" "p" "c" 1 "" )
删了

panyakun · 发表于 2019-4-8 17:34:28

Lisphk 发表于 2019-4-8 14:05
把这行
(command "change" e "" "p" "c" 1 "" )
删了

删了就出错了

Lisphk · 发表于 2019-4-8 22:18:05

panyakun 发表于 2019-4-8 17:34
删了就出错了

你咋删除的？

(defun c:js ()
(setq ss (ssget '((0 . "TEXT"))))
(command "justifytext" SS "" "L")
(setq t3 (getreal "\n输入增量，可以为负值："))
(progn (setq smx (sslength ss)
si 0
)
(while (< si smx)
(setq e (ssname ss si)
ent (entget e)
si (1+ si)
t1 (cdr (assoc 1 ent))
t2 (atof t1)
t4 (+ t2 t3)
t5 (rtos t4)
)
(setq ent (subst (cons 1 t5) (assoc 1 ent) ent))
(entmod ent)
)
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[求助] 关于数字批量加减后，数字颜色改变的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。