[討論]圖片變更亮度及對比問題請教
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]圖片變更亮度及對比問題請教
以下程序為要變更插入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))
圖片中的亮度及對比有沒有什麼方法只使用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, 22:10 作了第 1 次修改 (原因 : 改為討論)
adslwang- 高級會員
- 文章總數 : 376
年齡 : 46
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 7198
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
回復: [討論]圖片變更亮度及對比問題請教
修改好了~
- 代碼:
(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)
)
明~- 高級會員
- 文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 7182
威望值 : 667
注冊日期 : 2009-12-24
回復: [討論]圖片變更亮度及對比問題請教
明~ 寫到:修改好了~
- 代碼:
(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的這兩個部份,改成讓自己輸入再一個一個的往下排
結果寫法,不管我怎麼變換排列或讓自定義的名稱改變,可是就只能改到一個,現在的寫法
直接精簡下來後反而可以一次改到兩個不知道是為什麼會這樣,不知道您在修改的時後有沒
有遇到這樣的問題?
adslwang- 高級會員
- 文章總數 : 376
年齡 : 46
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 7198
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章