Vla-put-textrotation

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月6日 (土) 23:42時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-textrotation ''vla-object'' ''angle'' ) ; 機能 : 寸法値の回転角度を指定する。 ; 引数 :* vla-object … VLAオブ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-textrotation vla-object angle )


機能
寸法値の回転角度を指定する。


引数
  • vla-object … VLAオブジェクト(Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、Dimension、DimOrdinate、DimRadial、DimRadialLarge、DimRotated、MLeader)
  • angle … ラジアンで示した寸法値の角度。有効範囲は 0~2π


戻り値
nil


  • 既定では、この値は 0 度または寸法スタイルで指定した Rotation プロパティと同じ。


サンプル
(vl-load-com)
(defun c:Example_TextRotation()
    ;; 寸法を作成して、寸法値を回転するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; 寸法の定義
    (setq point1 (vlax-3d-point 5 3 0)
          point2 (vlax-3d-point 10 3 0)
          location (vlax-3d-point 7.5 5 0))
    
    ;; 寸法を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimAligned modelSpace point1 point2 location))
    (vla-ZoomAll acadObj)
    (alert (strcat "現在の寸法値角度は " (rtos (vla-get-TextRotation dimObj) 2) " radians."))
    
    ;; 変更
    (vla-put-TextRotation dimObj 0.707)
    (vla-Update dimObj)
        
    (alert (strcat "新しい寸法値角度は " (rtos (vla-get-TextRotation dimObj) 2) " radians."))
)


関連事項