「Vla-put-altunitsformat」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-altunitsformat ''vla-object'' '''' '''' '''' ) ; 機能 : 角度寸法以外のすべての寸法の変換単位についての単位...」) |
細編集の要約なし |
||
| 1行目: | 1行目: | ||
{{AutoLISP}} | {{AutoLISP}} | ||
; 構文 | ; 構文 | ||
: (vla-put-altunitsformat ''vla-object'' '' | : (vla-put-altunitsformat ''vla-object'' ''Unit'' ) | ||
| 10行目: | 10行目: | ||
; 引数 | ; 引数 | ||
:* vla-object … VLAオブジェクト(DimAligned、DimArcLength、DimDiametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated) | :* vla-object … VLAオブジェクト(DimAligned、DimArcLength、DimDiametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated) | ||
:* | :* Unit … acDimUnits 列挙型 | ||
::* acDimScientific | ::* acDimScientific | ||
::* acDimDecimal | ::* acDimDecimal | ||
2016年2月19日 (金) 13:16時点における最新版
- 構文
- (vla-put-altunitsformat vla-object Unit )
- 機能
- 角度寸法以外のすべての寸法の変換単位についての単位形式を指定する。
- 引数
-
- vla-object … VLAオブジェクト(DimAligned、DimArcLength、DimDiametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated)
- Unit … acDimUnits 列挙型
- acDimScientific
- acDimDecimal
- acDimEngineering
- acDimArchitecturalStacked
- acDimFractionalStacked
- acDimArchitectural
- acDimFractional
- acDimWindowsDesktop
- 戻り値
- nil
- MEMO: このプロパティの初期値は acDimDecimal。
- 注 : このプロパティは、指定された寸法でシステム変数 DIMALTU[併記寸法単位]の値を変更する。
- サンプル
(vl-load-com)
(defun c:Example_AltUnitsFormat()
;; 変換単位の単位形式を変更するサンプル
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; 寸法の定義
(setq point1 (vlax-3d-point 0 5 0)
point2 (vlax-3d-point 5.12345678 5 0)
location (vlax-3d-point 5 7 0))
;; 寸法を作成
(setq modelSpace (vla-get-ModelSpace doc))
(setq dimObj (vla-AddDimAligned modelSpace point1 point2 location))
(vla-ZoomAll acadObj)
;; 変換単位を有効に
(vla-put-AltUnits dimObj :vlax-true)
(vla-put-AltUnitsFormat dimObj acDimScientific) ;; 科学的に書式を変更。
(vla-Regen doc acAllViewports)
(alert "変換単位の書式を科学的に変更。")
(vla-put-AltUnitsFormat dimObj acDimDecimal) ;; 10 進数に書式を変更。
(vla-Regen doc acAllViewports)
(alert "変換単位の書式を10 進数に変更。")
(vla-put-AltUnitsFormat dimObj acDimArchitectural) ;; 建築に書式を変更。
(vla-Regen doc acAllViewports)
(alert "変換単位の書式を建築に変更。")
(vla-put-AltUnitsFormat dimObj acDimWindowsDesktop) ;; Windows のデスクトップに書式を変更。
(vla-Regen doc acAllViewports)
(alert "変換単位の書式をWindows のデスクトップに変更。")
)
関連事項