[討論]圖片變更亮度及對比問題請教

以下程序為要變更插入CAD圖檔內的圖片
圖片中的亮度及對比有沒有什麼方法只使用ENTSEL或其它方法就可以一次性的變更亮度及對比兩個項目呢?
之前有試過只使用一次改變兩個值結果都只有變更一個項目
(defun c:A300A ()
(IF (= (setq IMAG1(entget (car (entsel "\n 選取變更 [IMAGE] [亮度]圖片檔：")))) NIL)
(PROGN
(PRINC "沒有選中圖片"))
(PROGN
(SETQ G800 (assoc 281 IMAG1))
(SETQ M200 (CONS 281 80))
(SETQ CHANGEOK30 (SUBST M200 G800 IMAG1))
(ENTMOD CHANGEOK30)
(IF (= (setq IMAG2(entget (car (entsel "\n 選取變更 [IMAGE] [對比]圖片檔：")))) NIL)
(PROGN
(PRINC "沒有選中圖片"))
(PROGN
(SETVAR "CMDECHO" 0)
(SETQ A800 (assoc 282 IMAG2))
(SETQ B200 (CONS 282 5))
(SETQ CHANGEOK32 (SUBST B200 A800 IMAG2))
(ENTMOD CHANGEOK32)))))
(PRIN1))

修改好了~

代碼:

(defun c:A300A ()
  (SETVAR "CMDECHO" 0)
  (IF (= (setq IMAG1(entget (car (entsel "\n 選取變更 [IMAGE] [亮度&對比]圖片檔：")))) NIL)
    (PROGN
      (PRINC "沒有選中圖片")
    )
    (test)
  )
  (PRIN1)
)
(defun test ()
  (SETQ IMAG1 (SUBST (CONS 281 80) (assoc 281 IMAG1) IMAG1))
  (SETQ IMAG1 (SUBST (CONS 282 5) (assoc 282 IMAG2) IMAG1))
  (ENTMOD IMAG1)
)


明~ 寫到:修改好了~

代碼:

(defun c:A300A ()
  (SETVAR "CMDECHO" 0)
  (IF (= (setq IMAG1(entget (car (entsel "\n 選取變更 [IMAGE] [亮度&對比]圖片檔：")))) NIL)
    (PROGN
      (PRINC "沒有選中圖片")
    )
    (test)
  )
  (PRIN1)
)
(defun test ()
  (SETQ IMAG1 (SUBST (CONS 281 80) (assoc 281 IMAG1) IMAG1))
  (SETQ IMAG1 (SUBST (CONS 282 5) (assoc 282 IMAG2) IMAG1))
  (ENTMOD IMAG1)
)


感謝您的幫忙， 謝謝，學習了！
請問原本我再練習寫的時後，將80跟5的這兩個部份，改成讓自己輸入再一個一個的往下排
結果寫法，不管我怎麼變換排列或讓自定義的名稱改變，可是就只能改到一個，現在的寫法
直接精簡下來後反而可以一次改到兩個不知道是為什麼會這樣，不知道您在修改的時後有沒
有遇到這樣的問題?