Vla-objectidtoobject

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年11月17日 (日) 13:45時点におけるGizmon (トーク | 投稿記録)による版
構文
(vla-objectidtoobject vla-object ID)


機能
指定されたオブジェクト ID に対応するオブジェクトを取得する。


引数
  • vla-object … VLA オブジェクト
  • ID … オブジェクトID


戻り値
指定されたオブジェクト ID に対応するVLAオブジェクト


サンプル
(defun x (/)
  (vl-load-com)
  (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq ename-circle (car (entsel "\n円を選択:")))
  (setq handle-circle (cdr (assoc 5 (entget ename-circle))))
  (setq vla-circle (vla-handleToObject *ActDoc* handle-circle))
  (setq objid-Circle (vla-get-objectid vla-circle))
  (vla-ObjectIDtoObject *ActDoc* objid-circle)
)

;ダンプ
(vlax-dump-object (x))
(vlax-dump-object (vla-ObjectIDtoObject *ActDoc* objid-circle))
; IAcadCircle2: AutoCAD Circle インタフェース
; プロパティの値:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001407b91d8>
;   Area = 1.74054e+008
;   Center = (52140.6 30958.6 0.0)
;   Circumference = 46767.8
;   Diameter = 14886.6
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000000029e0f4d0>
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "5B7"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000002eaecda8>
;   Layer = "0"
;   Linetype = "BYLAYER"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 42
;   ObjectID32 (RO) = 42
;   ObjectName (RO) = "AcDbCircle"
;   OwnerID (RO) = 44
;   OwnerID32 (RO) = 44
;   PlotStyleName = "ByLayer"
;   Radius = 7443.32
;   Thickness = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000002eaece60>
;   Visible = -1
T


関連事項