a197712939 发表于 2022-3-14 22:41:40

已有 14 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

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)
    )
))
)

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)
)
)

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

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



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


panliang9 发表于 2022-3-15 08:29:19

谢谢楼主分享！

zixuan203344 发表于 2022-3-15 08:44:27

你的 -22明经币，这个负号怎么弄出来的？明经币是可以贷款还是能透支？

mokson 发表于 2022-3-15 10:19:59

以前标注三维实体太头痛了，总是要将坐标换来换去，现在有了它，太方便了。
楼主辛苦了。

a197712939 发表于 2022-3-15 10:28:25

zixuan203344 发表于 2022-3-15 08:44
你的 -22明经币，这个负号怎么弄出来的？明经币是可以贷款还是能透支？

那时为了下一个文件，发帖数不够，灌水乱发一些主题;P

dalong6371451 发表于 2022-3-15 11:15:36

没有币，只能看看了，唉！

yaooyaoo 发表于 2022-3-16 03:31:17


没有币，只能看看了，唉！

669423907 发表于 2022-3-19 08:19:17

谢谢楼主分享好码

至今没学会 发表于 2022-3-21 09:18:08

这个屌，用的到，谢谢大佬分享:handshake

wxmq2000 发表于 2022-4-12 21:30:50

没币了~~~~~~~~~~~~~~~~~
页: [1] 2 3 4
查看完整版本: 无需调整坐标三维标注