[LISP程序]：转化3d物体为3dmesh

秋枫

2. 
   
3. [FONT=courier new]
   
4. (defun c:ConvertToMesh ( / ss precise 3dsfile e)
   
5.   (if (not (member "ACRENDER.ARX"
   
6.                    (mapcar 'strcase (arx))))
   
7.     (arxload (findfile "ACRENDER.ARX"))
   
8.   )
   
9.   (princ "\n选择要转成网格的物体:")
   
10.   (setq ss (ssget))
    
11.   (initget (+ 2 4))
    
12.   (setq precise (getint "精度(1-100)<10>:"))
    
13.   (if (null precise) (setq precise 10))
    
14.   (if (> precise 100) (setq precise 100))
    
15.   (setq precise (strcat (itoa precise) "x"))
    
16.   
    
17.   (vl-cmdf "_.undo" "_mark")
    
18.   (vl-cmdf "_.zoom" precise)
    
19.   (setq 3dsfile (strcat (getvar "dwgprefix") "$_QF_TEMP_" (getvar "dwgname") ".3ds"))
    
20.   (c:3dsout ss 0 0 15 0.01 3dsfile)
    
21.   (vl-cmdf "_.erase" ss "")
    
22. 
    
23.   (setq e (entlast))
    
24.   (while (entnext e) (setq e (entnext e)))
    
25.   (c:3dsin 0 0 0 3dsfile)
    
26.   (setq ss (ssadd))
    
27.   (while (entnext e)
    
28.     (setq ss (ssadd e ss)
    
29.           e  (entnext e)
    
30.     )
    
31.   )
    
32.   (vl-cmdf "_.chprop" ss "" "color" "bylayer" "")
    
33.   (vl-file-delete 3dsfile)
    
34.   (vl-cmdf "_.zoom" "p")
    
35. 
    
36.   (princ)
    
37. )
    
38. [/FONT]

<br /> [FONT=courier new]<br /> (defun c:ConvertToMesh ( / ss precise 3dsfile e)<br />   (if (not (member "ACRENDER.ARX"<br />                    (mapcar 'strcase (arx))))<br />     (arxload (findfile "ACRENDER.ARX"))<br />   )<br />   (princ "\n选择要转成网格的物体:")<br />   (setq ss (ssget))<br />   (initget (+ 2 4))<br />   (setq precise (getint "精度(1-100)<10>:"))<br />   (if (null precise) (setq precise 10))<br />   (if (> precise 100) (setq precise 100))<br />   (setq precise (strcat (itoa precise) "x"))<br />   <br />   (vl-cmdf "_.undo" "_mark")<br />   (vl-cmdf "_.zoom" precise)<br />   (setq 3dsfile (strcat (getvar "dwgprefix") "$_QF_TEMP_" (getvar "dwgname") ".3ds"))<br />   (c:3dsout ss 0 0 15 0.01 3dsfile)<br />   (vl-cmdf "_.erase" ss "")<br /> <br />   (setq e (entlast))<br />   (while (entnext e) (setq e (entnext e)))<br />   (c:3dsin 0 0 0 3dsfile)<br />   (setq ss (ssadd))<br />   (while (entnext e)<br />     (setq ss (ssadd e ss)<br />           e  (entnext e)<br />     )<br />   )<br />   (vl-cmdf "_.chprop" ss "" "color" "bylayer" "")<br />   (vl-file-delete 3dsfile)<br />   (vl-cmdf "_.zoom" "p")<br /> <br />   (princ)<br /> )<br /> [/FONT]

yangjr

我在2005中测试，转换正常，实体由原来3DSOLID 转换为POLYLINE。只是最后要出现：错误: 参数类型错误: lselsetp nil。图形放大后没有复原。不知要怎么改一改。
能否再有一个转化3dmesh 物体为3d实体的就完美了。
谢谢秋枫斑竹。