Vla-put-blockscaling

提供: GizmoLabs
移動先: 案内検索
構文
(vla-put-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


関連事項