Vla-put-scalefactor

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

構文: (vla-put-scalefactor vla-object scale )

機能: オブジェクトの尺度を指定する。

引数

vla-object … VLAオブジェクト（Attribute、AttributeReference、DgnUnderlay、Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、Dimension、DimOrdinate、DimRadial、DimRadialLarge、DimRotated、DwfUnderlay、GeomapImage、Leader、MLeader、MLeaderStyle、PdfUnderlay、RasterImage、Shape、Text、Tolerance、Wipeout）
scale … 0.0 よりも大きい実数。尺度係数が 1 より大きいと、オブジェクトは拡大される。尺度係数が 1 より小さい(ただし 0 より大きい)と、オブジェクトは縮小される。

戻り値: nil

MEMO：このプロパティの初期値は 1.0000。
尺度係数はしばしば、相対 X 倍率と呼ばれる。尺度係数はオブジェクトの幅に適用され、高さとは別に幅だけを調整できる。たとえば、尺度係数を 0.8 に指定すると、オブジェクトは調整していない通常の幅の 80% の幅で描かれる。
寸法、引出線、幾何公差オブジェクト: このプロパティはシステム変数 DIMSCALE の値を変更する。
ペーパー空間で作業している場合、寸法の尺度は 0.0 に等しく、CAD は現在のモデル空間のビューポートとペーパー空間の間の尺度設定に基づいて適切な既定値を計算する。ペーパー空間の寸法に対する尺度は変更できない。

サンプル

(vl-load-com)
(defun c:Example_ScaleFactor()
    ;; テキストを作成して尺度を変更するサンプル。
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; テキストの定義
    (setq textString "Hello, World."
          insertionPoint (vlax-3d-point 2 2 0)
          height 0.5)

    ;; テキストを作成
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq textObj (vla-AddText modelSpace textString insertionPoint height))
    (vla-ZoomAll acadObj)
    
    ;; 現在値を表示
    (setq currScaleFactor (vla-get-Scalefactor textObj))
    (alert (strcat "現在のテキストの尺度は " (rtos currScaleFactor 2)))
    
    ;; Change the scale factor for the text object
    (vla-put-Scalefactor textObj (1+ currScaleFactor))
    (vla-Regen doc :vlax-true)
    (alert (strcat "新しいテキストの尺度は  " (rtos (vla-get-Scalefactor textObj) 2)))
)