「Vla-get-gradientcolor1」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-gradientcolor1 ''vla-object'') ; 機能 : ハッチングのグラデーション開始色を指定する。 ; 引数 :* vla-object...」) |
細編集の要約なし |
||
| 5行目: | 5行目: | ||
; 機能 | ; 機能 | ||
: | : ハッチングのグラデーション開始色を取得する。 | ||
| 90行目: | 90行目: | ||
* [[vla-get-blue]] | * [[vla-get-blue]] | ||
* [[vla-appendouterloop]] | * [[vla-appendouterloop]] | ||
* [[ | * [[vla-evaluate]] | ||
[[Category:AutoLISP]] | [[Category:AutoLISP]] | ||
2015年1月23日 (金) 23:47時点における最新版
- 構文
- (vla-get-gradientcolor1 vla-object)
- 機能
- ハッチングのグラデーション開始色を取得する。
- 引数
-
- vla-object … Hatch の VLA オブジェクト
- 戻り値
- AcCmColor オブジェクト。次の定数の 1 つを含んでいる必要があり、含んでいなければエラーが返される。
- acColorMethodByACI
- acColorMethodByBlock
- サンプル
(vl-load-com)
(defun c:Example_GradientColor1()
;; グラデーションの色を変更するサンプル
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
;; 初期化
(setq patternName "CYLINDER")
(setq patternType acPreDefinedGradient)
(setq bAssociativity :vlax-true)
;; モデル空間にハッチ生成
(setq modelSpace (vla-get-ModelSpace doc))
(setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acGradientObject))
(setq col1 (vlax-create-object "AutoCAD.AcCmColor.21"))
(setq col2 (vlax-create-object "AutoCAD.AcCmColor.21"))
(setq newColor (vlax-create-object "AutoCAD.AcCmColor.21"))
(vla-SetRGB col1 255 0 0)
(vla-SetRGB col2 0 255 0)
(vla-SetRGB newColor 0 100 0)
(vla-put-GradientColor1 hatchObj col1)
(vla-put-GradientColor2 hatchObj col2)
;; ハッチの境界生成
(setq center (vlax-3d-point 3 3 0)
radius 1)
(setq circle (vla-AddCircle modelSpace center radius))
(setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))
(vlax-safearray-put-element outerLoop 0 circle)
;; ハッチの表示
(vla-AppendOuterLoop hatchObj outerLoop)
(vla-Evaluate hatchObj)
(vla-Regen doc :vlax-true)
(alert (strcat "現在の GradientColor1 の値は :"
"\nred = " (itoa (vla-get-Red (vla-get-GradientColor1 hatchObj)))
"\ngreen = " (itoa (vla-get-Green (vla-get-GradientColor1 hatchObj)))
"\nblue = " (itoa (vla-get-Blue (vla-get-GradientColor1 hatchObj)))))
(vla-put-GradientColor1 hatchObj newColor)
(alert (strcat "新しい GradientColor1 の値は :"
"\nred = " (itoa (vla-get-Red (vla-get-GradientColor1 hatchObj)))
"\ngreen = " (itoa (vla-get-Green (vla-get-GradientColor1 hatchObj)))
"\nblue = " (itoa (vla-get-Blue (vla-get-GradientColor1 hatchObj)))))
(vlax-release-object col1)
(vlax-release-object col2)
(vlax-release-object newColor)
)
関連事項