Vla-put-blockscaling

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

構文

(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

---

関連事項

• vlax-get-acad-object
• vla-get-activedocument
• vla-get-blockscaling
• vla-put-blockscaling