Vla-setrgbのソースを表示

{{AutoLISP}}
; 構文
: (vla-setrgb ''vla-object'' ''int1'' ''int2'' ''int3'')


; 機能
: vla-object の RGB値をセットする。


; 引数
:* vla-object … vlaオブジェクト
:* int1 … 赤のRGB値 0 ～ 255
:* int2 … 緑のRGB値 0 ～ 255
:* int3 … 青のRGB値 0 ～ 255


; 戻り値
: nil


; サンプル
<pre class="brush:autolisp;">
(defun c:layer2trucolor(/ lay tc idx)
  ; レイヤーのACIカラーをRGBカラーに変換
  (vl-load-com)
  (setq *acaddoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (vlax-for lay (vla-get-layers *acaddoc*)
    (setq tc (vla-get-truecolor lay))
    (if (= (vla-get-colormethod tc) acColorMethodByACI)
      (progn
        (setq idx (vla-get-colorindex tc))           
        (vla-put-colormethod tc accolormethodbyrgb)
        (vla-put-colorindex tc idx)
        (setq r (vla-get-red tc)
              g (vla-get-green tc)
              b (vla-get-blue tc))
        (vla-setrgb tc r g b)
        (vla-put-truecolor lay tc)
      ))))
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-get-truecolor]]
* [[vla-put-truecolor]]
* [[vla-get-red]]
* [[vla-get-green]]
* [[vla-get-blue]]
* [[vla-setrgb]]
* [[vla-get-colorindex]]
* [[vla-put-colorindex]]
* [[vla-get-colormethod]]
* [[vla-put-colormethod]]
* [[vlax-for]]


[[Category:AutoLISP]]