(XD::DIM:GetNearInx)获得尺寸标注距离测试点最近的界线索引号

Lispboy · 发表于 2016-5-10 15:43:43

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

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

×

(defun XD::DIM:GetNearInx (e pt / base near pnts)
(setq pnts (xdrx_getpropertyvalue e "stretchpoint")
base (list (nth 2 pnts) (nth 3 pnts))
pnts (list (list (nth 2 pnts) '(0 2)) (list (nth 3 pnts) '
(1 3)
)
)
near (xdrx_line_nearpoint (car base) (cadr base) (car
(xd::pnts:orthoproject
(list pt)
(car base)
(cadr base)
)
)
)
)
(cadr (assoc near pnts))
)

(defun XD::DIM:GetNearInx (e pt / base near pnts) 
  (setq pnts (xdrx_getpropertyvalue e "stretchpoint") 
        base (list (nth 2 pnts) (nth 3 pnts)) 
        pnts (list (list (nth 2 pnts) '(0 2)) (list (nth 3 pnts) ' 
                                                    (1 3) 
                                              ) 
             ) 
        near (xdrx_line_nearpoint (car base) (cadr base) (car 
                                                              (xd::pnts:orthoproject 
                                                                                     (list pt) 
                                                                                     (car base) 
                                                                                     (cadr base) 
                                                              ) 
                                                         ) 
             ) 
  ) 
  (cadr (assoc near pnts)) 
)

csharp · 发表于 2016-5-10 15:50:10

这个拉伸只会是 0 和 1 吧

Lispboy · 发表于 2016-5-10 16:03:16

csharp 发表于 2016-5-10 15:50
这个拉伸只会是 0 和 1 吧

界线拉伸是 0 1，基线往上下拉伸就是 2 3 了。

csharp · 发表于 2016-5-10 16:06:29

对单个或相邻尺寸用夹点拉伸就够了，没必要写程序

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

[选择集] (XD::DIM:GetNearInx)获得尺寸标注距离测试点最近的界线索引号

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

点评