Vla-put-drawingdirection

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年10月13日 (火) 08:27時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-drawingdirection ''vla-object'' ''acDrawingDirection'') ; 機能 : マルチ テキスト段落を読む方向を指定する。 ;...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-drawingdirection vla-object acDrawingDirection)


機能
マルチ テキスト段落を読む方向を指定する。


引数
  • vla-object … GeoPositionMarker、MText のVLAオブジェクト
  • acDrawingDirection 列挙型
  • acLeftToRight
  • acTopToBottom
  • acRightToLeft (将来使用するために予約されている)
  • acBottomToTop (将来使用するために予約されています)
  • acByStyle (将来使用するために予約されています)


戻り値
nil


  • 注意: 英語やスペイン語の場合、横方向(左から右)に読む。日本語や中国語の場合、縦方向(上から下)に読むことがある。AutoCAD は、このプロパティ設定にしたがって文字を表示する。


サンプル
(vl-load-com)
(defun c:Example_DrawingDirection()
    ;; マルチテキストを作成して、文字方向を変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; MTEXT の値
    (setq corner1 (vlax-3d-point 0 6 0)  
          width 7
          text "This is a text String.")

    ;; MText オブジェクトを作成。
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MTextObj (vla-AddMText modelSpace corner1 width text))
    (vla-ZoomAll acadObj)
    
    ;; 文字方向を変更
    (vla-put-DrawingDirection MTextObj acLeftToRight)
    (vla-ZoomAll acadObj)
    (alert "文字方向を左から右へ")
        
    (vla-put-DrawingDirection MTextObj acTopToBottom)
    (vla-ZoomAll acadObj)
    (alert "文字方向を上から下へ")
        
    ;; 文字方向を元に戻します
    (setq retDirection (vla-get-DrawingDirection MTextObj))
    (alert (strcat "文字方向 DrawingDirection を元に戻します: " (itoa retDirection)))
)


関連事項