Vla-put-stylename

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年11月25日 (月) 11:33時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-stylename ''vla-object'') ; 機能 : オブジェクトのスタイル名前を設定する。 ; 引数 :* vla-object … VLA オブ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-stylename vla-object)


機能
オブジェクトのスタイル名前を設定する。


引数
  • vla-object … VLA オブジェクト(Attribute、AttributeReference、Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated、Leader、MLeader、MText、Text、Tolerance)
  • StyleName … スタイル名の文字列


戻り値
スタイル名の文字列
  • memo: MLine オブジェクトは読み込み専用なので設定不可。寸法の場合、このプロパティの値は、システム変数 DIMSTYLE[寸法スタイル]に格納される。
  • 注 : 文字スタイルの属性を変更するには、TextStyle オブジェクトを使用する。寸法スタイルの属性を変更するには、DimStyle オブジェクトを使用する。

所定の名前が図面で既に定義されている必要があります。

サンプル

(defun C:xxx (/ ss)
  ; 図面内の1行文字図形のスタイルをSTANDARDにするだけのコマンド
  (vl-load-com)
  (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (if (ssget "_x" '((0 . "TEXT")))
    (vlax-for item
      (setq ss (vla-get-activeSelectionSet *ActDoc*) )
      (vla-put-Stylename item "standard")
    ))
  (if ss (vla-delete ss))
(princ)
)


関連事項