[LISP函数]： 一个查看实体数据表格式的小LISP

风清清

自己刚开始学AUTOLISP时候编的，后来觉得编程序查数据的时候还挺有用，呵呵。

seeb.lsp

(defun c:seeb(/ p1 name1 biao1)
  (setq p1 (getpoint "请点目标:"))
  (setq name1 (ssname (ssget p1) 0))
  (setq biao1 (entget name1))
  (princ biao1)
  (textscr)
  (PRINC)
)

YueFeng

为什么不是用EntSel？而是用SsGet。:)

风清清

ENTSEL 不知道怎么用，怎么用的？

ll_j

(defun c:ent()(entget(car(entsel)) '("*")))

e2002

简单的,可以按上面的作,如果需要完善的,各位应该加上容错处理和格式打印处理.

lhh9801

具体怎么用啊！我怎么一点都不清楚

lijiao

我也有一个：

2. 
   
3.   [FONT=courier new]
   
4. (defun xsdxf (ss /)
   
5.   (if (null ss)
   
6.       (while (setq ss (entsel "\n选择实体："))
   
7.                 (entget (car ss) (list "*"))
   
8.          )
   
9.        (entget (car ss) (list "*"))
   
10.     )
    
11.   )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun xsdxf (ss /)<br />   (if (null ss)<br />       (while (setq ss (entsel "\n选择实体："))<br />                 (entget (car ss) (list "*"))<br />          )<br />        (entget (car ss) (list "*"))<br />     )<br />   )<br />   [/FONT]<br />