Vla-objectidtoobject

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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