AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

上一篇主題 下一篇主題 向下

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

發表 由 adslwang 于 2012-05-16, 05:23

以下程序為要變更插入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))


judyyai 在 2012-05-17, 15:10 作了第 1 次修改 (原因 : 改為討論)
avatar
adslwang
高級會員
高級會員

文章總數 : 372
年齡 : 39
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 4661
威望值 : 355
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

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

發表 由 明~ 于 2012-05-26, 07:15

修改好了~
代碼:
(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)
)
avatar
明~
高級會員
高級會員

文章總數 : 307
年齡 : 37
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 4667
威望值 : 670
注冊日期 : 2009-12-24
藍鵲292號
男 雙魚座 猴

回頂端 向下

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

發表 由 adslwang 于 2012-05-26, 13:10

明~ 寫到:修改好了~
代碼:
(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的這兩個部份,改成讓自己輸入再一個一個的往下排
結果寫法,不管我怎麼變換排列或讓自定義的名稱改變,可是就只能改到一個,現在的寫法
直接精簡下來後反而可以一次改到兩個不知道是為什麼會這樣,不知道您在修改的時後有沒
有遇到這樣的問題?
avatar
adslwang
高級會員
高級會員

文章總數 : 372
年齡 : 39
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 4661
威望值 : 355
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章