(XD::Entity:3DMESH-Data)获得3DMESH的基本数据

Lispboy

1. ;|
   
2. 获得3DMESH的基本数据
   
3. 参数：
   
4.   e ---- 实体名
   
5.   mode-- 模式，T 强制更新 NIL，如果先前读取过不再更新内部表
   
6. 返回值：关联表
   
7. 如：(("Vertices" (28.6602 17.2293 0.0) (38.4865 16.3877 0.0) (30.2511 13.5824
   
8. 0.0) (41.6684 12.4603 0.0) (31.0466 10.3563 0.0) (43.0254 8.62634 0.0) (31.0934
   
9. 5.77427 0.0) (45.4586 5.25996 0.0) (32.076 2.59492 0.0)) ("MNCounts" 3 3)
   
10. ("BoundingBox" (28.6602 17.2293 0.0) (30.2511 13.5824 0.0) (32.076 2.59492 0.0)
    
11. (31.0934 5.77427 0.0)) ("Border" (28.6602 17.2293 0.0) (30.2511 13.5824 0.0)
    
12. (32.076 2.59492 0.0) (31.0934 5.77427 0.0)) ("CoordSystem" (28.6602 17.2293
    
13. 0.0) (0.399851 -0.91658 0.0) (0.207777 -0.978176 0.0) (0.0 0.0 -0.20068)))
    
14. |;
    
15. (defun XD::Entity:3DMESH-Data (e mode / _data _ori _xdir _ydir _zdir border
    
16.                                  border1 grids m n vts
    
17.                               )
    
18.   (if (and
    
19.         (not mode)
    
20.         (setq info (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
21.       )
    
22.     (cadr info)
    
23.     (progn
    
24.       (foreach n $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST
    
25.         (setq e (car n))
    
26.         (if (not (entget e))
    
27.            (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (vl-remove n $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
28.         )
    
29.       )
    
30.       (if (= "AcDbPolygonMesh" (cadr (xdrx_object_classname e)))
    
31.         (progn
    
32.           (setq old (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
33.           (if old
    
34.              (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (vl-remove old $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
35.           )
    
36.           (setq vts (XD::Entity:3DMESH-getVertexAt e -1)
    
37.                 grids (XD::Entity:3DMESH-MNCount e)
    
38.                 m (car grids)
    
39.                 n (cadr grids)
    
40.                 border (XD::Entity:3DMESH-Border e)
    
41.                 border1 (XD::Pnts:SetZ border 0.0)
    
42.                 _ori (car border)
    
43.                 _xdir (xdrx_vector_normalize (mapcar
    
44.                                                '-
    
45.                                                (cadr border1)
    
46.                                                (car border1)
    
47.                                              )
    
48.                       )
    
49.                 _ydir (xdrx_vector_normalize (mapcar
    
50.                                                '-
    
51.                                                (cadddr border1)
    
52.                                                (car border1)
    
53.                                              )
    
54.                       )
    
55.                 _zdir (xdrx_vector_crossProduct _xdir _ydir)
    
56.                 _data (list (cons "Vertices" vts) (cons "MNCounts" grids)
    
57.                             (cons "BoundingBox" border1) (cons "Border"
    
58.                                                                border
    
59.                                                          ) (cons "CoordSystem"
    
60.                                                                  (list _ori _xdir _ydir _zdir)
    
61.                                                            )
    
62.                       )
    
63.           )
    
64.           (setq old (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
65.           (setq new (list e _data))
    
66.           (if (not old)
    
67.              (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (cons new $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
68.              (progn
    
69.                (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (subst new old $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
70.              )
    
71.           )
    
72.           _data
    
73.         )
    
74.       )
    
75.     )
    
76.   )
    
77. )

;|<br /> 获得3DMESH的基本数据<br /> 参数：<br />   e ---- 实体名<br />   mode-- 模式，T 强制更新 NIL，如果先前读取过不再更新内部表<br /> 返回值：关联表<br /> 如：(("Vertices" (28.6602 17.2293 0.0) (38.4865 16.3877 0.0) (30.2511 13.5824 <br /> 0.0) (41.6684 12.4603 0.0) (31.0466 10.3563 0.0) (43.0254 8.62634 0.0) (31.0934 <br /> 5.77427 0.0) (45.4586 5.25996 0.0) (32.076 2.59492 0.0)) ("MNCounts" 3 3) <br /> ("BoundingBox" (28.6602 17.2293 0.0) (30.2511 13.5824 0.0) (32.076 2.59492 0.0) <br /> (31.0934 5.77427 0.0)) ("Border" (28.6602 17.2293 0.0) (30.2511 13.5824 0.0) <br /> (32.076 2.59492 0.0) (31.0934 5.77427 0.0)) ("CoordSystem" (28.6602 17.2293 <br /> 0.0) (0.399851 -0.91658 0.0) (0.207777 -0.978176 0.0) (0.0 0.0 -0.20068)))<br /> |;<br /> (defun XD::Entity:3DMESH-Data (e mode / _data _ori _xdir _ydir _zdir border<br />                                  border1 grids m n vts<br />                               )<br />   (if (and<br />         (not mode)<br />         (setq info (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />       )<br />     (cadr info)<br />     (progn<br />       (foreach n $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST<br />         (setq e (car n))<br />         (if (not (entget e))<br />            (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (vl-remove n $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />         )<br />       )<br />       (if (= "AcDbPolygonMesh" (cadr (xdrx_object_classname e)))<br />         (progn<br />           (setq old (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />           (if old<br />              (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (vl-remove old $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />           )<br />           (setq vts (XD::Entity:3DMESH-getVertexAt e -1)<br />                 grids (XD::Entity:3DMESH-MNCount e)<br />                 m (car grids)<br />                 n (cadr grids)<br />                 border (XD::Entity:3DMESH-Border e)<br />                 border1 (XD::Pnts:SetZ border 0.0)<br />                 _ori (car border)<br />                 _xdir (xdrx_vector_normalize (mapcar<br />                                                '-<br />                                                (cadr border1)<br />                                                (car border1)<br />                                              )<br />                       )<br />                 _ydir (xdrx_vector_normalize (mapcar<br />                                                '-<br />                                                (cadddr border1)<br />                                                (car border1)<br />                                              )<br />                       )<br />                 _zdir (xdrx_vector_crossProduct _xdir _ydir)<br />                 _data (list (cons "Vertices" vts) (cons "MNCounts" grids)<br />                             (cons "BoundingBox" border1) (cons "Border"<br />                                                                border<br />                                                          ) (cons "CoordSystem"<br />                                                                  (list _ori _xdir _ydir _zdir)<br />                                                            )<br />                       )<br />           )<br />           (setq old (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />           (setq new (list e _data))<br />           (if (not old)<br />              (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (cons new $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />              (progn<br />                (setq $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST (subst new old $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />              )<br />           )<br />           _data<br />         )<br />       )<br />     )<br />   )<br /> )