LISP更新图象问题

各位老师好，有一个LISP问题
每当我输入颜色号码，选择图安时候，象LINE CIRCLE都能更句我所输入的颜色号码来改变，但距行就不行，我试过好几次了不知道是为什么。还有如果居行的颜色不时随层的话问题就没了。下面是我的LISP程序。

为什么距行不变色？？

希望大家知道的话
说一下
  
小弟先谢过了

因为LWPline是复杂实体，与Circle、Line这样的简单实体不同。
您在添加颜色项（62 . xxx)的时候，必须保证放在复杂实体数据表的"内部“，而不是现在这样放在“外部”，至少要放在-1项的后面。

太感谢你了
您真不愧是我CAD的偶像！！！
  
十万分的感谢！！！！！！！！

陈伯雄 wrote:
因为LWPline是复杂实体，与Circle、Line这样的简单实体不同。  
  您在添加颜色项（62 . xxx)的时候，必须保证放在复杂实体数据表的"内部“，而不是现在这样放在“外部”，至少要放在-1项的后面。

  
教授，如何控制新生成表所在的位置呢？如何插到－1项以后呢？

自己组织自己写涵数呀。

把程序改了一下，可以了。
  
(defun c:ua()
   (graphscr)
   (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq c2 (cons 62 (getint "\nnew color:")));;组成数据项
   (setq s1 '())                           ;;建立空的序列,准备存放对象名称
   (setq s2 (ssadd))                       ;;建立空的选择集中,准备放主对象名称
  
   (setq e1 (entsel "\nselect object:"))  ;;选取要修改的颜色对象
   (while e1                               ;;当选到的图形是重复循环   
     (setq e2 (car e1))
     (setq s1 (cons e2 s1))                ;;将对象加入序列        
     (if (setq e3 (car (cadddr e1)))       ;;取主对象的名称若有加入
       (setq s2 (ssadd e3 s2))
     )
     (setq e1 (entsel "\nselect object:"));;继续
   )
  
   (setq i 0)                    ;;更新对象
   (repeat (length s1)                     ;;重复N次
     (setq e2 (entget (nth i s1)))         ;;取出对象数据列
     (setq et (cdr (cadr e2)))
     (if (setq c3 (assoc 62 e2))           ;;取出旧的颜色数据项
       (setq e5 (subst c2 c3 e2))          ;;若有,置换颜色数据项
       (if (= et "LWPOLYLINE")
     (progn (setq e2(reverse e2))
            (setq e2(cons c2 e2))
            (setq e5(reverse e2))
     )          (setq e5 (cons c2 e2))          ;;若无,则加入颜色数据
       )
     )
     (entmod e5)                           ;;更新
  
     (setq i (1+ i))
   )
   ;;更新主象
   ;;略
)
  
红色部分为新加的。
顺便问一下，lisp中有四舍五入的函数吗？

四捨五入的函數自己寫.