Vlax-map-collection

提供:GizmoLabs - だいたい CAD LISP なサイト
2018年4月2日 (月) 13:11時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vlax-map-collection obj function)


機能
コレクション内のすべてのオブジェクトに関数を適用する。


引数
  • obj : コレクションを表す VLA オブジェクト。
  • function : obj に適用するシンボルまたは lambda 式。


戻り値
最初の引数 obj。


サンプル
(setq acadDocument (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(vlax-map-collection (vla-get-ModelSpace acadDocument) 'vlax-dump-object) 
; IAcadLWPolyline: AutoCAD Lightweight Polyline オブジェクト
; プロパティの値:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00cdb528>
;   Area (RO) = 2836.24
;   Closed = 0
;   ConstantWidth = 0.0
;   Coordinate = ...インデックス化された中身が見つかりません...
;   Coordinates = (270.167 143.2 193.795 202.488 235.053 233.668 ... )
;   Document (RO) = #<VLA-OBJECT IAcadDocument 025a25b0>
;   Elevation = 0.0
;   Handle (RO) = "75"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 1aa48154>
;   Layer = "0"
;   Length (RO) = 204.281
;   Linetype = "ByLayer"
;   LinetypeGeneration = 0
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 2129665960
;   ObjectName (RO) = "AcDbPolyline"
;   OwnerID (RO) = 2129665864
;   PlotStyleName = "ByLayer"
;   Thickness = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 1aa86560>
;   Visible = -1
#<VLA-OBJECT IAcadModelSpace2 1aabbfac>