无需调整坐标三维标注

Anlimer · 发表于 2023-11-7 16:21:33

谢谢楼主分享

Anlimer · 发表于 2023-11-7 16:29:47

错误 no function definition: N::ISINLINE 缺少函数有知道回事？谢谢

9999 · 发表于 2023-11-8 10:55:09

试试看,这个好不好用

LinBinFen · 发表于 2023-12-14 16:00:37

不错不错，非常的好，先顶起来再说，谢谢大神的分享

marxbat · 发表于 2023-12-18 14:57:39

Anlimer 发表于 2023-11-7 16:29
错误 no function definition: N::ISINLINE 缺少函数有知道回事？谢谢

本人不懂lisp。刚才试着用记事本打开，将N::IsInLine pt1 改成 equal。发现错误提示没了，也能标注。供参考。

leedun · 发表于 2023-12-22 12:50:51

收藏，三维标注插件

a197712939 · 发表于 2023-12-23 10:35:06

marxbat 发表于 2023-12-18 14:57
本人不懂lisp。刚才试着用记事本打开，将N::IsInLine pt1 改成 equal。发现错误提示没了，也能标 ...

不好意思之前忘记附加上子函数导致错误;判断点是否在两点连线上或连线的延长线上
(defun N::IsInLine (p1 p2 px)
(or
(N::IsOnLine p1 p2 px)
(N::IsOnExLine p1 p2 px)
)
)

a197712939 · 发表于 2023-12-23 10:36:20

xudongchu 发表于 2023-11-6 12:45
no function definition: N::ISINLINE 缺少函数

(defun N::IsInLine (p1 p2 px)
(or
(N::IsOnLine p1 p2 px)
(N::IsOnExLine p1 p2 px)
)
)

a197712939 · 发表于 2023-12-23 10:37:38

本帖最后由 a197712939 于 2023-12-23 10:41 编辑

a197712939 发表于 2023-12-23 10:36
(defun N::IsInLine (p1 p2 px)
(or
(N::IsOnLine p1 p2 px)

;判断点是否在两点连线上
(defun N::IsOnLine (p1 p2 px)
(or
(equal p1 px 0.001)
(equal p2 px 0.001)
(and
(< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
(or
(< (abs (- (angle p1 px) (angle px p2))) 0.0001)
(< (abs (- (angle p2 px) (angle px p1))) 0.0001)
)
))
)

;判断点是否在两点连线上
(defun N::IsOnLine (p1 p2 px)
  (or
      (equal p1 px 0.001)
      (equal p2 px 0.001)
      (and
(< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
(or
   (< (abs (- (angle p1 px) (angle px p2))) 0.0001)
   (< (abs (- (angle p2 px) (angle px p1))) 0.0001)
)
  ))
)

008698 · 发表于 2024-1-6 16:55:40

回贴是个人美德，好插件

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

无需调整坐标三维标注

本帖子中包含更多资源