[LISP函数]：一个显示实体数据的程序en.lsp

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. ;;***+ en  列实体表----v2.5-------------------lxx 2002.11
   
5. ;;v1 2001.3;包括块属性显示;v2 2002.11
   
6. ;;v2 加入对扩展数据显示
   
7. ;;v2.5 加入对dimstyle定义的显示
   
8. ;;
   
9. (princ "\n   en  列实体表-v2.5---------lxx-------------2002.11\n")
   
10. ;;
    
11. (defun c:en (/ en xx x1 roop)
    
12. (princ "\n----en----列实体表-v2.5---------lxx-------------2002.11")
    
13. (mapcar 'print (entget (setq en(car(entsel))) ))  ;;列出基本实体数据
    
14. (setq xx (assoc -3 (entget en '("*"))))
    
15. (if xx
    
16. (progn
    
17.   (setq xx (cdr xx))
    
18.   (princ "\n(-3")(princ)
    
19. ;; 考虑多方 扩展数据列出
    
20.   (while (setq x1 (car xx))
    
21.    (mapcar 'print x1)           ;; x 扩展数据 '("*")显示所有 ;;2002.11
    
22.    (setq xx (cdr xx))
    
23.   )
    
24. ;;
    
25.   (princ "\n)")(princ)
    
26. );;progn
    
27. )
    
28. (textpage)
    
29. ;;列出属性
    
30. (setq roop t)
    
31. (if (= 1 (cdr (assoc 66 (entget en))) )
    
32. (while roop
    
33.   (setq en (entnext en))
    
34.   (mapcar 'print (entget en))
    
35.   (if (= "SEQEND" (cdr (assoc 0 (entget en '("*") ))) )
    
36.   (setq roop nil)
    
37.   )
    
38. ))
    
39. ;;列出dimstyle定义
    
40. (if (and (= "DIMENSION" (cdr(assoc 0 (entget en))))
    
41.          (= "" (getstring "\n 是否列出dimstyle定义? 否/<是>:")))
    
42.   (progn
    
43.       (princ "\n < 标注类型定义 >")
    
44.       (mapcar 'print (tblsearch "dimstyle" (cdr (assoc 3 (entget en))) ))
    
45.   )
    
46. )
    
47. (princ)
    
48. )
    
49. 
    
50.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;***+ en  列实体表----v2.5-------------------lxx 2002.11<br /> ;;v1 2001.3;包括块属性显示;v2 2002.11 <br /> ;;v2 加入对扩展数据显示<br /> ;;v2.5 加入对dimstyle定义的显示<br /> ;;<br /> (princ "\n   en  列实体表-v2.5---------lxx-------------2002.11\n")<br /> ;;<br /> (defun c:en (/ en xx x1 roop)<br /> (princ "\n----en----列实体表-v2.5---------lxx-------------2002.11")<br /> (mapcar 'print (entget (setq en(car(entsel))) ))  ;;列出基本实体数据<br /> (setq xx (assoc -3 (entget en '("*"))))<br /> (if xx <br /> (progn<br />   (setq xx (cdr xx)) <br />   (princ "\n(-3")(princ)<br /> ;; 考虑多方 扩展数据列出<br />   (while (setq x1 (car xx))<br />    (mapcar 'print x1)           ;; x 扩展数据 '("*")显示所有 ;;2002.11<br />    (setq xx (cdr xx))<br />   )<br /> ;;<br />   (princ "\n)")(princ)<br /> );;progn<br /> )<br /> (textpage)<br /> ;;列出属性<br /> (setq roop t)<br /> (if (= 1 (cdr (assoc 66 (entget en))) )<br /> (while roop <br />   (setq en (entnext en))<br />   (mapcar 'print (entget en))<br />   (if (= "SEQEND" (cdr (assoc 0 (entget en '("*") ))) )<br />   (setq roop nil)<br />   )<br /> ))<br /> ;;列出dimstyle定义<br /> (if (and (= "DIMENSION" (cdr(assoc 0 (entget en))))<br />          (= "" (getstring "\n 是否列出dimstyle定义? 否/<是>:")))<br />   (progn<br />       (princ "\n < 标注类型定义 >")<br />       (mapcar 'print (tblsearch "dimstyle" (cdr (assoc 3 (entget en))) )) <br />   )<br /> )<br /> (princ)<br /> )<br /> <br />   [/FONT]<br />

梦断江南

演示

XDSoft

江南，标注样式的组码，最好用中文表示出含义来。再完善完善吧。

hhjj9898

很好,加油!!!

aeo

用处不大
一般要用到时肯定是在调试,但是要用到数据就要重新键入.
应该指定一个缺省的表,存数据
我一般这样:
(defun c:is()(entget (car(entsel)) '("*")))
(setq li(c:is) )

梦断江南

确实是在调试时用到，但是也并没有必要将其存为表，因为都是临时看过程、结果，很多时候只是检验其中的几个组码值，需要的话可以从 cad 文字面板拷贝粘贴到程序中。