请教大侠们，如何更改图元颜色

oracle2000

小弟写了个程序，我现在想加入一个功能就是修改后将颜色修改成红色，该怎么加入语句呢，我用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))

dinosaurhxe

你都用到图元表了，为什么不用62组码呢？

nameld001

2. (defun c:jj12(/ ss dm dmbgmc dmbg gd gdbg gdbgmc js jsbg jsbgmc jsbgmc1 newjs newjsjs )
3.    (prompt "请选择地面标高:) ")
4.   (setq ss (ssget '((0 . "TEXT"))))
5.   (setq dm (ssname ss 0))
6.   (setq dmbgmc (entget dm))
7.   (setq dmbg (atof(cdr (assoc 1 dmbgmc))))
8.      (prompt "请选择管底标高:) ")
9.   (setq ss (ssget '((0 . "TEXT"))))
10.   (setq gd (ssname ss 0))
11.   (setq gdbgmc (entget gd))
12.   (setq gdbg (atof(cdr (assoc 1 gdbgmc))))
13.        (prompt "请选择需修改标高的标注 ")
14.   (setq ss (ssget '((0 . "TEXT"))))
15.   (setq js (ssname ss 0))
16.   (setq jsbgmc (entget js))
17.   (setq jsbg (atof(cdr (assoc 1 jsbgmc))))
18.   (setq newjs (- dmbg gdbg))
19.   (setq newjsjs1 (cons 1 (strcat "1000×1200×"  (rtos newjs 2 2))))
20.   (setq jsbgmc (subst newjsjs1 (assoc 1 jsbgmc) jsbgmc))
21.   (entmod jsbgmc)
22.   (command "change" js "" "p" "c" "1" "")
23.   (prin1))

(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)   (command "change" js "" "p" "c" "1" "")   (prin1))

用change 或者entmod

oracle2000

谢谢，学习了