Vla-put-standardscale
- 構文
- (vla-put-standardscale vla-object scale )
- 機能
- レイアウト、ビューポート、または印刷環境設定の標準尺度を指定する。
- 引数
-
- vla-object … VLAオブジェクト（Layout、PlotConfiguration、PViewport）
- scale … acPlotScale 列挙型 = Layout および PlotConfiguration オブジェクト、acViewportScale 列挙型 = PViewport オブジェクト
- acPlotScale 列挙型
- acScaleToFit: フィットするように調整
- ac1_128in_1ft: 1/128"= 1'
- ac1_64in_1ft: 1/64"= 1'
- ac1_32in_1ft: 1/32"= 1'
- ac1_16in_1ft: 1/16"= 1'
- ac3_32in_1ft: 3/32"= 1'
- ac1_8in_1ft: 1/8" = 1'
- ac3_16in_1ft: 3/16"= 1'
- ac1_4in_1ft: 1/4" = 1'
- ac3_8in_1ft: 3/8" = 1'
- ac1_2in_1ft: 1/2" = 1'
- ac3_4in_1ft: 3/4" = 1'
- ac1in_1ft: 1"= 1'
- ac3in_1ft: 3"= 1'
- ac6in_1ft: 6"= 1'
- ac1ft_1ft: 1'= 1'
- ac1_1: 1:1
- ac1_2: 1:2
- ac1_4: 1:4
- ac1_8: 1:8
- ac1_10: 1:10
- ac1_16: 1:16
- ac1_20: 1:20
- ac1_30: 1:30
- ac1_40: 1:40
- ac1_50: 1:50
- ac1_100: 1:100
- ac2_1: 2:1
- ac4_1: 4:1
- ac8_1: 8:1
- ac10_1: 10:1
- ac100_1: 100:1
- acViewportScale 列挙型
- acVpScaleToFit: フィットするように調整
- acVpCustomScale: カスタム
- acVp1_128in_1ft: 1/128"= 1'
- acVp1_64in_1ft: 1/64"= 1'
- acVp1_32in_1ft: 1/32"= 1'
- acVp1_16in_1ft: 1/16"= 1'
- acVp3_32in_1ft: 3/32"= 1'
- acVp1_8in_1ft: 1/8" = 1'
- acVp3_16in_1ft: 3/16"= 1'
- acVp1_4in_1ft: 1/4" = 1'
- acVp3_8in_1ft: 3/8" = 1'
- acVp1_2in_1ft: 1/2" = 1'
- acVp3_4in_1ft: 3/4" = 1'
- acVp1and1_2in_1ft: 1-1/2"= 1'
- acVp3in_1ft: 3"= 1'
- acVp6in_1ft: 6"= 1'
- acVp1ft_1ft: 1'= 1'
- acVp1_1: 1:1
- acVp1_2: 1:2
- acVp1_4: 1:4
- acVp1_8: 1:8
- acVp1_10: 1:10
- acVp1_16: 1:16
- acVp1_20: 1:20
- acVp1_30: 1:30
- acVp1_40: 1:40
- acVp1_50: 1:50
- acVp1_100: 1:100
- acVp2_1: 2:1
- acVp4_1: 4:1
- acVp8_1: 8:1
- acVp10_1: 10:1
- acVp100_1: 100:1
- 戻り値
- nil
- MEMO : ビューポートをカスタム尺度を設定するには、このプロパティを acVpCustomScale に設定してから、CustomScale プロパティにカスタム尺度を定義する。
- このプロパティに対する変更は図面が再作図されないと分からないので、Regen メソッドを使用して図面を再作図する。
- サンプル
(vl-load-com)
(defun c:Example_StandardScale()
;; 現在の図面のアクティブなレイアウトにアクセスし、そのレイアウトの標準的なスケールを一覧表示。
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; activeLayout を取得
(setq Layout (vla-get-ActiveLayout doc))
;; 現在の standard scale
(setq currScale (vla-get-StandardScale Layout))
(alert (strcat "現在の標準的なスケール : " (itoa currScale)))
;; 変更
(vla-put-StandardScale Layout ac100_1)
(alert (strcat "新しい標準的なスケール : " (itoa (vla-get-StandardScale Layout))))
;; 戻す
(vla-put-StandardScale Layout currScale)
(alert (strcat "標準的なスケールを戻しました : " (itoa (vla-get-StandardScale Layout))))
)
関連事項