[求助]恳请ZZXXQQ帮忙，根据句柄反查图元

W1314118

斑竹ZZXXQQ您好！

能否请您帮我写个-------输入句柄,程序自动查找到该实体并放大且亮显的程序，先谢谢了

caoyin

(defun c:tt (/ hle en)
  (initget 1)
  (if (setq hle (getstring "\n输入句柄名: "))
    (progn
      (setq en (vl-catch-all-apply
                 'vla-handletoobject
                 (list (vla-get-activedocument (vlax-get-acad-object)) hle)
               )
      )
      (if (not (vl-catch-all-error-p en))
        (progn
          (setq en (vlax-vla-object->ename en))
          (command "_.zoom" "_o" en "");;ACAD2006或更高版本，不然则须求其 boundingbox
          (redraw en 3)
        )
      )
    )
  )
  (princ)
)

sailorcwx

先学基本知识

其实你之前的帖子已经有很圆满的答复了，只是你连lisp程序是怎么样的都分辨不出来，我们很难帮到你

W1314118

我是想请您将程序写到LISP中，我自己将那个代码写到LISP后运行错误，所以能否肯请您将代码写到LISP中，LISP我是可以用的，谢谢了

W1314118

能请大侠sailorcwx编一个吗？

ZZXXQQ

一般句柄是由ACAD自动分配，你是如何得到句柄？

W1314118

li的命令,然后纪录下来,但时间长了就不知道图元的位置了,所以想再根据句柄来查图元

ZZXXQQ

那如何输入句柄呢？用键盘还是从文件中读？

W1314118

从我的EXCEL中读取,谢谢您

W1314118

我将代码写到lsp,但运行时在输入句柄名后出现:

输入句柄名: 3f ; 错误: no function definition: VLAX-GET-ACAD-OBJECT

(句柄名: 3f 的线是存在的,