第1个回答 推荐于2018-03-14
(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)
);while end
);progn end
);end defun
拷贝以上代码至记事本,保存为LSP文件。加载到CAD中,运行命令JS。
以上LSP代码为统一加减数值,运行前请设定CAD数值精度。本回答被网友采纳
第2个回答 2013-07-21
编辑下有个查找个替换,直接输入查找的文字,在替换行输出要替换的文字就可以了!
第3个回答 2017-08-01
方法一用自动筛选,把大于900的筛选出来设置格式方法二用条件格式。选择工资列,点菜单“格式”——〉“条件格式”,在弹出的窗口条件栏选择“单元格数值”“大于”,后面填900,然后点击格式,在弹出的新窗口设置粗体蓝色字灰色底纹,确定就可以了。
第4个回答 2013-07-21
CAD我也学过,这个问题太深,我不知道!