Vla-get-standardscale

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月14日 (日) 16:52時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-standardscale ''vla-object'' ) ; 機能 : レイアウト、ビューポート、または印刷環境設定の標準尺度を取得す...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-standardscale vla-object )


機能
レイアウト、ビューポート、または印刷環境設定の標準尺度を取得する。


引数
  • vla-object … VLAオブジェクト(Layout、PlotConfiguration、PViewport)


戻り値
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
  • 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))))
)

関連事項