Vla-setcolorbookcolor

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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)
)