Vla-get-stylename

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年11月25日 (月) 11:13時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-stylename vla-object)


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


引数
  • vla-object … VLA オブジェクト(Attribute、AttributeReference、Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated、Leader、MLeader、MLine、MText、Text、Tolerance)


戻り値
スタイル名の文字列


サンプル

(defun C:xxx (/ ss)
  ; 図面内の1行文字図形のスタイルをダーっと表示するだけのコマンド
  (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*) )
      (princ (strcat "\n" item ": " (vla-get-Stylename item)))
    ))
  (if ss (vla-delete ss))
(princ)
)


関連事項