Vla-put-color

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月25日 (月) 08:46時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-color ''vla-object'' ''acColor'') ; 機能 : vla-object の色を設定 ; 引数 :* vla-object … VLAオブジェクト :* acColor...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-color vla-object acColor)


機能
vla-object の色を設定


引数
  • vla-object … VLAオブジェクト
  • acColor … acColor 列挙型
  • 0 ~ 256 のカラー インデックス番号か以下の定数。
  • acByBlock
  • acByLayer (Layer オブジェクトには無効)
  • acRed = 1
  • acYellow = 2
  • acGreen = 3
  • acCyan = 4
  • acBlue =5
  • acMagenta = 6
  • acWhite = 7


戻り値
nil


サンプル
; 選択図形のVLAオブジェクト
(setq obj1 (vlax-ename->vla-object (car (entsel))))

; VLAオブジェクトから図形のプロパティ取得
; 一般プロパティ
(vla-get-color obj1) ; 色
256
(vla-put-color obj1 128)


(vla-get-layer obj1) ; 画層
"0"
(vla-put-layer obj1 "DEFPOINTS")


(vla-get-linetype obj1) ; 線種
"BYLAYER"
(vla-put-linetype obj1 "HIDDEN")


(vla-get-linetypescale obj1) ; 線種尺度
1.0
(vla-put-linetypescale obj1 0.5)


(vla-get-plotstylename obj1) ; 印刷スタイル名
"ByLayer"
(vla-put-plotstylename obj1 "Styel_1")


(vla-get-lineweight obj1) ; 線の太さ
-1
(vla-put-lineweight obj1 18)


(vla-get-hyperlinks obj1) ; ハイパーリンク
#<VLA-OBJECT IAcadHyperlinks 0000000031d12168>

(vla-get-entitytransparency obj1) ; 透過性
"ByLayer"
(vla-put-entitytransparency obj1 50)

(vla-get-thickness obj1) ; 厚さ
0.0
(vla-put-thickness obj1 1.0)


(vla-get-material obj1) ; 3Dマテリアル
"ByLayer"
(vla-put-material obj1 "GLOBAL")

関連事項