(XD::Entity:NearByPnt)获得选择集或实体表中距离测试点最近的那个实体

Lispboy · 发表于 2016-5-22 16:11:43

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

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

×

本帖最后由 Lispboy 于 2016-5-22 21:45 编辑

(defun XD::Entity:NearByPnt (el2 pt direction / box dis el1 pnt pnt1 x1 x2 y)
(if (= (type el2) 'PICKSET)
(setq el2 (xdrx_pickset->ents el2))
)
(setq direction (xdrx_vector_normalize direction)
el1 (mapcar
'(lambda (y)
(setq box (xdrx_entity_box y direction))
(setq pnt (nth 4 (XD::Geom:Box->9pt box))
pnt1 (mapcar
'+
pnt
(xdrx_vector_PerpVector direction)
)
dis (abs (xdrx_point_dist2Line pt pnt pnt1))
)
(list dis y)
)
el2
)
)
(cadar (vl-sort el1 '(lambda (x1 x2)
(< (car x1) (car x2))
)
)
)
)

(defun XD::Entity:NearByPnt (el2 pt direction / box dis el1 pnt pnt1 x1 x2 y) 
  (if (= (type el2) 'PICKSET) 
    (setq el2 (xdrx_pickset->ents el2)) 
  ) 
  (setq direction (xdrx_vector_normalize direction) 
        el1 (mapcar 
              '(lambda (y) 
                 (setq box (xdrx_entity_box y direction)) 
                 (setq pnt (nth 4 (XD::Geom:Box->9pt box)) 
                       pnt1 (mapcar 
                              '+ 
                              pnt 
                              (xdrx_vector_PerpVector direction) 
                            ) 
                       dis (abs (xdrx_point_dist2Line pt pnt pnt1)) 
                 ) 
                 (list dis y) 
               ) 
              el2 
            ) 
  ) 
  (cadar (vl-sort el1 '(lambda (x1 x2) 
                         (< (car x1) (car x2)) 
                       ) 
         ) 
  ) 
)

测完收工 · 发表于 2020-10-21 17:34:03

你好，大神，函数里的direction --- 方向向量是什么格式的呢？我这里使用不了该函数，使用如下
(XD::Entity:NearByPnt gg (getpoint) (0.232748 -0.972537 0.0))
gg -- 直线选择集
报错信息：
Application Error: 2 :- 函数错误: 0.232748 ADS 请求错误

望大神指点

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

[实体] (XD::Entity:NearByPnt)获得选择集或实体表中距离测试点最近的那个实体

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