「Vla-put-blockscaling」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-blockscaling ''vla-object'' ''type'') ; 機能 : ブロックに許される尺度を取得する。 ; 引数 :* vla-object … Blo...」) |
(相違点なし)
|
2016年1月7日 (木) 05:35時点における版
- 構文
- (vla-get-blockscaling vla-object type)
- 機能
- ブロックに許される尺度を取得する。
- 引数
-
- vla-object … Block の VLAオブジェクト
- type … acBlockScaling 列挙型
- acAny
- acUniform
- 戻り値
- nil
- サンプル
(Defun C:Block_Scale_Uniformly_Toggle (/ MS)
(vl-load-com)
(setq MS (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(if (= (vla-get-blockscaling ms) acuniform)
(vla-put-blockscaling ms acAny)
(vla-put-blockscaling ms acUniform)
)
(princ (strcat "\nブロックとして挿入されたときのスケールタイプ : " (if (= (vla-get-blockscaling ms) acuniform) "等倍" "等倍でない")))
(princ)
);defun
関連事項