「Vla-get-activelayer」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
(同じ利用者による、間の2版が非表示)
18行目: 18行目:
; サンプル
; サンプル
<pre class="brush:autolisp;">
<pre class="brush:autolisp;">
  ; VLAオブジェクトから現在画層色を取得。
  ; テーブルから現在画層の色を取得。
(setq col1 (cdr (assoc 62 (tblsearch "layer" (getvar "CLAYER")))))
 
; VLAオブジェクトから現在画層の色を取得。
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq col1 (vla-get-color (vla-get-ActiveLayer *ActDoc*)))
(setq col1 (vla-get-color (vla-get-ActiveLayer *ActDoc*)))


; テーブルから現在画層の色を取得。
; ダンプ
(setq col1 (cdr (assoc 62 (tblsearch "layer" (getvar "CLAYER")))))
(vlax-dump-object (vla-get-ActiveLayer *ActDoc*))
; IAcadLayer: データの論理的なグループ化、図面に重ねたトレーシング ペーパーのようなものです
; プロパティの値:
;  Application (RO) = #<VLA-OBJECT IAcadApplication 00000001402191d8>
;  Description = ""
;  Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b4038d0>
;  Freeze = 0
;  Handle (RO) = "F"
;  HasExtensionDictionary (RO) = 0
;  LayerOn = -1
;  Linetype = "CONTINUOUS"
;  Lineweight = -3
;  Lock = 0
;  Material = "Global"
;  Name = "0"
;  ObjectID (RO) = 46
;  ObjectID32 (RO) = 46
;  ObjectName (RO) = "AcDbLayerTableRecord"
;  OwnerID (RO) = 47
;  OwnerID32 (RO) = 47
;  PlotStyleName = "色_7"
;  Plottable = -1
;  TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000031e26d20>
;  Used (RO) = -1
;  ViewportDefault = 0
T
</pre>
</pre>


-----
関連事項
* [[Vla-put-activelayer]]


[[Category:AutoLISP]]
[[Category:AutoLISP]]

2013年3月9日 (土) 22:03時点における最新版

構文
(vla-get-activelayer vla-object)


機能
アクティブ画層のVLAオブジェクトを取得する


引数
  • vla-object … CAD のアプリケーション オブジェクト


戻り値
アクティブ画層のVLAオブジェクト


サンプル
 ; テーブルから現在画層の色を取得。
(setq col1 (cdr (assoc 62 (tblsearch "layer" (getvar "CLAYER")))))

; VLAオブジェクトから現在画層の色を取得。
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq col1 (vla-get-color (vla-get-ActiveLayer *ActDoc*)))

; ダンプ
(vlax-dump-object (vla-get-ActiveLayer *ActDoc*))
; IAcadLayer: データの論理的なグループ化、図面に重ねたトレーシング ペーパーのようなものです
; プロパティの値:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001402191d8>
;   Description = ""
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002b4038d0>
;   Freeze = 0
;   Handle (RO) = "F"
;   HasExtensionDictionary (RO) = 0
;   LayerOn = -1
;   Linetype = "CONTINUOUS"
;   Lineweight = -3
;   Lock = 0
;   Material = "Global"
;   Name = "0"
;   ObjectID (RO) = 46
;   ObjectID32 (RO) = 46
;   ObjectName (RO) = "AcDbLayerTableRecord"
;   OwnerID (RO) = 47
;   OwnerID32 (RO) = 47
;   PlotStyleName = "色_7"
;   Plottable = -1
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000031e26d20>
;   Used (RO) = -1
;   ViewportDefault = 0
T

関連事項