Vla-get-colormethod

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月16日 (土) 19:30時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-colormethod ''vla-object'') ; 機能 : vlaオブジェクトのカラーメソッドを取得する。 ; 引数 :* vla-object … V...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-colormethod vla-object)


機能
vlaオブジェクトのカラーメソッドを取得する。


引数
  • vla-object … VLAオブジェクト


戻り値
acColorMethod の種類。次のいずれかの定数。
  • acColorMethodByACI
  • acColorMethodByBlock
  • acColorMethodByLayer (既定)
  • acColorMethodByRGB
  • acColorMethodForeground


サンプル
(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)
      ))))

関連事項