小弟写了个程序,我现在想加入一个功能就是修改后将颜色修改成红色,该怎么加入语句呢,我用command好像不行 (defun c:jj12(/ ss dm dmbgmc dmbg gd gdbg gdbgmc js jsbg jsbgmc jsbgmc1 newjs newjsjs ) (prompt "请选择地面标高:) ") (setq ss (ssget '((0 . "TEXT")))) (setq dm (ssname ss 0)) (setq dmbgmc (entget dm)) (setq dmbg (atof(cdr (assoc 1 dmbgmc)))) (prompt "请选择管底标高:) ") (setq ss (ssget '((0 . "TEXT")))) (setq gd (ssname ss 0)) (setq gdbgmc (entget gd)) (setq gdbg (atof(cdr (assoc 1 gdbgmc)))) (prompt "请选择需修改标高的标注 ") (setq ss (ssget '((0 . "TEXT")))) (setq js (ssname ss 0)) (setq jsbgmc (entget js)) (setq jsbg (atof(cdr (assoc 1 jsbgmc)))) (setq newjs (- dmbg gdbg)) (setq newjsjs1 (cons 1 (strcat "1000×1200×" (rtos newjs 2 2)))) (setq jsbgmc (subst newjsjs1 (assoc 1 jsbgmc) jsbgmc)) (entmod jsbgmc) (prin1)) |