有关entmod函数

tian123

请问高手，有一图元，其颜色属性为“随层”，即用entget获取的图元数据表内没有62这个组码。现欲将其颜色改为与其图层颜色不同的另一种颜色，如何用entmod函数完成。
请大家帮帮忙！

tian123

请问如何可以用entmod做到啊？？？帮帮忙吧！

onej

有办法的，我也记不清了，大半年没有碰CAD了，你可以GET后设置图元的颜色啊~

alin

变为红色

(setq ent (entget (car (entsel))))

(entmod (setq ent (cons (cons 62 1) ent)))

mark_liyi

龙龙斑竹发的这个程序应该对你有帮助的

(defun C:MODTBL ()
  (setq LAY (tblobjname "LAYER" (getstring "\nLAYER NAME :")))
  (if (= LAY NIL)
    (princ ("\nNONE THIS LAYER"))
    (progn
      (setq LAY_1 (entget LAY))
      (setq TEMP_N (cdr (assoc 2 LAY_1))
     TEMP_C (cdr (assoc 62 LAY_1))
      )
      (princ (strcat "\n图层名:<" TEMP_N ">"))
      (setq TEMP (getstring "\n输入改变图层的名字:"))
      (if (and
     (/= TEMP "")
     (/= TEMP TEMP_N)
   )
 (setq TEMP_N TEMP)
      )
      (princ (strcat "\n图层颜色:<" (rtos TEMP_C) ">"))
      (setq TEMP (getint "\n输入改变图层颜色数字"))
      (if (and
     (/= TEMP NIL)
     (/= TEMP TEMP_C)
   )
 (setq TEMP_C TEMP)
      )
      (setq TEMP (subst
     (cons '2 TEMP_N)
     (assoc 2 LAY_1)
     LAY_1
   )
      )
      (setq TEMP (entmod TEMP))
      (setq TEMP (subst
     (cons '62 TEMP_C)
     (assoc 62 TEMP)
     TEMP
   )
      )
      (entmod TEMP)
    )
  )
  (princ)
)

yedajiang

(setq sel(entsel))
(setq ent_lst(entget (car sel)))
(setq new_lst(cons '(62 . 3)ent_lst))
(entmod new_lst)

简单一点，你分别试试以上的几句语句。依次试试就知道了。

无痕

不错，鼓励有启发性的回复