[求助]期望很久的根据句柄来反查的程序

W1314118

已知图元(直线或多段线)的句柄,是否有程序来根据句柄反查出该图元在cad图中的位置并要求亮显找到的对象,恳求老师们帮助

W1314118

有高手写的

;
;可以用(handent hand)函数
;
(defun h2v(whand / ent ed eType pt)
  (setq ent(handent whand))
  (setq ed(entget ent))
  (setq eType(cdr(assoc 0 ed)))
  (cond
    ((= eType "INSERT")
      (setq pt(cdr(assoc 10 ed)))
    )
    ;其它类型的ent
  )
  (command "_.zoom" "c" pt 20)
  (redraw ent 3)
)
;
但我不会用,是lisp吗

xxxtttxxx

vba里面也有handle属性