Vla-get-blockscaling

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

構文: (vla-get-blockscaling vla-object)

機能: ブロックに許される尺度を取得する。

引数

vla-object … Block の VLAオブジェクト

戻り値

acBlockScaling 列挙型

acAny
acUniform

サンプル

(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