[LISP程序]：列示内码

LUCAS

作用：列示内码

2. 
   
3. ;;;$l2string由xdsoft提供
   
4. ;;;点选大型对象如:3dsolid会死机(可能是超过档案所能接受,但小型的可以)
   
5. ;|
   
6.    函数：$l2string
   
7.    参数：表
   
8.    作用：把LIST转换成字符串
   
9.    适用平台：AutoCAD任何版本
   
10.    
    
11.    欢迎到"晓东CAD空间－论坛"，[url]http://www.fspdi.com/forum[/url]
    
12.    获得更多函数
    
13. |;
    
14. (defun $l2string (pl / f str)
    
15.   (if (setq f (open "l$s.temp" "w"))
    
16.     (progn
    
17.       (princ pl f)
    
18.       (close f)
    
19.       (if (setq f (open "l$s.temp" "r"))
    
20.         (progn
    
21.           (setq str (read-line f))
    
22.           (close f)
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   str
    
28. )
    
29. ;| 函数：dxf , dxf1
    
30.    参数：
    
31.    作用：列示内码
    
32.    适用平台：AutoCAD任何版本
    
33. |;
    
34. ;;;
    
35. (defun c:dxf ()
    
36. (alert ($l2string (entget (car (entsel)))))
    
37. (princ)
    
38. )
    
39. (defun c:dxf1 ()
    
40. (alert ($l2string (entget (car (nentsel)))))
    
41. (princ)
    
42. )
    

<br /> ;;;$l2string由xdsoft提供<br /> ;;;点选大型对象如:3dsolid会死机(可能是超过档案所能接受,但小型的可以)<br /> ;|<br />    函数：$l2string<br />    参数：表<br />    作用：把LIST转换成字符串<br />    适用平台：AutoCAD任何版本<br />    <br />    欢迎到"晓东CAD空间－论坛"，[url]http://www.fspdi.com/forum[/url]<br />    获得更多函数<br /> |;<br /> (defun $l2string (pl / f str)<br />   (if (setq f (open "l$s.temp" "w"))<br />     (progn<br />       (princ pl f)<br />       (close f)<br />       (if (setq f (open "l$s.temp" "r"))<br />         (progn<br />           (setq str (read-line f))<br />           (close f)<br />         )<br />       )<br />     )<br />   )<br />   str<br /> )<br /> ;| 函数：dxf , dxf1<br />    参数：<br />    作用：列示内码<br />    适用平台：AutoCAD任何版本<br /> |;<br /> ;;;<br /> (defun c:dxf ()<br /> (alert ($l2string (entget (car (entsel)))))<br /> (princ)<br /> )<br /> (defun c:dxf1 ()<br /> (alert ($l2string (entget (car (nentsel)))))<br /> (princ)<br /> )<br />

前生

(defun c:dxf (/ en str)
  (setq en nil)
  (setq en (entsel))
  (if en
    (progn
      (setq str (vl-prin1-to-string (entget (car en))))
      (alert str)
    )
    (alert "\n 未选取到实体...")
  )
;;;  (alert ($l2string (entget (car (entsel)))))
  (princ)
)

XDSoft

最初由 LUCAS 发布
[B]作用：列示内码
[CODE]
;;;$l2string由xdsoft提供
;;;点选大型对象如:3dsolid会死机(可能是超过档案所能接受,但小型的可以)
;|
   函数：$l2string
   参数：表
   作用：把LIST转换成字符串
   适用平台：A... [/B]

点击3DSOLID死机是因为3DSOLID是ACIS实体，数据是加密的，显示出来是乱码，而你用的是ALERT警告框，所以可能造成死机。

无忧

用ALERT警告框显示不能ctrl-c拷贝显示出来的组码，用起来不方便，还不如显示在文本屏幕上。

前生

呵呵，有道理!有道理!