「Vla-get-activelinetype」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-activelinetype ''vla-object'') ; 機能 : ; 引数 :* vla-object … ; 戻り値 : ; サンプル <pre class="brush:autolisp...」) |
細編集の要約なし |
||
(同じ利用者による、間の1版が非表示) | |||
5行目: | 5行目: | ||
; 機能 | ; 機能 | ||
: | : 現在の線種のVLAオブジェクトを返す。 | ||
; 引数 | ; 引数 | ||
:* vla-object … | :* vla-object … CAD アプリケーションの VLAオブジェクト | ||
; 戻り値 | ; 戻り値 | ||
: | : 現在の線種のVLAオブジェクト | ||
; サンプル | ; サンプル | ||
<pre class="brush:autolisp;"> | <pre class="brush:autolisp;"> | ||
; 現在の線種を取得する | |||
(setq ltype1 (getvar "CELTYPE")) | |||
; VLAオブジェクトから現在の線種を取得する | ; VLAオブジェクトから現在の線種を取得する | ||
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object))) | (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object))) | ||
(setq ltype1 (vlax-get-property (vla-get-activelinetype *ActDoc*) 'Name)) | (setq ltype1 (vlax-get-property (vla-get-activelinetype *ActDoc*) 'Name)) | ||
; | ; ダンプ | ||
( | (vlax-dump-object (vla-get-activelinetype *ActDoc*)) | ||
; IAcadLineType: ダッシュ、ドット、スペースの組み合わせから構成された線の特性 | |||
; プロパティの値: | |||
; Application (RO) = #<VLA-OBJECT IAcadApplication 00000001402191d8> | |||
; Description = "" | |||
; Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b4038d0> | |||
; Handle (RO) = "13" | |||
; HasExtensionDictionary (RO) = 0 | |||
; Name = "BYLAYER" | |||
; ObjectID (RO) = 54 | |||
; ObjectID32 (RO) = 54 | |||
; ObjectName (RO) = "AcDbLinetypeTableRecord" | |||
; OwnerID (RO) = 55 | |||
; OwnerID32 (RO) = 55 | |||
</pre> | </pre> | ||
2013年3月9日 (土) 16:49時点における最新版
- 構文
- (vla-get-activelinetype vla-object)
- 機能
- 現在の線種のVLAオブジェクトを返す。
- 引数
-
- vla-object … CAD アプリケーションの VLAオブジェクト
- 戻り値
- 現在の線種のVLAオブジェクト
- サンプル
; 現在の線種を取得する (setq ltype1 (getvar "CELTYPE")) ; VLAオブジェクトから現在の線種を取得する (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object))) (setq ltype1 (vlax-get-property (vla-get-activelinetype *ActDoc*) 'Name)) ; ダンプ (vlax-dump-object (vla-get-activelinetype *ActDoc*)) ; IAcadLineType: ダッシュ、ドット、スペースの組み合わせから構成された線の特性 ; プロパティの値: ; Application (RO) = #<VLA-OBJECT IAcadApplication 00000001402191d8> ; Description = "" ; Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b4038d0> ; Handle (RO) = "13" ; HasExtensionDictionary (RO) = 0 ; Name = "BYLAYER" ; ObjectID (RO) = 54 ; ObjectID32 (RO) = 54 ; ObjectName (RO) = "AcDbLinetypeTableRecord" ; OwnerID (RO) = 55 ; OwnerID32 (RO) = 55