[编程交流] 按手柄选择

(vla-HandletoObject
 (vla-get-ActiveDocument
   (vlax-get-acad-object)
 )
 <handle>
)

(defun c:Test        ( / ent-selected enthandle objHandle )
   (setq ent-selected (car (entsel))
  enthandle    (cdr (assoc 5 (entget ent-selected)))
  objHandle    (vla-get-handle (vlax-ename->vla-object ent-selected))
   )
   (entdel (handent enthandle)) ;; del the item
   (redraw)
;;;
;;; This would toss a nasty if used here..
;;;
;;;  (vla-HandletoObject
;;;    (vla-get-ActiveDocument
;;;      (vlax-get-acad-object)
;;;    )
;;;    objHandle
;;;  )
   (entdel (handent enthandle)) ;; un-del the item
   (redraw)
;;; Now we can select the items
;;;
   (vla-HandletoObject
     (vla-get-ActiveDocument
(vlax-get-acad-object)
     )
     objHandle
   )
 )

3