「Vla-get-stylename」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-stylename ''vla-object'') ; 機能 : オブジェクトのスタイル名前を取得する。 ; 引数 :* vla-object … VLA オブ...」) |
細編集の要約なし |
||
| 39行目: | 39行目: | ||
* [[vlax-get-acad-object]] | * [[vlax-get-acad-object]] | ||
* [[vla-get-activedocument]] | * [[vla-get-activedocument]] | ||
* [[vla-put-stylename]] | |||
[[Category:AutoLISP]] | [[Category:AutoLISP]] | ||
2013年11月25日 (月) 11:13時点における最新版
- 構文
- (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)
)
関連事項