菜鸟问题，求助？

flyingant

如何获得对象（图元）名称，
例如，我用line命令画了一个矩形，
我该如何获得这四条直线的名称呢？

Taoyimaier

我本用vlisp的人，第一次回答问题，如果有错，在所难免
lisp代码如下：
(defun c:getename (/)
  (while (progn
           (princ "选择需要获取的实体")
           (setq ss (ssget))
         )
    (setq count (sslength ss))
    (setq i 0)
    (repeat count
      (princ (cdar(setq strentget (entget (ssname ss i)))))
      (princ "\n")
      (princ "\n")
      (princ "\n")
      (setq i (1+ i))
    )
    (princ)
  )
)
;;;这样获得的属性是它们的实体名,出现在命令行的，lisp就是在这样的表中提取属性的

用vba获取属性的话，如果要获取图元名可能要到vla-object中找到相关的属性，而vba给我的感觉是没有什么必要使用图元名，只需要引用对象名就可以进行操作了，它是基于对象的语言吗，呵呵，肯请大家批评
   

meflying

Taoyimaier

以前这样写惯了，不好意思，献丑了，被meflying当场逮住，不过以后也要这样，不要给我面子