(XD::Entity:3DMESH-ElevAtPoint)查询3EMESH范围内，任意点的标高

Lispboy · 发表于 2013-11-11 22:08:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-11-12 22:55 编辑

;|
查询3EMESH范围内，任意点的标高
参数：
e ---- 实体名
pnt -- 测试点
返回值：实数（标高值）
|;
(defun XD::Entity:3DMESH-ElevAtPoint (e pnt / _border _border1 _coords _data _disx
_disy _mat _p1 _p2 _p3 _p4 _z lxd pm_1 pm_2
pm1 pm2 pn1 pn2 vx vy _ev
)
(if (= "AcDbPolygonMesh" (cadr (xdrx_object_classname e)))
(progn
(setq _data (XD::Entity:3DMESH-DATA E nil)
_border (cdr (assoc "Border" _data))
_border1 _border
_border1 (XD::Pnts:SetZ _border1 0.0)
_coords (cdr (assoc "CoordSystem" _data))
_mat (xdrx_matrix_aligncoordsystem _coords (list '(0 0 0) '(1 0 0) '(0 1 0) '(0 0 1)))
_p1 (xdrx_point_transform pnt _mat)
_p1 (XD::Pnts:SetZ _p1 0.0)
_disx (car _p1)
_disy (cadr _p1)
vx (cadr _coords)
vy (caddr _coords)
_p1 (car _border)
_p2 (cadr _border)
_p3 (caddr _border)
_p4 (cadddr _border)
_z (* (/ _disx (distance (car _border1) (cadr _border1)))
(caddr (mapcar
'-
_p2
_p1
)
)
)
pn1 (mapcar
'+
(mapcar
'+
_p1
(xdrx_vector_product vx _disx)
)
(list 0 0 _z)
)
_z (* (/ _disx (distance (cadddr _border1) (caddr _border1)))
(caddr (mapcar
'-
_p3
_p4
)
)
)
pn2 (mapcar
'+
(mapcar
'+
_p4
(xdrx_vector_product vx _disx)
)
(list 0 0 _z)
)
_z (* (/ _disy (distance (cadddr _border1) (car _border1)))
(caddr (mapcar
'-
_p4
_p1
)
)
)
pm1 (mapcar
'+
(mapcar
'+
_p1
(xdrx_vector_product vy _disy)
)
(list 0 0 _z)
)
_z (* (/ _disy (distance (caddr _border1) (cadr _border1)))
(caddr (mapcar
'-
_p3
_p2
)
)
)
pm2 (mapcar
'+
(mapcar
'+
_p2
(xdrx_vector_product vy _disy)
)
(list 0 0 _z)
)
_z (* (/ _disy (distance (XD::Pnt:SetZ pn1 0.0)
(XD::Pnt:SetZ pn2 0.0)
)
) (caddr (mapcar
'-
pn2
pn1
)
)
)
pm_1 (mapcar
'+
(mapcar
'+
pn1
(xdrx_vector_product vy _disy)
)
(list 0 0 _z)
)
_z (* (/ _disx (distance (XD::Pnt:SetZ pm1 0.0)
(XD::Pnt:SetZ pm2 0.0)
)
) (caddr (mapcar
'-
pm2
pm1
)
)
)
pm_2 (mapcar
'+
(mapcar
'+
pm1
(xdrx_vector_product vx _disx)
)
(list 0 0 _z)
)
)
(setq _ev (/ (+ (last pm_1) (last pm_2)) 2.0))
)
)
_ev
)

;| 
查询3EMESH范围内，任意点的标高 
参数： 
  e ---- 实体名 
  pnt -- 测试点 
 
返回值：实数（标高值） 
|; 
 
(defun XD::Entity:3DMESH-ElevAtPoint (e pnt /  _border _border1 _coords _data _disx 
                               _disy _mat _p1 _p2 _p3 _p4 _z lxd pm_1 pm_2 
                               pm1 pm2 pn1 pn2 vx vy _ev 
                           ) 
  (if (= "AcDbPolygonMesh" (cadr (xdrx_object_classname e))) 
    (progn 
      (setq _data (XD::Entity:3DMESH-DATA E nil) 
            _border (cdr (assoc "Border" _data)) 
            _border1 _border 
            _border1 (XD::Pnts:SetZ _border1 0.0) 
            _coords (cdr (assoc "CoordSystem" _data)) 
            _mat (xdrx_matrix_aligncoordsystem _coords (list '(0 0 0) '(1 0 0) '(0 1 0) '(0 0 1))) 
            _p1 (xdrx_point_transform pnt _mat) 
            _p1 (XD::Pnts:SetZ _p1 0.0) 
            _disx (car _p1) 
            _disy (cadr _p1) 
            vx (cadr _coords) 
            vy (caddr _coords) 
            _p1 (car _border) 
            _p2 (cadr _border) 
            _p3 (caddr _border) 
            _p4 (cadddr _border) 
            _z (* (/ _disx (distance (car _border1) (cadr _border1))) 
                  (caddr (mapcar 
                           '- 
                           _p2 
                           _p1 
                         ) 
                  ) 
               ) 
            pn1 (mapcar 
                  '+ 
                  (mapcar 
                    '+ 
                    _p1 
                    (xdrx_vector_product vx _disx) 
                  ) 
                  (list 0 0 _z) 
                ) 
            _z (* (/ _disx (distance (cadddr _border1) (caddr _border1))) 
                  (caddr (mapcar 
                           '- 
                           _p3 
                           _p4 
                         ) 
                  ) 
               ) 
            pn2 (mapcar 
                  '+ 
                  (mapcar 
                    '+ 
                    _p4 
                    (xdrx_vector_product vx _disx) 
                  ) 
                  (list 0 0 _z) 
                ) 
            _z (* (/ _disy (distance (cadddr _border1) (car _border1))) 
                  (caddr (mapcar 
                           '- 
                           _p4 
                           _p1 
                         ) 
                  ) 
               ) 
            pm1 (mapcar 
                  '+ 
                  (mapcar 
                    '+ 
                    _p1 
                    (xdrx_vector_product vy _disy) 
                  ) 
                  (list 0 0 _z) 
                ) 
            _z (* (/ _disy (distance (caddr _border1) (cadr _border1))) 
                  (caddr (mapcar 
                           '- 
                           _p3 
                           _p2 
                         ) 
                  ) 
               ) 
            pm2 (mapcar 
                  '+ 
                  (mapcar 
                    '+ 
                    _p2 
                    (xdrx_vector_product vy _disy) 
                  ) 
                  (list 0 0 _z) 
                ) 
            _z (* (/ _disy (distance (XD::Pnt:SetZ pn1 0.0) 
                                     (XD::Pnt:SetZ pn2 0.0) 
                           ) 
                  ) (caddr (mapcar 
                             '- 
                             pn2 
                             pn1 
                           ) 
                    ) 
               ) 
            pm_1 (mapcar 
                   '+ 
                   (mapcar 
                     '+ 
                     pn1 
                     (xdrx_vector_product vy _disy) 
                   ) 
                   (list 0 0 _z) 
                 ) 
            _z (* (/ _disx (distance (XD::Pnt:SetZ pm1 0.0) 
                                     (XD::Pnt:SetZ pm2 0.0) 
                           ) 
                  ) (caddr (mapcar 
                             '- 
                             pm2 
                             pm1 
                           ) 
                    ) 
               ) 
            pm_2 (mapcar 
                   '+ 
                   (mapcar 
                     '+ 
                     pm1 
                     (xdrx_vector_product vx _disx) 
                   ) 
                   (list 0 0 _z) 
                 ) 
      ) 
      (setq _ev (/ (+ (last pm_1) (last pm_2)) 2.0)) 
    ) 
  ) 
  _ev 
)

账号		自动登录	找回密码
密码			立即注册

[实体] (XD::Entity:3DMESH-ElevAtPoint)查询3EMESH范围内，任意点的标高

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子