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
回贴是个人美德，好插件