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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]圖片變更亮度及對比問題請教 Aoe1-113[討論]圖片變更亮度及對比問題請教 Ioaoe110[討論]圖片變更亮度及對比問題請教 2020-310[討論]圖片變更亮度及對比問題請教 Oiu15010[討論]圖片變更亮度及對比問題請教 2020-211[討論]圖片變更亮度及對比問題請教 Ia15010[討論]圖片變更亮度及對比問題請教 Aizyao10[討論]圖片變更亮度及對比問題請教 Uos15010[討論]圖片變更亮度及對比問題請教 BPl3tjj[討論]圖片變更亮度及對比問題請教 Ziao1510
[討論]圖片變更亮度及對比問題請教 Aoe15010[討論]圖片變更亮度及對比問題請教 Oo-2-110[討論]圖片變更亮度及對比問題請教 Zuoiy_10[討論]圖片變更亮度及對比問題請教 Aizyao11[討論]圖片變更亮度及對比問題請教 Iyb_1510[討論]圖片變更亮度及對比問題請教 Aoe1-112[討論]圖片變更亮度及對比問題請教 Uos15011[討論]圖片變更亮度及對比問題請教 Aoe2da10[討論]圖片變更亮度及對比問題請教 Aoe2da11[討論]圖片變更亮度及對比問題請教 Aoe10

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

2 posters

向下

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

發表 由 adslwang 2012-05-16, 12: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, 22:10 作了第 1 次修改 (原因 : 改為討論)
adslwang
adslwang
高級會員
高級會員

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

回頂端 向下

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

發表 由 明~ 2012-05-26, 14: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)
)
明~
明~
高級會員
高級會員

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

回頂端 向下

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

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]圖片變更亮度及對比問題請教 Aoe1-113[討論]圖片變更亮度及對比問題請教 Ioaoe110[討論]圖片變更亮度及對比問題請教 2020-310[討論]圖片變更亮度及對比問題請教 Oiu15010[討論]圖片變更亮度及對比問題請教 2020-211[討論]圖片變更亮度及對比問題請教 Ia15010[討論]圖片變更亮度及對比問題請教 Aizyao10[討論]圖片變更亮度及對比問題請教 Uos15010[討論]圖片變更亮度及對比問題請教 BPl3tjj[討論]圖片變更亮度及對比問題請教 Ziao1510
[討論]圖片變更亮度及對比問題請教 Aoe15010[討論]圖片變更亮度及對比問題請教 Oo-2-110[討論]圖片變更亮度及對比問題請教 Zuoiy_10[討論]圖片變更亮度及對比問題請教 Aizyao11[討論]圖片變更亮度及對比問題請教 Iyb_1510[討論]圖片變更亮度及對比問題請教 Aoe1-112[討論]圖片變更亮度及對比問題請教 Uos15011[討論]圖片變更亮度及對比問題請教 Aoe2da10[討論]圖片變更亮度及對比問題請教 Aoe2da11[討論]圖片變更亮度及對比問題請教 Aoe10