コンテンツにスキップ

Tweets by gzlabs

Vla-put-blockscaling

提供：GizmoLabs - だいたい CAD LISP なサイト

2016年1月7日 (木) 05:35時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-blockscaling ''vla-object'' ''type'') ; 機能 : ブロックに許される尺度を取得する。 ; 引数 :* vla-object … Blo...」)

(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)

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

構文: (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

関連事項

「https://wiki.gz-labs.net/index.php?title=Vla-put-blockscaling&oldid=5563」から取得

AutoLISP