Vla-setcolorbookcolor

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-setcolorbookcolor vla-object Index key Value)


機能
既存のカラー ブックから色の名前を指定する。


引数
  • vla-object … AcCmColor の vla-object
  • BookName … カラー ブックのファイル名。
  • ColorName … 色の名前。


戻り値
nil


サンプル
(vl-load-com)
(defun c:Example_SetColorBookColor()
    ;; 線分を作成して、カラーブックの色を設定するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq FirstColor (vlax-create-object "AutoCAD.AcCmColor.20")) ; ここはバージョンに合わせて変える。
    (vla-SetRGB FirstColor 80 100 244)
  
    (setq startPoint (vlax-3d-point 1 1 0)
          endPoint (vlax-3d-point 5 5 0))

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq lineObj (vla-AddLine modelSpace startPoint endPoint))
    (vla-ZoomAll acadObj)

    (vla-SetColorBookColor FirstColor "PANTONE+ Solid Uncoated" "PANTONE Yellow 012 U")
    (vla-put-TrueColor lineObj FirstColor)

    (vlax-release-object FirstColor)
)

関連事項